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

题目

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

相似考题

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
解析：本题中最后输入0时结束循环，所以最后d的值为0，故判断输出结果其实就是计算c的值，c从输入5开始(除最后的0)每次加1(共5次)，所以c最后为9。
更多“设有如下程序:Private Sub Command1_Click()Dim c As Integer,d As Integerc=4d=InputBox(“请输 ”相关问题

  • 第1题：

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

  • 第2题：

    设有如下定义:typedefint*INTEGER;INTEGERp,*q;则()是正确的叙述。

    A.p是int型变量

    B.q是基类型为int的指针变量

    C.p是基类型为int的指针变量

    D.程序中可用INTEGER代替int类型名


    参考答案：C

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

    在标准模块中用：Dim或Private关键字定义的变量是______变量，它们只能在程序的模块中使用。


    正确答案：局部标准
    局部标准

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

相关内容