上小學二年級的侄子在學習完乘法口訣后，天天纏著我給他出9以內的乘法算式。我想，何不編個小程序，讓電腦自動出題，省卻我很多的時間和精力。下面我們就來看看怎么個做法。



一、設計程序界面

這個實例我們可以用VB6.0來完成。先啟動VB6.0，在新建窗體中加入5個Label控件，1個TextBox控件及3個CommandButton控件，調整位置。設置Form1的Caption屬性為“乘法測驗”，Label1、Label2及Label3的Caption屬性分別為“題目”、“得數”和“對與錯”，其他屬性設置如表1所示， 調整完成后的界面如圖1。





二、寫入事件代碼

程序界面設計完成后，下面就該輸入代碼了。

第一步：在窗體的空白處雙擊鼠標左鍵，在Form_Load中，輸入“CmdPanTi.Enabled = False”，即首次啟動程序時，讓“判題”按鈕無效。

第二步：雙擊“出題”按鈕，輸入如下代碼（'后為注釋）：

Randomize Timer '隨機函數播種語句
a = FixRnd  9 + 1
b = FixRnd  9 + 1
LabTiMu.Caption = Str$a + ″×″ + Str$b + ″=″
Text1.Text = ″″ '清空文本框中內容
LabDuiCuo.Caption = ″″
CmdPanTi.Enabled = True
CmdPanTi.Default = True
CmdChuTi.Enabled = False
Text1.SetFocus '將焦點設置在Text1中

雙擊“判題”按鈕，輸入如下代碼：

x = ValText1.Text
If x = 0 Then Exit Sub
If x = a  b Then
LabDuiCuo.Caption = ″正確″
Else
LabDuiCuo.Caption = ″錯誤″
End If
CmdChuTi.Enabled = True
CmdChuTi.Default = True
CmdPanTi.Enabled = False

雙擊“退出”按鈕，輸入“End”即可。

第三步：在（通用）中加入如下“聲明”：

Public a b

好了，你現在可以按“F5”鍵運行了。單擊“出題”按鈕，電腦將隨機給出1至9的乘法算式，在文本框中輸入答案后，單擊“判題”按鈕即可判斷得數的對錯（如圖2），很不錯吧!當然你也可以將程序界面設計得更加美觀實用。看著小侄子在電腦上玩得不亦樂乎，我也樂得忙里偷閑，真是一舉兩得!



以上程序在中文版VB6.0和Windows XP中調試通過。