问题
单项选择题
设有如下程序：
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。