数据输入——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，则输出结果是

请高手指教，拜托把过程详细的讲一下，我是新手，谢谢啦

你的代码看，结果是9，为什么呢，是因为d是你输入的1，2，3，4，5，6，7，8，9时这时循环还没有结束，而你再输入0时print c+d这时的c=9，d=0循环结束，输出c+d的值，所以是9

看看这个吧

 

http://www.bccn.net/Article/kfyy/vb/jc/Index.html

当你输入5后开始每次C都会加1知道输入0结束 最后的输出结果应该是9+9=18