vb 1000以内随机数组

Private Function zhishu(x As Integer) As Boolean If x < 2 Then zhishu = False Exit Function End If i = -1 For i = 2 To x - 1 If x Mod i = 0 Then Exit For Next i If i > x - 2 Then zhishu = True Else zhishu = False End If End Function随机数组的应用