要答案vb做啊

来源：百度知道 编辑：UC知道 时间：2024/06/08 12:13:54
从键盘上输入一个学生的学号和成绩，然后输出该学生的学号和考试成绩，并根据成绩按下面的规定输出对该学生的评语
成绩80-100 60-79 50-59 40-49 0-39
评语verygood good fair poor fail
快点啊
好急啊
刚学vb啊是个菜鸟

哈哈 偶以前做过一个可参考

Option Explicit
Dim x As Integer
Private Sub Form_Load()
x = Val(InputBox("请输入0~100之间的数值", "成绩等级"))
Select Case x
Case 90 To 100
Label1.AutoSize = True
Label1.ForeColor = vbRed
Label1.BackStyle = 0
Label1.FontSize = 15
Label1.Caption = "你的成绩优秀"
Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2
Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2
Case 80 To 89
Label1.AutoSize = True
Label1.ForeColor = vbRed
Label1.BackStyle = 0
Label1.FontSize = 18
Label1.Caption = "你的成绩良好"
Label1.Top = (Form1.ScaleHeight - Label1.Height) / 2
Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2
Case 60 To 79
Label1.AutoSize = True
Label1.ForeColor = vbRed
Label1.BackStyle = 0
Label1.FontSize = 18
Label1.Caption = "你的成绩及格"
Label1.Top = (Form1.ScaleHeight -