在窗本上放置一个命令按钮Command1, 并编写下列单击事件的程序:
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
A.10
B.12
C.16
D.20