代码如下:
Public Sub name()
Dim Par As Single
Par = Val(InputBox("请输入成绩:", "输入提示"))
If Par <= 100 Then
MsgBox "成绩值有效", vbOKOnly + vbInformation, "计算结果"
Else
MsgBox "成绩无效", vbOKOnly + vbInformation, "错误无效"
End If
End Sub
Public Sub name()
Dim Par As Single
Par = Val(InputBox("请输入成绩:", "输入提示"))
If Par <= 100 Then
MsgBox "成绩值有效", vbOKOnly + vbInformation, "计算结果"
Else
MsgBox "成绩无效", vbOKOnly + vbInformation, "错误无效"
End If
End Sub
改一下名字,比如说
Public Sub name111()