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

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

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 IntegerAs 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.ObjectByVal 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 IntegerAs 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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

你可能感兴趣的:(查找随机数组中的质数个数)