设计一个可以判断某数是否是素数的算法。 ---- 第二章 答案 新编Visual Basic程序设计教程 陈斌 著

设计一个可以判断某数是否是素数的算法。 ---- 第二章 答案 新编Visual Basic程序设计教程 陈斌 著

解，思路如下：
S1： 输入一个正整数N 
S2： I=2
S3： 如果N能被I整数，则转S7
S4： I=I+1
S5： 如果I小于等于N-1则转S3
S6： 输出N是素数，结束程序
S7： 输出N不是素数，结束程序

在窗体建两个文本框，一个用于输入数据，一个用于输出是不是素数，再建一个按钮，程序代码如下：
Dim x As Long

Private Sub Command1_Click()
    Dim i As Integer
    For i = 2 To x - 1
        If x Mod i = 0 Then Exit For
    Next i

    If i = x Then
        Text2.Text = Text1.Text  & "是素数"
    Else
        Text2.Text =Text1.Text  & "不是素数"
    End If
End Sub

Private Sub Text1_Change()
    x = Val(Text1.Text)
 End Sub

此程序运行后，效果图如下：

---- 新编Visual Basic程序设计教程 答案 陈斌  著

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/147.html