VB6.0 判断成绩级别（及格 、不及格、优秀）源代码实例

在这里小编给大家提供VB6.0 判断成绩级别（及格 、不及格、优秀）源代码实例下载，都是比较常用和简单的。有需要学习相关编程的可以下载回去研究一下。
考试成绩多级别判断，这个可嵌入到一个完整的学生考试成绩管理系统中，用来判断学生考试成绩属于哪一个级别。比如输入一个成绩，判断该成绩是及格、不及格、或优秀等级别。我们将判断机制写入到按钮事件中，用户单击按钮，则执行级别判断，主要是使用if elseif来判断等级，如下示：
　　Private Sub Command1_Click()
　　x = Val(Text1) '取文本框的值进行判断
　　If x < 60 Then '利用多分支结构的多行格式
　　 Label2.Caption = "此成绩为：不及格"'判断结果放到标签里显示
　　ElseIf x < 70 Then
　　 Label2.Caption = "此成绩为：及格" '成绩被分成五个级别定制
　　ElseIf x < 80 Then
　　 Label2.Caption = "此成绩为：中等"
　　ElseIf x < 90 Then
　　 Label2.Caption = "此成绩为：良好"
　　Else
　　 Label2.Caption = "此成绩为：优秀"
　　End If
　　Text1.SetFocus '判断后文本框内成绩被选中等待用户下一次输入
　　Text1.SelStart = 0
　　Text1.SelLength = Len(Text1)
　　End Sub

关键词：成绩管理,等级判断,