Question

VB中msgbox的问题。弹出多个布尔值

第一个方法里的内容：
Dim a,b,c,d as boolean
a = true: b = false :c = true :d = false
msg (a) ormsg (b) or msg (c) or msg (d)
sub msg(a as boolean)
msgbox a
end sub
上面的申明写的格式可能不对，但不影响你们阅读。下面的那个Sub应该是 Function，并且返回Boolean值。
我想问的是为什么弹出布尔值的顺序会和调用的顺序不一样。不要考虑我代码是否有毛病，写的是粗，但读懂应该没问题。按我理解应该按顺序弹出TFTF,可实际不是这样。为什么呢

Answer 1

问题出在为什么要用or连接。
or连接粗略的讲呢是这样子的：
True or True = True
True or False = True
False or True = True
False or False = False
即所谓相同出1，不同出0（True相当于1，False相当于0）。
这样的话呢，本身用Or连接就不对，而且Msg没有返回值，当然会有问题。

Answer 2

Private Sub Command1_Click()
Dim a As Boolean
Dim b As Boolean
Dim c As Boolean
Dim d As Boolean
a = True: b = False: c = True: d = False
msg (a): msg (b): msg (c): msg (d)
End Sub
Sub msg(a As Boolean)
MsgBox a
End Sub

按你的方式定义 通常会导致 b,c,d 没有被定义
调用 msg 时 不是用 or 连接 同时我也不知道你为什么要这么连接

Answer 3

Dim a,b,c,d ,e as boolean
e=true
a = true: b = false :c = true :d = false
if a or b or c or d then
e=true
call mymsg(e)
else
e=false
call mymsg(e)

end if
sub mymsg(amsg as boolean)
msgbox amsg
end sub

Answer 4

这样做：

msgbox "你好"
me.AppActivate "窗体标题" '把窗体标题改成别一个程序实际的窗体标题