VB6 产生20-85的随机数和素数

某位网友问到产生随机数和素数

'----------------------------------------------------------------------------

'----------------------------------------------------------------------------'

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