制作課件，有時需要學生輸入答案并對答案判定對錯，如本例中的英語課程，測試學生對單詞的掌握情況，需要學生在課件中輸入單詞，然后由按鈕告訴他（她）是否正確。這樣一個課件怎樣制作呢。這就需要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”則顯示“你真棒！”否則，顯示“再想想”。