Question

VB中多个条件的并列

下面是我的代码：Private Sub Command1_Click()
If Text1.Text = (123) And Text2.Text = (123) Then Label1.Visible = False And Label2.Visible = False And Label3.Visible = True Else Form3.Show mode
End Sub 我的要求是text1和text2都等于123的时候，label1和label2的visible为false，label3为true，但测试程序的时候总是只有label1的visible变为false，别的都没有反应。我试过用括号把 Label1.Visible = False And Label2.Visible = False And Label3.Visible = True 这段话括起来，也试过分别把条件用括号括起来，但都还是不行。到底是什么问题啊...我是菜鸟...

Answer 1

VB中多条件语句并列时建议使用块形式编写代码，也方便查找错误和修改代码。

• If...Then...Else 语句，根据表达式的值有条件地执行一组语句。

说明：

可以使用单行形式（第一种语法）来做短小简单的测试。但是，块形式（第二种语法）则提供了更强的结构化与适应性，并且通常也是比较容易阅读、维护及调试的。

• And 运算符，用来对两个表达式进行逻辑连接。

• 正确的代码如下：

Private Sub Command1_Click()
    If Text1.Text = Text2.Text And Val(Text1) = 123 Then
        Label1.Visible = False
        Label2.Visible = False
        Label3.Visible = True
    Else
        Form2.Show
    End If
End Sub

Private Sub Form_Load()
    Text1 = 123
    Text2 = 125
End Sub

Answer 2

If Text1.Text = "123" thenIf Text2.Text = "123" thenLabel1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = True Else Form3.Show modeend ifend if以上说的是多条件判断,如果第一条不成立,则执行Form3.Show mode 如果第一条成立,第二条不成立都执行Form3.Show mode 两条都成立的话就执行Label1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = True

Answer 3

楼主的问题涉及到了逻辑运算中的“与”运算，在你的程序中and不是和的意思，而是与运算符，楼主的then后面的程序在执行的时候进行了位运算，于是就得到了你的结果，你想得到想要的结果就把程序改成：Private Sub Command1_Click()
If Text1.Text = (123) And Text2.Text = (123) ThenLabel1.Visible = False Label2.Visible = FalseLabel3.Visible = True Else Form3.Show modeend if
End Sub

Answer 4

应该这样：If text1.Text = "123" And text2.Text = "123" Then Label1.Visible = False Label2.Visible = False Label3.Visible = TrueElse 在这里你可以编写当条件不成立之时的执行代码
End If