可視化編程：簡單控件

　　啊！ 我想到了——信息技術課程內容設計集錦
　　
　　許多學校開設可視化程序設計相關課程，涉及的開發工具常有VB、Delphi等。在講課的入門階段，教師通常會從幾個最簡單的公用控件開始，如文本框、標簽框、按鈕等。當學生僅僅了解少量關于控件屬性、事件等概念，卻尚未融匯分支、循環等基本程序設計流程的時候，教師可用來演示的例子往往非常簡單，缺乏亮點。本文將列舉幾個小程序的設計思路，希望能對大家有所啟發。
　　
　　數字跑馬燈
　　
　　此程序將使一串數字具有跑馬燈般的效果，而實現的方法也相當神奇。在1到1000000的自然數序列中，只有一個數字具有某種奇妙特性，可用來實現數字跑馬燈，這就是142857。且看以下變換：142857-->428571-->285714-->857142-->571428-->714285-->142857。
　　產生這串數列，只需將142857分別乘以1、3、2、6、4、5、1即可。界面僅需一個標簽框、六個按鈕。每個按鈕都觸發一個事件過程：142857乘以某特定的數字。用鼠標以正確的順序點擊按鈕就能使標簽框中的數字變成跑馬燈。要讓數字跑得更快，用鼠標點就太累了，不妨試一下交替擊打鍵盤Tab鍵和Enter鍵，當然，這需要正確地設置按鈕的TabStop和TabIndex屬性。
　　
　　根號2鍛造機
　　
　　三個初始值為1的文本框、兩個按鈕和一個標簽框，就能成為一個根號2鍛造機，如圖1所示。程序運行后，交替點擊兩個按鈕，標簽框中的數字便會逐漸逼近根號2的精確值。
　　
　　程序很簡單，以VB為例，兩個按鈕所觸發的事件過程分別為：
　　Text1.Text = Text3.Text；
　　Text3.Text = Val（Text1.Text） + Val（Text2.Text）；
　　Text2.Text = Val（Text1.Text） + Val（Text3.Text）；
　　Label1.Caption = Val（Text2.Text） / Val（Text3.Text）。
　　如果要做一個黃金分割率的鍛造機的話，則更加簡單，只需要兩個文本框即可，這個程序完全可留給學生自己想辦法去解決（見參考答案）。
　　
　　苛刻計算器
　　
　　這個苛刻計算器是由四個按鈕和三個標簽框組成的，玩家只有1、0、8、9四個數字可以按，不多不少按12次后，要求每個四位數都必須包括1、0、8、9四個字符，且要讓等式成立。當玩家按下數字按鈕時，數字就依次顯示在一個標簽框上，注意，減號和等號是疊加在其上的另兩個標簽框，位置必須要恰到好處才行。以VB為例，第一個按鈕的事件觸發過程是：
　　Label1.Caption = Label1.Caption + "" + Command1.Caption
　　
　　其他按鈕均與此類似。圖2顯示了幾種解法中的一種。