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

VB程序题:编一程序,显示出所有的水仙花数。所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。例如,153是水仙花数,因为 153 = 13+53+33

提示:解该题的方法有两种:
1.利用三重循环,将三个数连接成一个3位数再进行判断。
2.利用一重循环,将所有的三位数逐位分离后再进行判断。
 
解题,窗体画两个按钮,代码如下:


Private Sub Command1_Click()
    Cls
    Print "第一种方法:"
    Dim a As Integer, b As Integer, c As Integer, d As Integer
    For a = 1 To 9
        For b = 0 To 9
            For c = 0 To 9
                d = 100 * a + b * 10 + c
                If d = a ^ 3 + b ^ 3 + c ^ 3 Then Print d
            Next c
        Next b
    Next a
End Sub

Private Sub Command2_Click()
    Cls
    Print "第二种方法:"
    For i = 100 To 999
        ge = i Mod 10
        shi = i \ 10 Mod 10
        bai = i \ 100
        If ge ^ 3 + shi ^ 3 + bai ^ 3 = i Then Print i
    Next i
End Sub


运行程序效果图如下:


Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

来源:济亨网

本文链接:http://www.wb98.com/post/75.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

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