新手请教if语句问题 - 编程论坛

#2

风吹过b2020-03-28 19:08

x 值是什么？
a 值又是什么？
变量是的值是什么
变量不是的值是什么

搞懂了为什么你这个程序里，是和不是为什么是变量，然后这四个变量的值都是什么，你就明白了你这个 if 错在什么地方了。

最后一个问题，再加一层 else 就可以了。
加在 end if 前面
else
unload me

要求 end if 后面没有了需要执行的命令，语句结构结束命令不算

#3

HVB62020-03-30 18:15

原程序有几处错误：
Private Sub Command1_Click()
Dim x, a As String
x = InputBox("请问你是否通过了考试:")
'x = CStr(a)'此时a是空值
a= CStr(x)
'If a = 是 Then'汉字应有双引号
If a = "是" Then
MsgBox CStr(a) & "恭喜你会有惊喜"
'ElseIf a = 不是 Then'汉字应有双引号
ElseIf a = "不是" Then
MsgBox CStr(a) & "很遗憾，没有惊喜"
End If
End Sub

[此贴子已经被作者于2020-3-30 18:20编辑过]

#4

ZHRXJR2020-03-30 20:52

Private Sub Command1_Click()
Dim x, a As String
x = InputBox("请问你是否通过了考试:")
a = CStr(x) '必须给变量a赋值，a没有值在判断时以空字符串处理
If a = "是" Then '因为a是字符串，后面必须用双引号的字符串，如果没有双引号，程序认为是另一个变量，这个变量也是空，你的变量a在前面没有赋值，因此这个语句始终成立
MsgBox CStr(a) & "恭喜你会有惊喜"
ElseIf a = "不是" Then
MsgBox CStr(a) & "很遗憾，没有惊喜"
End If
End Sub
其他后面语句就不解释了。

[此贴子已经被作者于2020-3-30 20:53编辑过]