老师，我能不能问一个关于其他语言的问题

来源：3-6 表的外连接

Kepler_

2020-04-10 09:41:16

老师，您好：
我有一个很古老语言的问题就是VB，我们学校老师就是还在教这个语言，但是为了毕业，只能说学一下，但是最近在做一个作业的时候，我做完了以为是满分结果，才那么点，我一看那个答案，却是跟我不太一样，我想，这下面两个答案到底我的答案哪里不够好，我考虑了，成绩不能超过100分，虽然题目要求并没有，而且我又考虑到了如果要是输入字符串或者负数应该是怎么办，而老师的答案却是跟我不太一样，而且我发现老师的答案一旦输入字符串或者负数就是要么报错，要么就是没有输入，然后我的答案如果是输入负数或者是字符串就是执行最后的语句"请输入语文成绩"，我知道老师的刚开始有声明整数变量，但是，我想的是站在用户的角度去看，如果用户输入了一个小数或者是字符串不就报错了嘛？

请看：
程序设计：界面中有一个文本框（text1),一个判断按钮（command1)，程序运行时在文本框中输入一个学生的语文成绩，单击判断按钮在窗体中显示该生的成绩等级（90分以上为优秀，80-89分为良好，70-79为中等，60-69为合格，60以下为不合格）。（提示，只能用selsect case语句编写)

老师答案：
dim cj as integer
cj=inputbox("请输入成绩")
select case cj
case is >=90
        print "成绩优秀"
case is >=80
        print "成绩良好"
case is >=70
        print "成绩中等"
case is >=60
        print "成绩合格"
case else
        print "成绩不合格"
end select

我的答案：
Dim a
a = InputBox("请输入您的语文成绩：", "询问")
Select Case a
          Case 90 To 100
          MsgBox ("您的语文成绩优秀")
          Case 80 To 89
          MsgBox ("您的语文成绩良好")
          Case 70 To 79
          MsgBox ("您的语文成绩中等")
          Case 60 To 69
          MsgBox ("您的语文成绩及格")
          Case Else
          Select Case a
          Case 0 To 60
          MsgBox ("您的语文成绩不合格")
Case Else
          MsgBox ("请输入您的语文成绩")
          End Select
End Select