vb中产生20个1-100的随机数，挑选其中的素数

Question

如题所述

Answer 1

Dim a(19) As Integer
Private Sub Command1_Click()
Print "产生20个随机数为："
Dim i As Integer

For i = 0 To 19
 a(i) = 1 + Int(Rnd * 100)
 Print a(i);
 If (i + 1) Mod 5 = 0 Then Print
Next

End Sub

Private Sub Command2_Click()
Print "其中素数为："
Dim i As Integer, j As Integer, k As Integer
For i = 0 To 19
    For j = 2 To Int(Sqr(a(i)))
        If a(i) Mod j = 0 Then
           Exit For
        End If
     Next
     If j > Int(Sqr(a(i))) Then
        k = k + 1
        If k Mod 5 = 0 Then Print
        Print a(i);
        
     End If
Next
End Sub