杨洋暴走神探剧照:VB小程序:求1到100之间的素数,并把他猛换行显示在Form1上
来源:百度文库 编辑:高校问答 时间:2024/05/10 20:03:40
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