VB这个程序怎么解释 要详细点 本人才接触 谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/09 01:21:24
Option Base 1

Private Sub Command1_Click()

Dim c As Integer, d As Integer

d = 0

c = 6

x = Array(2, 4, 6, 8, 10, 12)

For i = 1 To 6

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d - c

End If

Next i

Print d

End Sub

Option Base 1 ‘定义循环变量初始值为1

Private Sub Command1_Click()

Dim c As Integer, d As Integer ‘定义变量c、d为整形数

d = 0

c = 6

x = Array(2, 4, 6, 8, 10, 12) ’将括号里的6个数赋予数组变量X中

For i = 1 To 6 ’For 循环，从1到6

If x(i) > c Then ‘如果数组x中的第i项大于C（即6）就执行以下代码

d = d + x(i)

c = x(i)

Else ‘如果数组x中的第i项小于C（即6）就执行以下代码

d = d - c

End If ’结束If语句

Next i ‘循环下一个i

Print d ’打印d的值

End Sub ‘ 结束Sub过程

x最后的值是12

d最后的值是12

进来执行
-6
-12
-18
-10
0
12
x最后的值是12
d最后的值是12
说不出这个程序到底用来做什么的