单项选择题

设有如下程序：
Private Sub Command1_Click( )
Dim c As Integer，d As Integer
c=4
d=InputBox(“请输入一个整数”)
Do While d＞0
If d＞c Then
C=C+1
End lf
d=InputBox(“请输入一个整数”)
Loop
Print c+d
End sub
程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是

A．12
B．11
C．10
D．9
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX＜20 Then Y=X Else Y=20+X End lf func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As SinSle，Y As Single) SW=True End Sub Prinvate Sub Command1_Click( ) Dim intNum As Integer intNum=InputBox(””) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为
A．输出0
B．输出25
C．输出45
D．无任何输出
单项选择题
在窗体上画一个名称为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 lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A．10
B．16
C．12
D．20
相关试题