制作課件，有時需要學生輸入答案并對答案判定對錯，如本例中的英語課程，測試學生對單詞的掌握情況，需要學生在課件中輸入單詞，然后由按鈕告訴他（她）是否正確。這樣一個課件怎樣制作呢。這就需要VB來幫忙了（動畫錄不了彈出的面板，可看最后一步效果圖）：
1、放入圖片：插入——圖片，將備好的圖片插入，拖動擺放好。
2、放入可輸入文本框：開發工具——文本框，鼠標拖動，拉出一個文本框。
3、設置文本框屬性：文本框選中狀態，右鍵——屬性。
4、在屬性面板中點擊字體（Font）右側的字體設置欄，在出現的字體面板中設置好字體、字形和字號。
5、當然，也可以對其他選項進行設置。圖中是對背景色、背景樣式、文字顏色的設置。最下面框起來的是滾動條。本例中只是輸入單詞，所以，不需設置了。
6、復制三個，將四個同時選中，開始——排列——對齊——頂端對齊、橫向分布，使四個文本框頂部對齊，橫向均勻分布。
7、添加判定對錯按鈕：開發工具——命令按鈕，在文本框下拉出一個命令按鈕。
8、更改按鈕文字：右鍵——命令按鈕對象——編輯，按鈕成為可編輯狀態，鼠標點進去，刪除原名稱，輸入想要寫入的名稱。此步也可在屬性的標題（Caption）中完成。
9、同樣也可在屬性里對字體、背景色等進行設置。
10、雙擊該命令按鈕，在出現的代碼面板中如圖在Private Sub CommandButton1_Click()與End Sub之間輸入：If TextBox1.Text = "warm" Then dd = MsgBox("你真棒！", vbOKCancel, "")Elsedd = MsgBox("再想想", vbOKCancel, "")End If第一個文本框為TextBox1，這段代碼表示:如果文本框1內文字為“warm”則顯示“你真棒！”否則，顯示“再想想”。
11、注意，代碼一定要一句換一行，如上圖。否則，會被判錯，語句為紅色顯示，并出現編輯錯誤的對話框。如圖。
12、復制三個命令按鈕分別放在另外三個單詞下方，在代碼面板中相應出現這三個按鈕的空白代碼，將按鈕1的代碼復制、粘貼后將TextBox1與“warm”更改即可。完成制作。
13、F5看一看最終效果吧。
相關推薦：
新聞熱點
疑難解答
