vb做一个找小偷的小程序，请高手帮忙！！谢谢！！

来源：百度知道 编辑：UC知道 时间：2024/09/23 18:30:24
A，B，C和D人中有1个是小偷，审问中，A说：“我不是小偷”；B说：“C是小偷”；C说：“小偷肯定是D”；D说：“C在冤枉人”。其中有三人说真话，一人说假话。请编程找出谁说谎，谁是小偷。下面是大概的界面

输入谁是小偷：（ text1 ）
A是否说谎（text2）
B是否说谎（text3） （ 判断command1）
C是否说谎（text4）
D是否说谎（text5）
请哪位高手写一下代码！！谢谢！！

'------------------------定义变量
Dim IsA, IsB, IsC, IsD As Boolean '定义谁是小偷
Dim HA, HB, HC, HD As Boolean '定义是否说真话
Dim PdTrue As Boolean '判断是否为真

Private Sub Command1_Click()
'------------------------初始化
IsA = False
IsB = False
IsC = False
IsD = False
HA = True
HB = True
HC = True
HD = True
PdTrue = True
'------------------------获取用户输入谁是小偷
Text1.Text = UCase(Text1.Text) '使在text1输入的字母变成大写.
If Text1 <> "A" And Text1 <> "B" And Text1 <> "C" And Text1 <> "D" Then
MsgBox "请在text1中正确输入小偷..(可选A、B、C、D)", 48, "提示！"
Exit Sub
End If

Select Case Text1.Text
Case "A"
IsA = True
Case "B"
IsB = True
Case "C"
IsC = True
Case "D"
IsD = True
End Select
'------------------------------'