在循环语句中inputbox怎样才能使"取消"和关闭按钮生效?以下为例,在例子中运行后是不是一定要输入-1才能退出来,我要是想取消的话它就没反应了
n = Val(InputBox("请输入一个正实数:", "求和"))
s = 0
Print Tab(10); "您输入的数为:";
While n <> -1
While n > 0
Print n; ",";
s = s + n
n = Val(InputBox("请输入一个正实数:", "求和"))
Wend
If n <> -1 Then n = Val(InputBox("错误!请输入一个正实数:", "求和"))
Wend
Print
Print Tab(10); "所有正实数总和为:"; s

[[it] 本帖最后由 yi157 于 2008-6-5 20:58 编辑 [/it]]

没看懂楼主主题的意思

是这样的,在例子中运行后是不是一定要输入-1才能退出来,我要是想取消的话它就没反应了

If (InputBox("错误!请输入一个正实数:", "求和")) = "" Then
'''''MsgBox ("sdfgdfsg")''''这里写相应的处理机制
End If

输入为空或者取消，INPUTBOX返回的都是空

mystr = InputBox("提示", "标题")
If StrPtr(mystr) = 0 Then ' 点击了取消
  MsgBox "点击了取消或按了 ESC 键"
End If

这样可以判断是不是取消按纽，如果是取消，则弹提示，如果输入为空并且是按的确认按纽，则不提示，也就是区分了取消还是确认的问题

按你说的,然后把val()去掉就搞定了,
你是大大的好人,谢谢!
有空一定登门拜访!