用VB6.0找出所有的玫瑰花數
若是一個四位數等于它的各數位上的數字的四次方和，則稱玫瑰花數
方式/步調
- 1
啟動VB6.0，新建一個尺度exe工程。
- 2
在窗體上繪制一個號令按鈕，名稱為Command1。
- 3
雙擊號令按鈕進入代碼窗口。
- 4
假設有一個名為mgh的函數過程進行挪用，從1000到9999一一查找。可以選擇計數輪回For....Next語句。
- 5
編寫mgh函數過程，利用Do....loop While 進行各個位數分化判定，若是相等返回TRUE，不然返回FALSE。
- 6
按F5運行測試。
注重事項
- iif的函數是IF...End If 的簡化版，第一參數是前提，當作立走第二參數，不然第三參數。
- 函數過程可以先界說再編寫代碼，也可今后界說，但必需在運行前完當作。
- 函數過程的形參若是有界說，實參也應該界說，不然會犯錯。
- 發表于 2018-03-10 00:00
- 閱讀 ( 2558 )
- 分類：其他類型
admin
0 篇文章
作家榜 ?
-
xiaonan123
189 文章
-
湯依妹兒
97 文章
-
luogf229
46 文章
-
jy02406749
45 文章
-
小凡
34 文章
-
Daisy萌
32 文章
-
我的QQ3117863681
24 文章
-
華志健
23 文章