单项选择题

在窗体上画一今名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click()
d=0
c=10
x=Array(10，12，21，32，24)
For i=1 To 5
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．89
B．99
C．23
D．77
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一今名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。
A．79
B．340
C．97
D．死循环
单项选择题
在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() n=Text1.Text Select Case n Case 1 To 20 x=10 Case 2,4,6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 ______。
A．10
B．20
C．30
D．40
相关试题