Office中国论坛/Access中国论坛

标题: 代码不知道错哪了 [打印本页]

作者: st1988330 时间: 2013-5-2 14:40
标题: 代码不知道错哪了
按着例题做的，复制过去没有错误，怎么自己写的时候出现如下图：

Sub choose()
Dim str1 As String
Dim str2 As String
str1 = InputBox("请输入职位")
Select Case str1
Case "学生"
MsgBox "同学你好"
Case "工人"
MsgBox "师傅你好"
Case "工程师"
str2 = InputBox("请输入行业")
If str2 = "机械" Then
MsgBox "你是一个机械工程师"
ElseIf str2 = "IT" Then
MsgBox = "你是一个IT工程师"
ElseIf str2 = "建筑" Then
MsgBox "你是一个建筑工程师"
End If
End Select
End Sub

不知道错哪了,请指导！

作者: admin 时间: 2013-5-2 16:10
去掉“=” 号

作者: st1988330 时间: 2013-5-2 17:07

admin 发表于 2013-5-2 16:10
去掉“=” 号

粗心了我谢谢你

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)