用VB设计个“出题”老师

新客网 XKER.COM 2007-01-31 来源：收藏本文

　　上小学二年级的侄子在学习完乘法口诀后，天天缠着我给他出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

[责任编辑:editor]

上一篇：DataGrid 控件的使用下一篇：Visual Basic开发要点三则

【收藏】【评论】【推荐】【投稿】【打印】【关闭】