Question

VB 输出100以内的所有素数

单击输出

Answer 1

Private Sub Command1_Click()

Dim i%, j%,p%

For i = 100 To 10 Step -1

p = 0

For j = 2 To i - 1

If i Mod j = 0 Then p = 1: Exit For

Next j

If p = 0 Then Print i

Next i

End Sub

代码已经过测试，附图片

Answer 2

Private Function check(i As Integer) As Boolean
For j = 2 To CInt(Sqr(i)) + 1 '从2循环到i的平方根
If i Mod j = 0 Then '如果i除以j的余数为0,说明i不是素数
check = False '返回false
Exit Function '退出本过程
End If
Next j
check = True '循环结束没有退出过程,说明i不能整除从2到i平方根的所有数,也就是说i是素数,返回true
End Function

Private Sub Command1_Click()
Dim k As Integer, n As Integer
For k = 1 To 100
If n Mod 5 = 0 Then Print
If check(k) Then
Print k;
n = n + 1
End If
Next
End Sub