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

题目

设有如下程序： 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.假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String*10TelNuin As String*20End Type要求在执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk()DimB As Booksopen"c:\person.txt"For output As 1B.Name=InputBox("请输入姓名")B.TelNum=InputBox("请输入电话号码")write 1，______close 1End Sub

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 If d = InputBox（"请输入一个整数"）LoopPrint c + dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（ ）。A．12B．11C．10D．9

3.下面程序运行结果是( )。 Private Sub Form_Click() Dim x As Single,y As Single x=InputBox("请输入数据25"):y=InputBox("请输入数据10") Print x+y;InputBox("请输入数据25")+InputBox("请输入数据10") End SubA．_35_2510B．25102510C．_35_35_D．2510_35_

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

参考答案和解析
正确答案：D
解析：本题是对控制结构的综合考查。Do While……Loop循环的功能是：当指定的“循环条件”为Tree或直到指定的“循环条件”变为True之前重复执行一组语句。考生仔细分析即可做答。考生应该注意：Do．．．Loop是根据计算条件表达式以决定是否继续执行循环体中的代码；在循环结构中，循环条件必须是一个数值或者值为Tree (非零)或False(零)的表达式，在Do．．．Loop循环中，只要条件表达式为Tree就执行功能代码块；循环条件为True或非零，循环可以随意执行多少次，如果循环条件一开始便为False，则不会执行语句； Do循环可以嵌套，其嵌套的规则与For-Next循环相同。
更多“设有如下程序:Private Sub Command1_Click()DimCAsInteger,d AsIntegerc=4d=InputBox(“请输入一 ”相关问题

  • 第1题：

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

    Private Sub Command1 Click()

    a= Val(InputBox(“请输入一个整数”))

    b=Val(InputBox(“请输入一个整数”))

    Print a+b

    End Sub

    程序运行后，单击命令按钮，在输入对话框中分别输入12和34，输出结果为 ______。


    正确答案：46
    46 解析：考查InputBox函数的使用。InputBox函数返回的数据类型默认位字符串类型。Val(x)函数表示把变量x转换为数值。本题要求通过InputBox函数分别输入两个数据，并同时被转换为数值，再相加得到结果，其中a值为12，b值为34，结果为a+b=46。

  • 第2题：

    在窗体中添加一个命令按钮，然后编写如下代码：

    Private Sub Command1_Click()

    a＝InputBox("请输入一个整数")

    b＝InputBox("请输入一个整数")

    Print Val(a)+Val(b)

    End Sub

    程序运行后，单击命令按钮，在输入对话框中分别输入21和45，输出结果为【 】。


    正确答案：66
    66 解析：分析题意可知主要是对输入的两个数求和。故输入21和45后，输出结果为 (21+45)即66。

  • 第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题：

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


    正确答案：D
    解析：本题中最后输入0时结束循环，所以最后d的值为0，故判断输出结果其实就是计算c的值，c从输入5开始(除最后的0)每次加1(共5次)，所以c最后为9。

  • 第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

相关内容