第一问答网»论坛 › 中问网 › 问答 › vb高手帮个忙

vb高手帮个忙

[复制链接]

11 |

2 | 2009-4-19 23:36:30 | 显示全部楼层 |阅读模式

多分支选择语句实现：用文本框输入学生某们课程的分数后，给出登记评分。
优 90《=成绩《=100
良 80《=成绩《 90
……

使用道具举报

千问 | 2009-4-19 23:36:30 | 显示全部楼层

准备一个按纽和一个文本框 Option Explicit: Dim a As IntegerPrivate Sub Command1_Click()a = Val(Text1.Text)Select Case aCase 90 To 100MsgBox "优秀"Case 80 To 89MsgBox "良好"Case 70 To 79MsgBox "中等"Case 60 To 69MsgBox "及格"Case 0 To 59MsgBox "不及格"Case ElseMsgBox "请输入一个0到100之间的数字"End SelectEnd Sub...

使用道具举报