VB源码最新内容
VB源码相关内容
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
考试成绩多级别判断,这个可嵌入到一个完整的学生考试成绩管理系统中,用来判断学生考试成绩属于哪一个级别。比如输入一个成绩,判断该成绩是及格、不及格、或优秀等级别。我们将判断机制写入到按钮事件中,用户单击按钮,则执行级别判断,主要是使用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
关键词:成绩管理,等级判断,
VB源码相关推荐
- 2.75KVb 窗口置顶功能一例源代码实例
- 2.37KVB6.0屏幕放大镜源代码实例
- 115K强大的VB波形图生成工具源代码实例
- 20.5KVB DDE服务器开发源代码实例
- 2.19KVB6 求三角形的面积和体积源代码实例
- 113KVB即时换肤,随时切换界面皮肤外观源代码实例
- 7.53KVB TIPS 类似气泡式的提示框特效源代码实例
- 990K功能实用的Vb版音乐播放器程序源代码实例
- 3.27Kvb将窗体分隔成两个或多个部分_窗体分栏效果源代码实例
- 189KVB 开发的IIS网站服务器程序源代码实例
- 3.43Kvb6.0演示一些鼠标控制的源代码实例
- 5.91KVB6 制作简易谱曲键盘 键盘演奏音乐源代码实例
VB源码人气排行更多》
- 2.05KVB6.0 判断成绩级别(及格 、不及格、优秀)源代码实例
- 2.93K又一个VB串口发送接收数据源代码实例
- 1.83KVB6.0 调用系统菜单的制作实例源码源代码实例
- 36.9KVB串口调试程序 完善版源代码实例
- 2.47KVB 从INI文件读取程序设置源代码实例
- 2.01KVB求解数学问题,求两个数最大公约数源代码实例
- 7.83KVB6.0 质量流量计串口通讯源代码实例
- 2.23KVB从INI文件一次性获取信息源代码实例
- 18.3KVB 6.0源码 批量重命名文件源代码实例
- 19.1KVB 串口通讯:浓度分析仪程序源码源代码实例