设计一个算法，求出给定的自然数的所有因子。 ---- 第二章 答案 新编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