查找随机数组中的质数个数

看到这个标题，我们首先要想到几个问题来仔细分析

1.随机数如何生成

2.质数是为何物

 

下面我们就来一一解决刚刚想到的问题

1.随机数

我们假设想生成1000以内的21个随机数

1.         Dim i As Integer, x As Integer
2.         Randomize()
3.         For x = 0 To 20
4.             i = CInt(Int((1000 * Rnd()) + 1))
5.             ' 产生1到N的一个任意值()
6.             Label1.Text = Label1.Text + CStr(i) + vbCrLf
7.         Next

这样我们就生成了我们想要的随机数。

 

2.质数

质数只能被1和它本身整除

给大家奉上一个求质数的函数：

1.     Function IsPrimeNumber(ByVal pNumber As Integer) As Boolean
2.         For iFactor = 2 To Int(Math.Sqrt(pNumber))
3.             If pNumber Mod iFactor = 0 Then
4.                 Return False
5.             End If
6.         Next
7.         Return True
8.     End Function

虽然简单，很实用哦。但是要注意1不是质数

 

 

 

 

 

 

下面是我所有的代码，请大家批评指正！

1. Public Class Form1
2.     Dim iFactor As Integer
3.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4.         Dim i As Integer, x As Integer, y As Integer = 0, z As Integer = 0  'x是循环用，y和z是用作计数用的
5.         Dim arr(20) As Integer
6.         Randomize()
7.         For x = 0 To 20
8.             i = CInt(Int((100 * Rnd()) + 1))
9.             y = y + 1
10.             ' 产生1到N的一个任意值()
11.             Label1.Text = Label1.Text + CStr(i) + vbCrLf
12.             If IsPrimeNumber(i) = True Then
13.                 z = z + 1
14.                 Label2.Text = Label2.Text + CStr(i) + vbCrLf
15.             End If
16.         Next
17.         Label3.Text = y & "," & z
18.     End Sub
19.     Function IsPrimeNumber(ByVal pNumber As Integer) As Boolean
20.         For iFactor = 2 To Int(Math.Sqrt (pNumber))
21.             If pNumber Mod iFactor = 0 Then
22.                 Return False
23.             End If
24.         Next
25.         Return True
26.     End Function
27. End Class