问题:在程序中添加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

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

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