用PHP写出一个数的所以因子,设计一个算法，求出给定的自然数的所有因子。 ---- 第二章 答案 新编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程序设计教程   答案 陈斌  著

来源：济亨网