private sub form_click()
c=4
d=inputbox("请输入1个数")
d=val(d)
do while d>0
    if  d>c then
        c=c+1
    end if
    d=inputbox("请输入1个数")
loop
 print c+d
end sub
程序运行后单击窗体,如果在输入对话框中依次输入1,2,3,4,5,6,7,8,9,0运行结果为什么是12
第一次判数if语句1>4为假跳出if 语句,第二次判断if 语句2>4的时候为什么执行c=c+1
第一次为什么不执行c=c+1呀?因为1>4和2>4都为假呀,为什么第一次不加,而第二次加呢?请高手解释一下!
谢了!!!!

楼主在第二条d=inputbox("请输入1个数")语句没有加VAL函数,所得的D不是数值,而是字符.经过转换后所得的什不是你自己想像中的2,3等等.故没有达到预期效果,只要加一个VAL就行.

private sub form_click() c=4 d=inputbox("请输入1个数") '这两行代码得到的d是数值，就是你用的数值1 d=val(d) do while d>0 if d>c then c=c+1 end if d=inputbox("请输入1个数")　　　‘这里的d 由于没有用函数转换，得到的是字符，就是你循环时的2、3……，它们不是　　　　　　　　 数值了,当它们与c比较时，会转换成ascii码比较。应改为d=val(input("请输入1数“)) loop print c+d end