2. 计算机
  3. 设有如下程序： Private Sub Commandl_click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0

设有如下程序： Private Sub Commandl_click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0

admin2009-02-10  55
问题 设有如下程序：  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、12
B、11
C、10
D、9
答案D
解析 Do While语句是条件为True时，执行循环体。本题中当d＞c时，执行c=c+1，即在输入对话框中输入5、6、7、8、9时执行该语句，也就是该语句被执行了5次，故c=4+1*5=9。而当在输入对话框中输入0时，循环结束，此时d=0。所以最后输出结果为9。
转载请注明原文地址:https://www.kaotiyun.com/show/id2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)