问题:在程序中添加inputbox函数后,运行时,按"取消"出现错误,应该怎么解决啊????????????
代码如下:
Dim d%, n%, k%, sum&
Private Sub Form_activate()
k = k + 1
bt: d = InputBox("请输入第" + Str(k) + "学生的成绩", "输入成绩", 0)
n = MsgBox("确定是否继续输入分数?", 36, "是否继续输入")
sum = sum + d
k = k + 1
If n = 6 Then
GoTo bt
End If
Label4.Caption = k - 1
Label5.Caption = sum
Label6.Caption = Int(sum / (k - 1) + 0.5)
End Sub

自己写错误处理啊。这也要来问……

能不能告诉我如何进行错误处理,我是个新手,谢拉

应该写Dim strInput as String
strInput = InputBox("请输入第" + Str(k) + "学生的成绩", "输入成绩", 0)
d = Val(strInput)


by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url] [url=http://blog.programfan.com/article.asp?id=24801]请不要写出非int声明的main函数[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

Private Sub Command1_Click()
Dim str As String

str = InputBox("")
If Not CBool(StrPtr(str)) Then
MsgBox "你按的是取消键"
Else
MsgBox "你按的是确定键"
End If

End Sub

晕死，又让我看见goto。。。。。。。。。
这里明明不需要也不应该使用


by 雨中飞燕 QQ:78803110 C/C++讨论群:5305909

[url=http://bbs.bc-cn.net/viewthread.php?tid=163571]请大家不要用TC来学习C语言，点击此处查看原因[/url] [url=http://blog.programfan.com/article.asp?id=24801]请不要写出非int声明的main函数[/url]
[url=http://bbs.bc-cn.net/viewthread.php?tid=162918]C++编写的Windows界面游戏[/url]
[url=http://yzfy.org/]C/C++算法习题(OnlineJudge)：[/url] http://yzfy.org/

Private Sub Form_activate()
这个里写这个， 晕忽忽

我是个菜鸟,谢谢各位高手多多指点

用setjmp/longjmp?? 呵呵

InputBox 可能返回 vbNullString

-----------------------
Dim lpszScore As String
lpszScore = InputBox("...", "...", "0")

d = IIf(IsNumeric(lpszScore), CDbl(lpszScore), 0)
'
Debug.Print IIf(lpszScore=vbNullString, "Cancel", "OK") & " button was clicked."