揭阳市西寨村陈君森:VB小程序:求1到100之间的素数,并把他猛换行显示在Form1上
来源:百度文库 编辑:中科新闻网 时间:2024/03/29 19:25:05
Private Sub Command1_Click()
Dim i, k, c As Integer
c = 1
For i = 1 To 100
For k = 1 To i
If i Mod k = 0 And k <> 1 And i <> k Then c = 0
Next k
If c <> 0 Then Print i
c = 1
Next i
End Sub