查找随机数组中的质数个数
来源:互联网 发布:模糊车牌识别软件 编辑:程序博客网 时间:2024/06/05 03:17
看到这个标题,我们首先要想到几个问题来仔细分析
1.随机数如何生成
2.质数是为何物
下面我们就来一一解决刚刚想到的问题
1.随机数
我们假设想生成1000以内的21个随机数
- Dim i As Integer, x As Integer
- Randomize()
- For x = 0 To 20
- i = CInt(Int((1000 * Rnd()) + 1))
- ' 产生1到N的一个任意值()
- Label1.Text = Label1.Text + CStr(i) + vbCrLf
- Next
这样我们就生成了我们想要的随机数。
2.质数
质数只能被1和它本身整除
给大家奉上一个求质数的函数:
- Function IsPrimeNumber(ByVal pNumber As Integer) As Boolean
- For iFactor = 2 To Int(Math.Sqrt(pNumber))
- If pNumber Mod iFactor = 0 Then
- Return False
- End If
- Next
- Return True
- End Function
虽然简单,很实用哦。但是要注意1不是质数
下面是我所有的代码,请大家批评指正!
- Public Class Form1
- Dim iFactor As Integer
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- Dim i As Integer, x As Integer, y As Integer = 0, z As Integer = 0 'x是循环用,y和z是用作计数用的
- Dim arr(20) As Integer
- Randomize()
- For x = 0 To 20
- i = CInt(Int((100 * Rnd()) + 1))
- y = y + 1
- ' 产生1到N的一个任意值()
- Label1.Text = Label1.Text + CStr(i) + vbCrLf
- If IsPrimeNumber(i) = True Then
- z = z + 1
- Label2.Text = Label2.Text + CStr(i) + vbCrLf
- End If
- Next
- Label3.Text = y & "," & z
- End Sub
- Function IsPrimeNumber(ByVal pNumber As Integer) As Boolean
- For iFactor = 2 To Int(Math.Sqrt (pNumber))
- If pNumber Mod iFactor = 0 Then
- Return False
- End If
- Next
- Return True
- End Function
- End Class
- 查找随机数组中的质数个数
- 查找指定元素在数组中的个数
- 质数个数
- 二维数组查找某一个数
- 数组中随机选择n个数
- 查找数组中最大的2个数
- 查找数组中最大的2个数
- 质数中的质数
- 质数中的质数
- 1181 质数中的质数
- 二维数组中的查找
- 二维数组中的查找
- 二维数组中的查找
- 查找数组中的最大值
- 二维数组中的查找
- 二维数组中的查找
- 二维数组中的查找
- 二维数组中的查找
- codeIgniter集成smarty
- asp.net 配置文件对app_code中的类型引用
- java 杨辉三角代码
- vsftpd 'can not change directory' error
- 二叉树的非递归遍历(使用栈)
- 查找随机数组中的质数个数
- IBM Rational 系统开发最佳实践工具包
- 精通用Grails实现面向资源服务的架构
- Linux 上的云计算平台和应用
- 用 Perl 和 Google Earth 创建时间可用性地图
- 如何支持POS 应用程序的 Web 服务
- 使图像文本具有语义并且可搜索
- struts2.0应用
- 进程与线程的区别