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

设计一个算法,求出给定的自然数的所有因子。 ---- 第二章 答案 新编Visual Basic程序设计教程 陈斌 著

设计一个算法,求出给定的自然数的所有因子。 ---- 第二章 答案 新编Visual Basic程序设计教程 陈斌 著
解题,算法思路如下:
 S1:输入一个正整数N
 S2:I=1
 S3:如果N能被I整数,则输出I
 S4:I=I+1
 S5:如果I小于等于N则转S3
 S6:结束程序

在窗体建一个按钮,程序代码如下:

Private Sub Command1_Click()
    Dim x As Long, i As Long, j As Long
    x = InputBox("输入一个自然数:")
    Print x & "的所有因子:"
    For i = 1 To x
        If x Mod i = 0 Then
            Print i;
            j = j + 1
            If j Mod 10 = 0 Then Print '输出10个因子就换行
        End If
    Next i
    Print
    Print "共有因子"; j; "个。"
End Sub

此程序运行后,效果图如下:

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

打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:http://wb86.com/post/149.html

    << 上一篇 下一篇 >>

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