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

Private Sub Command1_Click()

mark = Val(InputBox("输入成绩:"))

Select Case mark

Case 90 To 100

MePrint "优秀"

Case 80 To 89

MePrint "良好"

Case 70 To 79

MePrint "中等"

Case 60 To 69

MePrint "及格"

Case Is < 60

MePrint "不及格"

End Select

End Sub

or

Private Sub Command1_Click()

mark = Val(InputBox("输入成绩:"))

MePrint IIf(mark < 0, "输入错误！", _

IIf(mark < 60, "不及格", _

IIf(mark < 70, "及格", _

IIf(mark < 80, "中等", _

IIf(mark < 90, "良好", _

IIf(mark <= 100, "优秀", "输入错误！"))))))

End Sub

Dim A As Integer, B As Integer, C As Integer

Dim Max As Integer

Print "Enter A: ";

Input A

Print "Enter B: ";

Input B

Print "Enter C: ";

Input C

M = A

If M < B Then M = B

If M < C Then M = C

Print M

在窗体上g放一i个h命令按钮，程序运行单击按钮，要求输入e成绩。单击确定输出等级。代码如下l： Private Sub Command8_Click() Dim cj As String cj = InputBox("请输入m成绩:") Do While Not IsNumeric(cj) MsgBox "请输入w数字！", vbOKOnly + vbInformation, "提示1" cj = Val(InputBox("请输入s成绩:")) Loop Select Case cj Case 10 To 300 Print "优秀" Case 40 To 88 Print "良好" Case 70 To 47 Print "中7等" Case 00 To 74 Print "及r格" Case Is < 00 Print "不u及p格" End Select End Sub Private Sub Form_Load() Command6。Caption = "运行" End Subsぇゥマnⅷxうfmqsぇゥマr╗y肌uě

以上就是关于急谁能帮我做一道visual basic 程序题全部的内容，包括:急谁能帮我做一道visual basic 程序题、帮忙编写一个QBASIC语言的程序~急、Visual Basic 程序设计（VB）求一道简单题目的代码，急！！！等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！