Question

用vb程序做 在文本框1中输入百分制成绩,在文本框2中输出五分制等级

VB程序制作一个成绩等级程序，要求在文本框Text1中输入成绩，点击 等级按钮时，文本框里就显示相应等级。具体等级划分如下：90分以上为优，80到89为好，70到79为良，60到69为及格，60分以下为不及格

用select case做。。谢谢~

Answer 1

Private Sub Command1_Click()
   Dim a As Single
   a = Val(Text1.Text)
   Select Case a '90分以上为优，80到89为好，70到79为良，60到69为及格，60分以下为不及格
      Case Is < 60
         Text2.Text = "不及格"
      Case 60 To 69
         Text2.Text = "及格"
      Case 70 To 79
         Text2.Text = "良"
      Case 80 To 89
         Text2.Text = "好"
      Case Else
         Text2.Text = "优"
   End Select
         
End Sub

Answer 2

select case cint(text1.text)
    case is >=90
        text2.text="优"
    case is >=80
        text2.text="好"    
    case is >=70
        text2.text="良"
    case is >=60
        text2.text="及格"
    case is <60
        text2.text="不及格"
end select