第1步在窗體Form1 中添加控件數據：
控件類型 名稱
---------------------------------------------
標簽數組 a(0)
標簽數組 a(1)
標簽數組 a(2)
文本框數組 q(0)
文本框數組 q(1)
文本框數組 q(2)
命令按鈕 cmmmand1 ，Caption是“判斷對錯”
第2步.輸入程序代碼：
''''''''窗體啟動的代碼：
Private Sub Form_Load()
a(0).Caption = "什麽字母最多人聽？"
a(1).Caption = "什麽動物最沒有方向感？"
a(2).Caption = "太平洋的中間是什麽？"
For i = 0 To 2
q(i).Text = "" '清空3個等待輸入答案的文本框
Next i
End Sub
'''''''''''''''''' 點擊“判斷對錯”命令按鈕的代碼：
Private Sub Command1_Click()
If Len(q(0).Text) > 0 Then ' 若某個待回答的文本框有內容才判別對錯，（下同）
If q(0).Text = "CD" Then
MsgBox "恭喜妳，答對了！"
Else
MsgBox "很遺憾，答錯了！"
End If
q(0).Text = "" ‘彈出判斷對錯消息框且“確定”後，清空該文本框，（下同）
Exit Sub ’判斷結束、等待重新輸入該項答案或另壹項答案，（下同）
End If
If Len(q(1).Text) > 0 Then
If q(1).Text = "麋鹿" Then
MsgBox "恭喜妳，答對了！"
Else
MsgBox "很遺憾，答錯了"
End If
q(1).Text = ""
Exit Sub
End If
If Len(q(2).Text) > 0 Then
If q(2).Text = "平" Then
MsgBox "恭喜妳，答對了！"
Else
MsgBox "很遺憾，答錯了！"
End If
q(2).Text = ""
Exit Sub
End If
End Sub
'''' 按以上操作，我上機運行無誤。