Option Base 1
Private Sub Command1_Click()
Dim c As Integer,d As Intege
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
Print d
End Sub

哪条？是段吧

Option Base 1 '这个没有什么用
Private Sub Command1_Click()
Dim c As Integer,d As Intege '这里是定义c,d为整形,后面那个integer少了一个r
d=0 '把0负给d
c=6
x=Array(2,4,6,8,10,12) '将一个数组负给变量A
For i=1 To 6 '循环语句
if x(i)>c Then '如果变量A的第i个数子大于c 侧( x(1)=2,x(2)=4,x(3)=6 ``````x(1)括号里的1是
d=d+x(i) '表示Array(2,4,6,8,10,12)里面的第一个数,2是表示里面的第二个数.)
c=x(i)
Else '否侧
d=d-c
End if '结束if语句
Print d '输出d的数值
End Sub

刚才我试了下``还有一些地方错误要更正下``所以说这个东西还是要在实践中出正果啊``嘿嘿``

Option Base 1 '这个是只定x()从1开始算起,如果没有定义这个,x()就从0开始算起.
Private Sub Command1_Click()
Dim c As Integer,d As Integer '这里是定义c,d为整形,后面那个integer少了一个r
d=0 '把0负给d
c=6
x=Array(2,4,6,8,10,12) '将一个数组负给变量x
For i=1 To 6 '循环语句
if x(i)>c Then '如果变量A的第i个数子大于c 侧( x(1)=2,x(2)=4,x(3)=6 ``````x(1)括号里的1是
d=d+x(i) '表示Array(2,4,6,8,10,12)里面的第一个数,2是表示里面的第二个数.)
c=x(i)
Else '否侧
d=d-c
End if '结束if语句
next i '这里少了一个循环结束语句
Print d '输出d的数值
End Sub


这样就修改OK了``嘿嘿```

谢谢你们啦!