蔡逸竹

這個簡單的 Visual Basic 程式將引導及展示在 Visual Basic 程式編輯環境下編寫運算程式碼的過程。
水仙花數在 100 到 999 的三位數字中，有那幾個數它的各個位數的數字三次方的總和等於它本身的值呢？建立一個 Visual Basic 程式來解出這個謎底！
記得建立 Visual Basic 程式有三個主要步驟：

• 建立介面。
  　
• 設定屬性。
  　
• 撰寫程式碼。

這個程式只需要有一個指令按鈕，即可完成。當您按下指令按鈕後，表單就會陸續出現「水仙花數」了。
1. 建立介面

在這個程式中，您將會從工具箱中使用到一個控制項：

按鈕	控制項
	指令按鈕

　
使用工具箱來加入控制項
在工具箱選取 CommandButton（指令按鈕）控制項，在表單內點按滑鼠左鍵並拖曳成長方形後放開滑鼠左鍵，如圖 1 所示。
圖 1 類似的作法，使用工具箱來加入指令按鈕

這樣，「水仙花數」程式的介面就算是完成了。

　
2. 設定屬性

只要將指令按鈕安置在適當位置，即是完成屬性設定。
　

3. 撰寫程式碼

在表單中，雙擊 Command1 指令按鈕，程式編輯視窗將會出現，且自動產生事件程序的首、尾程式碼，在其間鍵入程式碼：

Dim i%, j%, k%, M%, N%    For i% = 1 To 9       For j% = 0 To 9          For k% = 0 To 9             M% = i% * 100 + j% * 10 + k%             N% = i% ^ 3 + j% ^ 3 + k% ^ 3             If M% = N% Then Print M%          Next k%       Next j% Next i%

圖 2 在程式編輯視窗鍵入程式碼

　

執行程式

從「執行」功能表中選擇「開始」，或者按一下工具列中的「開始」按鈕，還是直接按下 F5 功能鍵。接著按一下表單內您剛才建立的指令按鈕。

您就會看到文字方塊中顯示「水仙花數」了。

訪客無法瀏覽此圖片或連結，請先 註冊 或 登入會員 。