Question

Inputbox函数，按“取消”的问题

制作一个输入成绩来判定等第的程序
代码：
Dim fs As Integer
fs = Val(InputBox("请输入一个数字", "分数", 100))
If fs > 100 Or fs < 0 Then
MsgBox("不能超过100或小于0", , "错误")
ElseIf fs >= 90 Then
TextBox3.SelectedText = fs & "分:优秀"
ElseIf fs >= 80 Then
TextBox3.SelectedText = fs & "分:良好"
ElseIf fs >= 70 Then
TextBox3.SelectedText = fs & "分:中等"
ElseIf fs >= 60 Then
TextBox3.SelectedText = fs & "分:及格"
Else
TextBox3.SelectedText = fs & "分:不及格"
End If

在输入框我按了取消后，在TextBox3直接就输出了 0分:不及格 ，如何才能实现按取消后可以执行我需要的代码？

Answer 1

Dim fs As Integer
fs = Val(InputBox("请输入一个数字", "分数", 100))
If fs > 100 Or fs < 0 Then
MsgBox("不能超过100或小于0", , "错误")
ElseIf fs >= 90 Then
TextBox3.SelectedText = fs & "分:优秀"
ElseIf fs >= 80 Then
TextBox3.SelectedText = fs & "分:良好"
ElseIf fs >= 70 Then
TextBox3.SelectedText = fs & "分:中等"
ElseIf fs >= 60 Then
TextBox3.SelectedText = fs & "分:及格"
ElseIf fs < 60 And fs>0 Then
TextBox3.SelectedText = fs & "分:不及格"
ElseIf fs = 0 Then
Exit Sub
End If

Answer 2

t = InputBox("请输入一个数字", "分数", 100)
if t="" then
'要执行的代码
exit sub
end if
fs=val(t)