单选题
在窗体上放置一个命令按钮Command1,并编写下列单击事件的程序:
Option
Base1
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
程序运行后,单击命令按钮,则在窗体上输出的内容为{{U}} {{/U}}。