[单项选择题] 设有如下程序：Private Sub Command1

[单项选择题] 设有如下程序：Private Sub Command1

[单项选择题] 设有如下程序：Private Sub Command1_Click()Dim c As Integer, d As Integer c = 4 d = InputBox("请输入一个整数")Do While d > 0If 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．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。