实例六：查询学生成绩

实例六：查询学生成绩

( 一)使用If...Then语句查询学生成绩

要求：大于60分为及格，其余的为不及格

运行界面如下：

程序代码如下：

Private Sub Command1_Click()
  Dim x As Single
  Dim y As String
  x = Val(Text1.Text)
  y = " 不及格"
  If x >= 60 Then y = "及格"
  Text2.Text = y
End Sub

Private Sub Command2_Click()
End
End Sub

 

( 二)使用If...The...Else结构查询学生的成绩

要求：大于等于60分的为及格，其余的为不及格

运行界面如下：

程序代码如下：

Private Sub Command1_Click()
  Dim x As Single
  Dim y As String
  x = Val(Text1.Text)
  If x >= 60 Then
     y = " 及格"
  Else
     y = "不及格"
  End If
  Text2.Text = y
End Sub

Private Sub Command2_Click()
 End
End Sub

  （三）使用多个条件的If...Then...Else结构查询学生成绩

要求：将成绩分成优，良，中，及格，不及格，90～100为优，80～90为良，70～80为中，60～70为及格，60分以下为不及格．

程序运行界面如下：

程序代码如下：

Private Sub Command1_Click()
  Dim x As Single
  Dim y As String
  x = Val(Text1.Text)
  If x >= 90 Then
    y = " 优"
  ElseIf x >= 80 Then
    y = "良"
  ElseIf x >= 70 Then
    y = "中"
  ElseIf x >= 60 Then
    y = "及格"
  Else
    y = "不及格"
  End If
  Text2.Text = y
End Sub

Private Sub Command2_Click()
  End
End Sub

程序代码为：

Private Sub Command1_Click()
  Dim x As Single
  Dim y As String
  x = Int(Text1.Text)
  Select Case x
  Case 90 To 100
     y = " 优"
  Case 80 To 89
     y = "良"
  Case 70 To 79
     y = "中"
  Case 60 To 69
    y = "及格"
  End Select
  Text2.Text = y
End Sub

Private Sub Command2_Click()
  End
End Sub
程序分析：

x=Int(text1.text) 用来将分数取整，因为分数可能是小数．

case 90 to 100 后面的值使用边续的范围表示90～100