[单项选择题] 设有如下程序： Private Sub Command1_Click()Dim C As Integer, d As Integerc=4d=InputBox("请输入一个

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

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