运行效果:

程序代码:

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
Select Case CInt(Text1.Text)
Case Is >= 85
Label2.Caption = "成绩:" & "优秀"
Case 70 To 84
Label2.Caption = "成绩:" & "良好"
Case 60, 61, 62, 63, 64, 65, 66, 67, 68, 69
Label2.Caption = "成绩:" & "及格"
Case Else
Label2.Caption = "成绩:" & "差"
End Select
End If
End Sub

程序小结:
1、IsNumeric()函数含义“是数字”,即判断是否为数字;
2、CInt():强制转换为整型,小数部分四舍五入;
3、Case分支语句后面可以使用的三种形式:“Is”,“To”,“,”。

VB编程:SelectCase多分支选择结构判断成绩优良-11_彭世瑜_新浪博客相关推荐

  1. VB编程:While...Wend语句实例漂亮的星星-17_彭世瑜_新浪博客

    运行效果: 程序代码: Private Sub Command1_Click() Dim a As Long, b As Long Form1.Cls               '清空窗体 Whil ...

  2. VB编程:UCase转大写,LCase转小写-4_彭世瑜_新浪博客

    Private Sub Text1_Change() Text2.Text = LCase(Text1.Text)    '转换成小写字母 Text3.Text = UCase(Text1.Text) ...

  3. [转载]VB网络聊天程序的开发(1)_彭世瑜_新浪博客

    原文地址:VB网络聊天程序的开发(1)作者:VB源码博客 互联网已经成为现代社会生活中非常普及的一项事务.在互联网上可以查询信息.电子购物,还可以进行网络聊天.本博将从今天起,具体的计解一下利用VB开 ...

  4. VB编程:DateSerial通过闰月判断闰年-47_彭世瑜_新浪博客

    运行效果: 程序代码: Private Function MonthToLeapYear(ByVal Yea As Integer) As Boolean MonthToLeapYear = Day( ...

  5. VB编程:UBound获取数组上限;LBound获取数组下限-25_彭世瑜_新浪博客

    运行效果: 程序代码: Private Sub Command1_Click() Dim a(5) Text1.Text = UBound(a) Text2.Text = LBound(a) End ...

  6. VB编程:DoWhile...Loop当循环计算0~100累加和-15_彭世瑜_新浪博客

    一.运行效果 二.技巧总结 1.常用的循环有三种: (1)for循环(For...Next): (2)当循环(Do...While...Loop)或者(While...Wend): (3)直到循环(D ...

  7. VB编程:Timer控件实例幼儿识字卡片-35_彭世瑜_新浪博客

    运行效果: 程序代码: Dim myarray(10) As String     '定义全局变量,文字数组 Dim i As Integer Private Sub Form_KeyDown(Key ...

  8. VB编程:去除文本框首尾空行-51_彭世瑜_新浪博客

    程序代码 Private Sub Command1_Click()     Dim j As Integer     Dim i(100) As String     Text2 = "&q ...

  9. VB编程:Val字符串转数字,CStr数字转字符串-6_彭世瑜_新浪博客

    效果显示: Private Sub Text1_Change() Text2.Text = CStr(Text1.Text)     '转字符串 Text3.Text = Val(Text1.Text ...

最新文章

  1. 吴恩达、李飞飞、沈向洋:2021年的人工智能将会如何发展?
  2. SpringBoot 之 普通类获取Spring容器中的bean
  3. windows获取文件夹下所有文件名的方法
  4. Codeforces Round #191 (Div. 2)
  5. 19_03_26校内训练[魔法卡片]
  6. 最近很火的MySQL:抛开复杂的架构设计,MySQL优化思想基本都在这
  7. aws lambda_API网关和AWS Lambda进行身份验证
  8. 使用Flyway在Java EE中进行数据库迁移
  9. 点击回车事件(登录)
  10. javascript md5加密算法
  11. Sybase数据库技术,数据库恢复---分享Sybase数据库知识(博客文章索引@51cto)
  12. Genesis-3D新手入门——19.UI美化
  13. python pdf转word
  14. java实现万年历——超简单!
  15. STM32F427V系列的触摸屏驱动
  16. 【游戏开发题库】使用Unity制作Unity题库,支持题目录入和刷题(面试 | 笔试 | 自制题库 | 从基础到高级)
  17. 我们是如何解决偶发性的 502 错误的
  18. ES6 filter 过滤数组 | 图片onload同步等待获取图片宽高
  19. Android学习记录
  20. linux网络测速qerf,kehu.one在线网速测试,网站测速工具,测网速,网站访问速度测试-boce.com...

热门文章

  1. vuejs倒计时功能
  2. Transformer进行底层图像处理任务
  3. spawn webpack ENOENT解决方法
  4. 题目描述:把下面数组的首尾两个元素互换 <br>var arr = [“鹿晗“,“王俊凯“,“蔡徐坤“,“彭于晏“,“周杰伦“,“刘德华“,“赵本山“];
  5. 奈学DDD领域模型驱动设计
  6. 微信支付接口报【签名错误】,看这一篇就够了
  7. 985非科班本科毕业,当了两年CRUD程序员后,我躺平了
  8. 【大学生Python】用字典和列表实现手机通讯录
  9. 2019中国企业服务产业独角兽榜揭晓,容联荣膺“硬独角兽”
  10. 在农村创业有哪些优势和机会?