VB编程题,在线求解。求大神指教

编程实现:输入某课程的百分制成绩mark,要求转换成对应五级制的评定标准并输出,评定条件如下:优(100≤mark≥90)良(80≤mark<90)等级=中(70≤mar... 编程实现:输入某课程的百分制成绩mark,要求转换成对应五级制的评定标准并输出,评定条件如下:

优 (100≤mark≥90)
良 (80≤mark<90)
等级= 中 (70≤mark<80)
及格 (60≤mark<70)
不及格 (0≤mark<60)
在线求解。
展开
 我来答
听不清啊
高粉答主

2015-01-10 · 说的都是干货,快来关注
知道顶级答主
回答量:7.8万
采纳率:89%
帮助的人:1.9亿
展开全部
Private Sub Command1_Click()
mark = CInt(InputBox("请输入一个百分制成绩:"))
Select Case mark
Case Is > 100
MsgBox ("成绩输入有误!")
Case Is >= 90
MsgBox "优"
Case Is >= 80
MsgBox "良"
Case Is >= 70
MsgBox "中"
Case Is >= 60
MsgBox "及格"
Case Is >= 0
MsgBox "不及格"
Case Is < 0
MsgBox ("成绩输入有误!")
End Select
End Sub
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程,scratch和python也是其中的一种,属于入门级编程,以其简单生动的画面获得无数学生的喜爱,深圳市创客火科技有限公司是一家做教育无人机的公司,旗下有编程无人机,积木无人机及室内外编队,每款飞机含有... 点击进入详情页
本回答由--提供
匿名用户
推荐于2016-11-21
展开全部
Private Sub Command1_Click()
    Dim mark As Integer
    mark = Val(Text1.Text)
    If (mart >= 90 And mart <= 100) Then
        Print "优"
    End If
    If (mart >= 80 And mart < 90) Then
        Print "良"
    End If
    If (mart >= 70 And mart < 80) Then
        Print "中"
    End If
    If (mart >= 60 And mart < 70) Then
        Print "及格"
    End If
    If (mart >= 0 And mart < 60) Then
        Print "不及格"
    End If

End Sub
追问
谢谢你啦。。大神,我还有几个问题。可以在帮帮忙么?
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式