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)...

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

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

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

我来解释一下: Dim i as Integer,x as Integer '变量声明 x=inputbox("请输入一个正整数(>=3):","判断素数") '取得要判断的数 For i=2 To x-1 ’这句循环的意思:从2到(x-1)这个范围中,有没有可以整除x的 If x mod i =0 then exit for ’若从2到(...

Private Sub Command1_Click() Dim a As Integer, i As Integer, n As Integer a = Val(Text1) For i = 2 To a - 1 If a Mod i = 0 Then Do While 1 a = a + 1 For n = 2 To Sqr(a) If a Mod n = 0 Then Exit For Next n If n > Sqr(a) Then Tex...

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

'供参考。朋友。 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

Private Function IsPrime(ByVal x As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(x) If x Mod i = 0 Then IsPrime = False Exit Function End If Next IsPrime = True End Function Private Sub Command1_Click() '考生编写程序开...

网站地图

All rights reserved Powered by www.mbtt.net

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