VB问题 求大神解答题目窗体上有两个复选框,名称分别为chk1,chk2,标题分别为“能被5整除”和“能被6整除”,一个

Private Sub Command1_Click()
Dim i As Integer
Text1.Text = ""
If Check1.Value <> 0 And Check2.Value <> 0 Then
For i = 100 To 200
If i Mod 5 = 0 And i Mod 6 = 0 Then
Text1.Text = Text1.Text & i & " "
End If
Next i
ElseIf Check1.Value <> 0 Then
For i = 100 To 200
If i Mod 5 = 0 Then
Text1.Text = Text1.Text & i & " "
End If
Next i
ElseIf Check2.Value <> 0 Then
For i = 100 To 200
If i Mod 6 = 0 Then
Text1.Text = Text1.Text & i & " "
End If
Next i
End If
End Su