當前位置:首頁 ? 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.cojdcn.tw/post/75.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

贊助商鏈接

湘公網安備 43011102000514號 - ICP備08100508號

黑龙江福彩22选5开奖果