Private Sub Command2_Click()
Dim i%, mstr$
mstr = "符合要求的數字是: "
For i = 102 To 200 Step 6
If i Mod 4 = 2 And i Mod 5 = 3 Then mstr = mstr & i & ", "
Next i
MsgBox mstr
End Sub