单项选择题

在窗体上放置一个命令按钮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

程序运行后，单击命令按钮，则在窗体上输出的内容为( )。

A．10
B．12
C．16
D．20

<上一题目录下一题>

热门试题

单项选择题

在一个窗体上添加一命令按钮控件，名为Command1，事件过程如下，则执行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 total=total+a(k) Next k Print total End Sub

A．10
B．15
C．27
D．35

单项选择题

窗体上有一个命令桉钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 S=S+a(k) Next k Print S End Sub

A．10
B．14
C．15
D．120

相关试题