设有如下程序：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 + dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。

题目

设有如下程序：

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

相似考题

1.设有如下程序： Private Sub Commandl_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．12B．11C．10D．9

2.设有如下程序： 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．12B．11C．10D．9

3.设有如下程序： 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．12B．11C．10D．9

4.在窗体上画一个名称为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 IfNextPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为（ ）。A．10B．16C．12D．20

更多“设有如下程序: PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox ”相关问题

  • 第1题：

    在窗体上画一个命令按钮，然后编写如下事件过程：

    Private Sub Command1_Click( )

    Do Until b ＜ 0

    a = InputBox( "输入a的值" )

    a = Val(@A@b = InputBox( "输入b的值" )

    b =VM(@B@a=a+b

    Loop

    Print a

    End Sub

    程序运行后，依次输入5,4,3,2,1,0,-1,-2,则输出结果是【 】。


    正确答案：-3
    -3 解析：本题程序运行后，共输入4组数据，a依次取值为5、3、1、-1，b依次取值为4、2、0、 -2。循环条件是“b0”，当“a=1，b=0”时，还要再输入第4组数据，这时“a=-1，b=-2”，然后结束循环。

  • 第2题：

    下列程序： Private Sub Command1_Click() a=InputBox("请输入") b=InputBox("请输入") Print=a+b End Sub 运行时输入3和4，输出的结果是

    A．7

    B．34

    C．3+4

    D．出错


    正确答案：B
    解析：InputBox函数的函数值是字符串类型，由于变量a和b没有说明，故是变体类型，当把函数值赋给变量a和b后，a和b是变体字符串，方法Print输出的是两个字符串的连接结果34。

  • 第3题：

    设有如下程序： 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


    正确答案：D
    解析：在输入对话框中依次输入1～4时，因d＞c的结果为Falsc，变量c没有进行任何计算；输入5～9时，因d＞c的结果为True，变量c的计算过程为：4+1+1+1+1+1=9；输入0时，退出DO循环，最后打印出9+0=9的结果。

  • 第4题：

    以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End Sub

    A．3+4

    B．7

    C．34

    D．12


    正确答案：C
    解析：InputBox函数返回的值是字符串类型，由于变量a和b没有说明，所以是变体类型。当把函数值赋给变量a和b后，a和b是变体字符串，Print输出的是两个字符串的连接结果34。

  • 第5题：

    设有如下程序： 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


    正确答案：D

相关内容