文件名称：VB6.0 判断成绩级别（及格 、不及格、优秀）.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 05:43:58
VB源码-其它源码
考试成绩多级别判断，这个可嵌入到一个完整的学生考试成绩管理系统中，用来判断学生考试成绩属于哪一个级别。比如输入一个成绩，判断该成绩是及格、不及格、或优秀等级别。我们将判断机制写入到按钮事件中，用户单击按钮，则执行级别判断，主要是使用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
【文件预览】：
srcfans.com
----成绩级别()
--------E083.vbp(662B)
--------Form1.frm(2KB)
--------E083.vbw(48B)
--------MSSCCPRJ.SCC(189B)