找出小于18000的最大素数

2019-09-10 15:58栏目:最大平台
TAG:

vb实验7-寻觅小于1八千的最大素数

vb实验7-找寻小于17000的最大素数

———–写给女对象的题解


  1. 在窗体上画三个文本框,名字为TEXT1,七个指令开关,C1和 C2,标题分别为“计算”和“退出”,并编辑三个函数进程isprime能够在程序中直接调用,其职能是判断参数a是还是不是为素数,假诺是素数,则赶回True,不然再次回到False。
    请编写适当的平地风波经过,使得在运作时,单击“总计”开关,则寻觅小于1八千的最大素数,并展现在文本框中。

    • 我们先来画窗体,拖四个TextBox,然后清空Text属性
      最大平台 1
      名字已经是TEXT1了
      最大平台 2

    • 下一场拖多个CommandButton,修改名叫C1,C2。修改章程如上航海用教室。然后修改Caption属性值分别为“计算”和“退出”。
      附效果图:
      最大平台 3

    • 分界面部分就基本上好了。起初写判别二个树是还是不是素数的函数吧。

Private Function Prime(n As Integer) As Boolean
'函数参数为Integer,如果是素数则返回True,不是则返回False
    '如果n小于2,就不是素数
    If n < 2 Then

        Prime = False

        Exit Function

    End If

    Dim i As Integer

    '先让返回值等于True
    Prime = True

    '然后检查2到根号n是不是有数能整除n
    For i = 2 To Sqr(n)

        '如果有数能被整除,就返回False
        If n Mod i = 0 Then

            Prime = False

            Exit Function

        End If

    Next i

'如果没有被前面的if查到,那就是通过了层层筛选而产生的素数
End Function
  • 最大平台,函数写好了,就从头找寻觅小于1八千的最大素数吧
    在C1_Click里面写如下代码
Dim i As Integer

'从18000开始,每次-1,(为什么不从1-18000?因为low)
For i = 18000 To 2 Step -1

    '如果找到一个,就输出到Text1,然后退出
    If Prime(i) = True Then

        Text1.Text = i

        Exit Sub

    End If

Next i

最大平台 4

版权声明:本文由澳门萄京官网最大平台发布于最大平台,转载请注明出处:找出小于18000的最大素数