设有如下程序： Private Sub Command1_Click() 　　D

问题单项选择题

设有如下程序：
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，则输出结果是( )。