Question

关于VB的一个小问题

让程序在运行时，输入小于0或大于100的值，能在标签Label3上显示“成绩输入无效”（在①那应该再写什么呢？
）
Private Sub Command1_Click()
ss = Val(Text2.Text)
If ss < 0 Then '①
dd = "成绩输入无效，请重新输入！"
ElseIf ss < 60 Then
dd = "成绩不合格，判定为E。" & vbCrLf + "希望多多努力！加油！"
ElseIf ss < 80 Then
dd = "成绩合格，判定为C。" & vbCrLf + "希望下次测试能考好！"
ElseIf ss < 95 Then
dd = "成绩良好，判定为B。" & vbCrLf + "请争取下次向A级冲刺！"
ElseIf ss <= 100 Then '②
dd = "成绩优秀，判定为A。" & vbCrLf + "希望以后再接再励！"
End If
'③
运行程序，发现在文本框Text1输入会考证号与在文本框Text2输入测试成绩并单击命令按钮Command1后，在标签Label3上未能显示判定结果。请在注释③所在的行添加正确的事件代码，实现上述功能。
End Sub

Answer 1

①改成 if ss<0 or ss>100 then

②不用改

③写 label3.caption=dd

完成！就这么简单！