vb程序根据输入的成绩转化为成绩等级
答案:2 悬赏:0 手机版
解决时间 2021-01-23 08:35
- 提问者网友：焚苦与心
- 2021-01-22 14:47
vb程序根据输入的成绩转化为成绩等级
最佳答案
- 五星知识达人网友：蓝房子
- 2021-01-22 15:30
Private Sub Command1_Click()
x = CInt(InputBox("成绩＝"))
Select Case x
Case x <= 100 And x >= 85
dd = "A"
Case x >= 75 And x < 85
dd = "B"
Case x >= 60 And x < 75
dd = "C"
Case x >= 0 And x < 60
dd = "D"
Case Else
dd = "输入错误！"
End Select
Print x; "==>"; dd
End Sub
x = CInt(InputBox("成绩＝"))
Select Case x
Case x <= 100 And x >= 85
dd = "A"
Case x >= 75 And x < 85
dd = "B"
Case x >= 60 And x < 75
dd = "C"
Case x >= 0 And x < 60
dd = "D"
Case Else
dd = "输入错误！"
End Select
Print x; "==>"; dd
End Sub
全部回答
- 1楼网友：思契十里
- 2021-01-22 15:39
用select case 语句
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯