设有如下程序：Private Sub Commandl_click（)Dim c As Integer d As Integerc=4d=InputBox（"请输
程序,整数,单击
已帮助 人
设有如下程序： 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。