www.mbtt.net > 求教vB一道Do循环题目.求大于18000的最小素数

求教vB一道Do循环题目.求大于18000的最小素数

Option Explicit'比18000大的最小素数Private Sub Form_Click()Dim x As IntegerDim i As Integerx = 18000DoFor i = 2 To x - 1If x Mod i = 0 Then Exit ForNext iIf i > x - 1 ThenPrint xExit DoElsex = x + 1End IfLoopEnd Sub

对质数的定义是:除了 1 和 本身,不能和其它数整除。 那么计算质数我们,仅需要一趟循环检查就可以了。 假设用户输入了初始值 jj 那么确定质数应该: 1)计数器 aa 必须从 2 开始(1 不算)。 2)计数器 aa 必须小于 jj 结束(本身不算)。 3)...

'供参考。朋友。 Private Sub Command1_Click() Dim x As Integer, i As Integer, f As Boolean x = InputBox("请输入大于2小于35000的正整数") f = False i = 2 Do While i

Public Function IsSushu(ByVal pa As Integer) As Boolean Dim pb As Integer = pa - 1 Dim res As Boolean = True For i = 2 To pb If pa Mod i = 0 Then res = False Exit For End If Next i Return res End Function Private Sub Button7_Cl...

那句话的意思是 如果循环变量i超越终值x-1的时候 就说明这个数是一个素数

prime(n + 1) prime = True prime = False If n Mod i = 0 Then prime = False: Exit For

For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j 对于I而言,可能的因子就是2到i-1,一个个判断,如果发现能整除了,就表示不是素数,退出循环 退出后进行判断,如果j=i就表示没有中间退出,就是素数,把I加到和里就行了。 If j = i The...

private sub command1_click() dim n as Long dim Nss as boolean n=val(trim(text1.text)) if ss(n)=True then text2.text="N=" & n & " 是素数" else do while Nss=True n=n+1 Nss=ss(N) loop text1.text=n text2.text="N=" & n & " 是素数" e...

一进主页就有你说的这个程序,我下载过,老师以前也出过同样的题目。追问:进不了那网页啊!

这完全是根据数学中关于素数的概念,进行代码编写!利用计算机的高速度解决烦琐的计算。 素数:只能被自身和1整除的自然数,叫做素数,1不是素数,2是最小的素数。 也就是说,要判断一个自然数n,是否素数,最基本的思路。就是用2,3,4,....一...

网站地图

All rights reserved Powered by www.mbtt.net

copyright ©right 2010-2021。
www.mbtt.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com