请问这怎么实现？ - 编程论坛

fairy42008-08-14 10:15

用異或（Xor）
result = expression1 Xor expression2
如果 expression1 为：  并且 expression2 为： result 的值为  ：
True            True              False
True            False             True
False           True              True
False           False             False

代碼：
result = expression1 Xor expression2
if result =false and expression1 =true then
'做事情1
elseif result =true then
'做事情2
end if

flyincold2008-08-15 14:25

以下是用IF条件句审核，也可以用if嵌套if来做不过不是很容易理解
假设form1中有两个CheckBox，1个textbox，一个按钮，判断其两者的选择方式

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  '声明按钮单击事件--由vb自动完成
        Dim ca1 As Boolean, ca2 As Boolean  '为了便于理解，声明了2个boolean变量
        ca1 = CheckBox1.Checked '赋值
        ca2 = CheckBox2.Checked '赋值
        If ca1 = True And ca2 = True Then  '判断是否全选
            TextBox1.Text = "恭喜，全中！"
        ElseIf ca1 = True And ca2 = False Then '判断第一个选、第二个未选
            TextBox1.Text = "只中了第一个！"
        ElseIf ca1 = False And ca2 = True Then '判断第二个选、第一个未选
            TextBox1.Text = "只中了第二个！"
        Else : TextBox1.Text = "您是啥也没选呀！" '其他可能（都未选）
        End If
    End Sub
End Class

[[it] 本帖最后由 flyincold 于 2008-8-15 14:35 编辑 [/it]]