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

谢谢你们啦!