|
Option ExplicitPrivate Sub mini(n%, i%) '求最小的质数。Dim j%If n > 0 Then j = Sqr(n) For i = 2 To jIf n Mod i = 0 Then Exit For Next i If i > j Then i = nEnd IfEnd SubPrivate Sub Command1_Click()Dim a%(20), b%(20), c, i%, j%, s%c = Split(Text1, ",")For i = 0 To UBound(c) Call mini(Val(c(i)), j... |
