Private Sub Command1_Click()If List1.Text = "一" Then If List2.Text = "三" Then Call chkselect(1) If List2.Text = "四" Then Call chkselect(2)End IfIf List1.Text = "二" Then If List2.Text = "三" Then Call chkselect(3) If List2.Text = "四" Then Call chkselect(4)End IfEnd SubSub chkselect(index As Integer)Dim i%For i = 1 To 4Check1(i).Value = 0NextCheck1(index).Value = 1End SubPrivate Sub Form_Load()List1.AddItem "一"List1.AddItem "二"List2.AddItem "三"List2.AddItem "四"End Sub
