某位网友问到产生随机数和素数
'----------------------------------------------------------------------------
'----------------------------------------------------------------------------'
Option Explicit
Private Sub Command1_Click()
List1.Clear '---------清空列表1
List2.Clear '---------清空列表2
Dim i, j As Integer
Dim x, f, y, x1
Dim arr(1000) '---------定义数组
Randomize '---------产生随机数必须的
'----------------产生随机数--------------------------
For i = 1 To 85 - 20
x = Int(Rnd * (85 - 20 + 1)) + 20 '-----------产生20-85的随机数
List1.AddItem x '--------------随机数写入列表1
arr(i - 1) = ss(x) '--------------素数写入数字
Next i
For y = 0 To UBound(arr)
If arr(y) <> 0 Then
List2.AddItem arr(y) '-----------取数组素数到列表2
End If
Next y
End Sub
'-----------返回素数---------------------------
Function ss(ByVal n As Integer) As Integer
Dim k As Integer
For k = 2 To n - 1
If n Mod k = 0 Then Exit For
Next k
If k = n Then
ss = n
End If
End Function