哪位高手帮我写几句VB的语句

来源：百度知道 编辑：UC知道 时间：2024/05/11 12:27:14
建立一程序，根据成绩计算等级。
1、按图例建立两个标签对象、两个文本对象和一个命令按钮对象。
2、当光标移到成绩的文本框时，清除两个文本框中的内容。
3、点击“计算等级”按钮时，首先检查输入成绩的正确性(成绩必须是数值，并在0到100之间)，如成绩输入不正确，在等级文本框中显示 “输入出错!”；当成绩正确时，根据成绩计算等级：优、良、中、及格和不及格。要求用Select Case语句编写程序。(提示：X = 成绩\10)

新建工程,两个标签对象、两个文本对象和一个命令按钮对象。

全部代码:
Private Sub Command1_Click()
If IsNumeric(Text1) = flase Or (Val(Text1) < 0 And Val(Text1) > 100) Then
Text2 = "输入出错!"
Else
Dim x%
x = Val(Text1) \ 10

Select Case True
Case x >= 9
Text2 = "优"
Case x >= 8
Text2 = "良"
Case x >= 7
Text2 = "中"
Case x >= 6
Text2 = "及格"
Case x < 6
Text2 = "不及格"
End Select
End If
End Sub

Private Sub Form_Load()
Text1 = ""
Text2 = ""
Label1.Caption = "成绩"
Label2.Caption = "等级"
Command1.Caption = "计算等级"
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub