急谁能帮我做一道visual basic 程序题？

2025-02-24 06:23:44

推荐回答（4个）

回答1：

Private Sub Command1_Click()
mark = Val(InputBox("输入成绩:"))
Select Case mark
Case 90 To 100
Me.Print "优秀"
Case 80 To 89
Me.Print "良好"
Case 70 To 79
Me.Print "中等"
Case 60 To 69
Me.Print "及格"
Case Is < 60
Me.Print "不及格"
End Select
End Sub

or
Private Sub Command1_Click()
mark = Val(InputBox("输入成绩:"))
Me.Print IIf(mark < 0, "输入错误！", _
IIf(mark < 60, "不及格", _
IIf(mark < 70, "及格", _
IIf(mark < 80, "中等", _
IIf(mark < 90, "良好", _
IIf(mark <= 100, "优秀", "输入错误！"))))))
End Sub

回答2：

在窗体上放一个命令按钮，程序运行单击按钮，要求输入成绩。单击确定输出等级。代码如下：

Private Sub Command1_Click()
Dim cj As String
cj = InputBox("请输入成绩:")
Do While Not IsNumeric(cj)
MsgBox "请输入数字！", vbOKOnly + vbInformation, "提示"
cj = Val(InputBox("请输入成绩:"))
Loop
Select Case cj
Case 90 To 100
Print "优秀"
Case 80 To 89
Print "良好"
Case 70 To 79
Print "中等"
Case 60 To 69
Print "及格"
Case Is < 60
Print "不及格"
End Select

End Sub

Private Sub Form_Load()
Command1.Caption = "运行"
End Sub

回答3：

private sub form_click()
1
s = inputbox("输入成绩")
if not isnumeric(s) or s < 0 or s > 100 then goto 1
select case s
case 90 to 100
msgbox "优秀"
case 80 to 89
msgbox "良好"
case 70 to 79
msgbox "中等"
case 60 to 69
msgbox "及格"
case else
msgbox "不及格"
end select
end sub

回答4：

试试3行代码:

i = Val(InputBox("请输入分数!"))
i = IIf(IIf(i < 0, 0, i) > 100, 100, i) \ 10 + 1
Print Choose(i, "不及格", "不及格", "不及格", "不及格", "不及格", "不及格", "及格", "中等", "良好", "优秀", "优秀")

FIFA online2上左边后卫和中后卫的选择

什么古诗适合硬笔书法？

电脑进入桌面后几分钟就自动关机，进入BIOS界面就不会，但开机时不断按f8不出现安全模式那个界面，有

喝酒喝多了，快速解酒方法？

一道闪电大约等于多少度电