Visual Basic 6.0 InputBox如何让输入为空和取消/退出的功能不一致

Question

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警告用户输入的数据有误并让用户重新输入，请问如何解决？

Answer 1

先判断是否为空值，再转换数据类型：

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