当前位置:首页 » VB程序题 » 正文

设计一个可以判断某数是否是素数的算法。 ---- 第二章 答案 新编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://wb86.com/post/147.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号