Question

求VB解答 inputbox和msgbox的问题，问题很简单，可我很小白~

Private Sub Command2_click()

n = InputBox("请输入你的姓名")

s = InputBox("请输入你的平均绩点")

If s >= 4 Then
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";outstanding~努力保持下去 ,vbIformation", "成绩等级"
ElseIf s >= 2 Then
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";你做的很好了，希望更上一层楼 ,vbIformation", "成绩等级"
ElseIf s >= 1 Then
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";恭喜你及格了，不过要多加努力呦 ,vbIformation", "成绩等级"
Else
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";不要灰心，今后多加努力吧 ,vbIformation", "成绩等级"
End If
End Sub

点击后，依次输入了姓名和绩点，可是很悲剧的告诉我 错误‘13’类型不匹配......我试着定义s和n为integer，不过还是没用。我周一就要交报告了，跪求~

Answer 1

代码有几个包含错误。
你的引号应该打在vblformation前，而不是后。
你的代码把枚举参数vblformation包含到字符串了。儿后面的"成绩等级"则被当做Integer类型的vblformation枚举值传送出去了，类型当然不匹配
正确代码：
Private Sub Command2_click()

n = InputBox("请输入你的姓名")

s = InputBox("请输入你的平均绩点")

If s >= 4 Then
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";outstanding~努力保持下去", vbIformation, "成绩等级"
ElseIf s >= 2 Then
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";你做的很好了，希望更上一层楼", vbIformation, "成绩等级"
ElseIf s >= 1 Then
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";恭喜你及格了，不过要多加努力呦", vbIformation, "成绩等级"
Else
MsgBox "姓名:" & n & "; 平均绩点为:" & s & ";不要灰心，今后多加努力吧 ", vbIformation, "成绩等级"
End If
End Sub

Answer 2

n = InputBox("请输入你的姓名")

s = InputBox("请输入你的平均绩点")

这里出问题了
n和s都没定义，再说你就算定义了，要取得文本框中的内容也不是这样获取滴。