孤獨者 - 心在黑暗裡旅行 ...... ...
至尊會員
遊蕩的過客 - 枉入紅塵若許年 .. ...
在這個程式中,您將會從工具箱中使用到一個控制項: 按鈕控制項指令按鈕 使用工具箱來加入控制項 在工具箱選取 CommandButton(指令按鈕)控制項,在表單內點按滑鼠左鍵並拖曳成長方形後放開滑鼠左鍵,如圖 1 所示。 圖 1 類似的作法,使用工具箱來加入指令按鈕 這樣,「水仙花數」程式的介面就算是完成了。
只要將指令按鈕安置在適當位置,即是完成屬性設定。
在表單中,雙擊 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 功能鍵。接著按一下表單內您剛才建立的指令按鈕。 您就會看到文字方塊中顯示「水仙花數」了。
查看詳細資料
TOP
本站所有圖文均屬網友發表,僅代表作者的觀點與本站無關,如有侵權請通知版主會盡快刪除。