Private Sub Command1_Click()
If Option1.Value = True Then
If Check1.Value = 1 Then
Text1.Text = "喜欢数学"
ElseIf Check2.Value = 1 Then
Text1.Text = "喜欢英语"
ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Text1.Text = "喜欢数学英语"
End If
End If
If Option2.Value = True Then
If Check1.Value = 1 Then
Text1.Text = "不喜欢数学"
ElseIf Check2.Value = 1 Then
Text1.Text = "不喜欢英语"
Else
Text1.Text = "不喜欢数学英语"
End If
End If
End Sub

vb的知识，，，哎，，，，

ElseIf Check1.Value = 1 And Check2.Value = 1 Then

改为Else  Check1.Value = 1 And Check2.Value = 1 Then

调整一下顺序，先判断“喜欢英语数学”，再判断英语或者数学。

谢谢，已解决