用VB语言找出大于200的最小的质数

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/23 21:25:35
用VB语言找出大于200的最小的质数
xTN@ h%H,jJ&P.#$$4C@TDM_ Qix{Fǽ6[`i+,B-^ VS~5Yd֝u6H-ruP;nb 0װ1q_=M<-: ub~Njq s/m32u%Jmi׼1-$.'+HW@k[E$s7+$"p u$HUӝNL1Y_~svXK9e\?\ ?4PAdAISǡ7{]!H]Qջ$uμD12PسyQ|4ן疉`UunaZ*ߋB%⫪؞WGx 4ʎrFbIm #]jW~ a brv 4]$g=Jy$2LE?}] E"a'}n},,CM Rۑm$e2%0Qgyj'NsI]<4ܥ6~#Pa;G?i8<õ"SBh5Ҕ>Waj^fyA )\H$DNpU!s.6hzQH%ĄF_}"M4)j%^*

用VB语言找出大于200的最小的质数
用VB语言找出大于200的最小的质数

用VB语言找出大于200的最小的质数
对质数的定义是：除了 1 和 本身,不能和其它数整除.
那么计算质数我们,仅需要一趟循环检查就可以了.
假设用户输入了初始值 jj 那么确定质数应该：
1）计数器 aa 必须从 2 开始（1 不算）.
2）计数器 aa 必须小于 jj 结束（本身不算）.
3）数据 jj 不能被在上面条件 1 - 2 之间的任何数整除,即为质数
看代码：
For aa = 2 To jj - 1
If jj Mod aa = 0 Then
Exit For '此处说明可以整除,即不是质数,退出循环
End If
如果循环是调用 Exit For 中断的
那么 jj < aa （不是质数）
否则 jj = aa （是质数）
看代码：
If aa = jj Then
Label1.Caption = jj & "是质数"
Else
Label1.Caption = jj & "不是质数"
End If
楼主应该很明白了吧,另外说一下这个代码的循环次数过多,优化后：
For aa = 2 To jj \ 2 '备注(在 VB 中 \ 号是整除的意思,并非写错)
If jj Mod aa = 0 Then
Exit For
End If
（把 jj 整除一下 2,因为只需要判断一半的大小,就可以确定是否是质数了）

用VB语言找出大于200的最小的质数 用VB语言找出大于2345的最小的质数 输入一个正整数,找出大于该数的最小素数用vb怎么编 用VB语言求1000内的质数之和 VB 找出1000以内所有质数的算法 vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数 vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数. C语言编程 找出50到100的质数 并统计质数个数 VB题目两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对两质数的差为2,称此对质数为质数对,编写判断质数的函数,调用此函数,找出100以内的质数对. 用SQL语言查找出学生平均年龄最小的班级的名称,怎么写 VB程序 求出100-200之间的所有质数 质数 找出1~100的质数 JAVA实现用while循环找出𝑛^2大于12000的最小整数n 最小的质数是多少. 最小的质数多少 最小的质数是多少 最小的质数是什么?