Private Sub Command1_Click()
Dim i%, j%
i = 100
j = 0
Do
If (i Mod 3 = 1) And (i Mod 5 = 1) And (i Mod 7 = 1) Then
Text1.Text = Text1.Text & i & Chr(13) & Chr(10)
j = j + 1
End If
If j >= 10 Then Exit Do
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024