单项选择题

设有如下程序：
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
<上一题 目录 下一题>
热门 试题

单项选择题
单击命令按钮时，下列程序段的执行结果为( )。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m 10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12;y=34 Call Procl(x,y) Print x;y End Sub
A．12 34
B．2 34
C．2 3
D．12 3
单项选择题
在窗体上画一个名称为Command1的命令按钮，编写如下程序： Private Sub Command1_Click() Print p1(3,7) End Sub Public Function p1(x As Single,n As Integer) As Single If n=0 Then p1=1 Else If n Mod 2=1 Then p1=x*x+n Else p1=x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的结果是( )。
A．2
B．1
C．0
D．16
相关试题