单项选择题

设有如下程序：
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 If
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的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click() Dim i As Integer，s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是
A．6
B．7
C．8
D．9
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer，n As Integer For i=0 To 50 i = i + 3 n = n + 1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A．2
B．3
C．4
D．5
相关试题