VB如何让InputBox输入空字符串的时候警告用户输入的数据有误并让用户重新输入，但是单击取消或者单击退出按钮时就结束程序运行
(即如何解决单击取消，单击退出和输入为空意义不一致的问题)
Private Sub Command1_Click() '布局中的按钮，单击该按钮执行下述程序'
Dim score As Variant, A As Boolean
score = InputBox("请输入平均成绩:", "输入平均成绩")
A = IsNumeric(score)
If score = "" Then '如果输入为空或者单击了取消或者单击退出'
End '那么结束程序'
End If
Do While score < 0 or score > 100 Or A = False
x = MsgBox("输入有误", vbExclamation, "警告")
score = InputBox("请输入平均成绩:", "输入平均成绩")
If score >= 0 And score <= 100 Then
Exit Do
End If
Loop
Select Case score
Case 0 To 59
Picture1.Print "平均成绩小于60，不能评定奖学金！"
Case 60 To 69
Picture1.Print "平均成绩为" & score & "可以评定四等奖学金！"
Case 70 To 79
Picture1.Print "平均成绩为" & score & "可以评定三等奖学金！"
Case 80 To 89
Picture1.Print "平均成绩为" & score & "可以评定二等奖学金！"
Case 90 To 100
Picture1.Print "平均成绩为" & score & "可以评定一等奖学金！"
Case Else
End
End Select
End Sub
目前是输入为空也退出程序，现在要求输入为空时MsgBox警告用户输入的数据有误并让用户重新输入，请问如何解决？
先判断是否为空值，再转换数据类型：
score = InputBox("请输入平均成绩:", "输入平均成绩")
If score = "" Then '如果输入为空或者单击了取消或者单击退出'
End '那么结束程序'
End If
A = IsNumeric(score)
用CInt函数转换为整形再用if语句判断
Do While CInt(score) < 0 or CInt(score) > 100 Or A = False