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

设计一个算法,求出给定的自然数的所有因子。 ---- 第二章 答案 新编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://www.wb98.com/post/149.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

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