vb 1000以内随机数组

【文件属性】：
文件名称：vb 1000以内随机数组
文件大小：2KB
文件格式：RAR
更新时间：2016-07-29 16:58:25
数组 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随机数组的应用

【文件预览】：
1000以内随即数组
----工程1.vbw(49B)
----MSSCCPRJ.SCC(190B)
----Form1.frm(2KB)
----工程1.vbp(637B)