快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记娱h188app:用VB设计个“出题”老师



上小学二年级的侄子在进修完乘法口和记娱h188app诀后,每和记娱h188app天缠着我给他出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?和记娱h188appRnd ? 9? + 1

LabTiMu.Caption = Str$?a? + ″×″ + Str$?b? + ″=″

Text1和记娱h188app.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 = Tr和记娱h188appue

CmdPanTi.Enabled = False

双击“退出”按钮,输入“End”即可。

第三步:在(通用)中加入如下“声明”:

Public a? b

好了,你现在可以按“F5”键运行了。单击“出题”按钮,电脑将随机给出1至9的乘法算式,在文本框中输入谜底后,单击“判题”按钮即可判断得数的对错(如图2),很不错吧!当然你也可以将法度榜样界面设计得加倍美不雅实用。看着小侄子在电脑上玩得不亦乐乎,我也乐得忙里偷闲,真是一石二鸟!

以上法度榜样在中文版VB6.0和Windows XP中调试经由过程。

您可能还会对下面的文章感兴趣: