Question

vb编写程序找出3～100间所有素数并输出窗体

Answer 1

Private Sub Command1_Click()
    Dim s As Long, x As Long
    For s = 3 To 100
        If zhi(s) Then x = x + 1: Print s
    Next
    Print "共 " & x & "个质数"
End Sub
 
Private Function zhi(x As Long) As Boolean
    Dim b As Single, i As Long, f As Long
    For i = 2 To x - 1
        If x Mod i = 0 Then
            f = 1: Exit For
        End If
    Next
    If f = 1 Then zhi = False Else zhi = True
End Function

Answer 2

Private Sub form_click()
Dim N As Integer
Dim I As Integer
Dim J As Integer
Dim S As Boolean
N = 0
For I = 3 To 100
S = True
For J = 2 To Sqr(I)
If I Mod J = 0 Then
S = False
Exit For
End If
Next
If S Then
Print Format(I, " 0# ");
N = N + 1
If N Mod 10 = 0 Then Print
End If
Next
Print
Print "从3－100之间共有以上"; N; "个素数"
End Sub

Answer 3

Private Sub Command1_Click()
For i = 3 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If i Mod j <> 0 Then
Print i,
k = k + 1
If k Mod 5 = 0 Then Print
End If
Next i
End Sub