Question

vb 计算题

Option Base 1
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 1 To 5
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d - c
End If
Next i
Print d
End Sub
怎么计算呀
还是不太明白？？？

Answer 1

大声叫一下数组下标是1
过程 命令按钮1 单击事件
让d的值 = 0
让c的值 = 10
让x有5个元素分别是x(1)是10, x(2)是12, x(3)是21, x(4)是32和x(5)是24。
循环 i的值从1到5循环5次
判断 x(i) 大于 c 那么’第一次是x(1)就是说x(i)=10上边说了
d = d + x(i) '自己看一下
c = x(i)
否则’ x(i)小于或等于 c
d = d - c
结束判断
结束循环
在窗体上打印d值
结束过程

就这样计算出来了d值
这样都不懂 看起来你要去以下网站修炼了
http://zhidao.baidu.com/question/96365148.html