巧用VB轻松设计出个“出题”老师
添加时间: 2006-2-15 3:43:20 作者: VB教程 阅读次数:114 来源: http://www.d9soft.com
这个实例我们可以用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中调试通过。 |
上下文章:
上一篇文章: 用VB实现自己的邮件“自己发” 下一篇文章: VB中创建可以输出函数的DLL