UC知道vb 如何使数个事件进行判断并输出不同结果,求助，急
来源：百度知道 编辑：UC知道 时间：2024/05/31 12:32:27
求助，急！
小弟，因毕业设计遇到难题，求助。
有7个事件需按以下顺序循环判断：
a>a1>a2>a3>c1>c2>c3——>输出
前面是4个text控件可随意输入4位数字，后面是3个combobox的下拉框（只有OK与NG选项)，有以下条件
a(11.5<=n<=12)； n 在取值范围内为T，不在此范围时为 F
a1(n2=-2)； n1 在取值范围内为T，不在此范围时为 F
a2(2<=n2<=4)； n2 在取值范围内为T，不在此范围时为 F
a3(n3=15)； n2 在取值范围内为T，不在此范围时为 F
c1_list=OK； 选择 OK 时为 T，NG时为 F
c2_list=OK； 选择 OK 时为 T，NG时为 F
c3_list=OK； 选择 OK 时为 T，NG时为 F
需要顺序判断当以上各事件,当其中有一个为 F 时在窗体2显示图片与以下字样：
a 输出 “出错1”；a1输出“出错2”；a2输出“出错3”；a3输出“出错4”c1输出“出错5”；c2输出“出错6”；c3输出“出错7”；
以上事件全为T时输出“ok正确”
由于小弟VB使用还是菜鸟，需要各位大虾帮忙相助。
小弟，因毕业设计遇到难题，求助。
有7个事件需按以下顺序循环判断：
a>a1>a2>a3>c1>c2>c3——>输出
前面是4个text控件可随意输入4位数字，后面是3个combobox的下拉框（只有OK与NG选项)，有以下条件
a(11.5<=n<=12)； n 在取值范围内为T，不在此范围时为 F
a1(n2=-2)； n1 在取值范围内为T，不在此范围时为 F
a2(2<=n2<=4)； n2 在取值范围内为T，不在此范围时为 F
a3(n3=15)； n2 在取值范围内为T，不在此范围时为 F
c1_list=OK； 选择 OK 时为 T，NG时为 F
c2_list=OK； 选择 OK 时为 T，NG时为 F
c3_list=OK； 选择 OK 时为 T，NG时为 F
需要顺序判断当以上各事件,当其中有一个为 F 时在窗体2显示图片与以下字样：
a 输出 “出错1”；a1输出“出错2”；a2输出“出错3”；a3输出“出错4”c1输出“出错5”；c2输出“出错6”；c3输出“出错7”；
以上事件全为T时输出“ok正确”
由于小弟VB使用还是菜鸟，需要各位大虾帮忙相助。
Form1 代码
Private Sub Form_Load()
Combo1.AddItem "NC"
Combo2.AddItem "NC"
Combo3.AddItem "NC"
Combo1.AddItem "OK"
Combo2.AddItem "OK"
Combo3.AddItem "OK"
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Combo3.ListIndex = 0
End Sub
Private Sub Command1_Click()
If Form2.Visible = True Then Unload Form2
Load Form2
Form2.Visible = True
End Sub
Private Sub Combo1_Click()
Command1_Click
End Sub
Private Sub Combo2_Click()
Command1_Click
End Sub
Private Sub Combo3_Click()
Command1_Click
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub
Privat