摘 要：利用VFP的随机函数产生小于十的数，进行一位数加法的练习。
关键词：Form；Text；Command；Rand；value；属性；事件；代码；连编
某日，偶去同事家作客。一进家门，就见其三岁的女儿正在她妈妈的指导下苦学“2+3=5”。枯燥的数字让这个baby实在是提不起兴趣，又摄于妈妈的威力，无奈只能小嘴张着，一个哈欠接着一个哈欠……
“来，阿姨教你”，看着她那委屈的小样，作为一名老师，我忍不住又要发挥自己的“光和热”了。于是我拿出手机，让她自己在计算器上画起鸦来，很快，这个聪明的baby?就有了进步了。“我会了，我会了”，看着她手舞足蹈的样子，我不禁萌发了为她编写一个一位数加法程序的想法。现在我把这个程序整理一下，好让更多的baby能在娱乐中学习。
一、 设置人机交互界面
在VFP中建立一个项目管理器，并在“文档”—“表单”中建立一个表单，在表单中放置三个文本框，分别用来存放两个加数及它们的和，并用加号和等于号将其正确的连接起来。同时在表单上添加两个命令按钮。并编写如下的编码：
⑴ 在Form1的Init事件中输入代码如下：
thisform.text1.value=int(rand()*10) &&在Text1中产生一个小于10的随机整数
thisform.text2.value=int(rand()*10) &&在Text2中产生一个小于10的随机整数
thisform.text3.setfocus &&让Text3获得焦点
在Form1的unloads事件中输入如下代码：
close all
clear events
quit &&退出vfp系统
⑵ 在Command1的Click事件中输入代码如下：
thisform.text1.value=int(rand()*10) &&在Text1中产生一个小于10的随机整数
thisform.text2.value=int(rand()*10) &&在Text2中产生一个小于10的随机整数
thisform.text3.value="""" &&Text3中的文本内容清空
thisform.text3.setfocus &&让Text3获得焦点
⑶ 在文本框Text3的Keypress事件中输入如下代码：
LPARAMETERS nKeyCode, nShiftAltCtrl
a=thisform.text1.value+thisform.text2.value
b=thisform.text3.value
if nkeycode=13 &&在文本框Text3中按回车键
if a=val(b)
messagebox(""你真棒!"",""老师的话"")
else
messagebox(""加油啊!"",""老师的话"")
endif
endif
⑷ 在Command2的Click事件中输入代码如下：
thisform.release
二、 在“属性”对话框对表单中各个对象的属性作相关设置
表单form1控件属性设置如下：
Thisform.caption=“一位数加法练习”；
Thisform.showwindow=2 &&作为顶层表单出现
Thisform.borderstyle=2 &&表单边框大小固定
Thisform.autocenter=.t.
Thisform.iron=“e:downloads小兔子.ico” &&修改表单中的控制图标
文本框text1控件属性设置如下：
Thisform.text1.alignment=2 &&居中对齐
Thisform.text1.fontname=“楷体-GB2312”
Thisform.text1.fontsize=28
Thisform.text1.height=60
Thisform.text1.left=24
Thisform.text1.top=36
Thisform.text1.width=73
文本框text2控件属性设置如下：
Thisform.text2.alignment=2 &&居中对齐
Thisform.text2.fontname=“楷体-GB2312”
Thisform.text2.fontsize=28
Thisform.text2.height=60
Thisform.text2.left=168
Thisform.text2.top=36
Thisform.text2.width=73
文本框text3控件属性设置如下：
Thisform.text3.alignment=2 &&居中对齐
Thisform.text3.fontname=“楷体-GB2312”
Thisform.text3.fontsize=28
Thisform.text3.height=60
Thisform.text3.left=288
Thisform.text3.top=36
Thisform.text3.width=73
命令按钮command1控件属性设置如下：
Thisform.command1.caption=“开始”
Thisform.command1.fontbold=.f.
Thisform.command1.fontname=“隶书”
Thisform.command1.fontsize=16
Thisform.command1.height=48
Thisform.command1.left=61
Thisform.command1.top=156
Thisform.command1.width=88
命令按钮command2控件属性设置如下：
Thisform.command2.caption=“退出”
Thisform.command2.fontbold=.f.
Thisform.command2.fontname=“隶书”
Thisform.command2.fontsize=16
Thisform.command2.height=48
Thisform.command2.left=224
Thisform.command2.top=156
Thisform.command2.width=88
三、 给表单添加一个背景图片,并自动调整与表单相同大小
在表单中添加一个Image1控件，把这个Image1控件置于所有控件下方，即利用“格式”-“工具”-“置后”，将其Picture属性设置成想要的背景图（要给出绝对路径）,Strength属性设成变比填充，即Strength选择“2-变比填充”,本文添加了我家可爱的baby的自画图——“f:小雪人.bmp”。
并在Form1的Init事件和Resize事件中分别输入如下代码:
Thisform.image1.top=thisform.top
Thisform.image1.left=thisform.left
thisform.image1.width=thisform.width
thisform.image1.height=thisform.height
四、 给表单添加背景音乐
利用“表单控件工具栏”中的“查看类”-“添加…”,进行相应的操作，即在VFP的安装目录中找到FFC文件夹，其中的_multimedia.vcx文件夹里面有一个文件_soundplayer，把它拖放到表单上，利用其生成器属性相应设置：
AutoOpen=.t.
AutoPlay=.t.
AutoRepeat=.t.
Class=SoundPlayer
cfilename=指定一个声音文件 &&路径要给全，本文添加了“f:丢手娟.mid”文件
Visible=.f. &&不可见
五、 编写主程序
在项目管理器的“代码”—“程序”中编写一个程序main.prg，并利用快捷菜单设置为主程序，其代码如下：
_screen.visible=.f. &&隐藏VFP的系统主窗口
do form f:一位数加法练习.scx
read events
六、 连编成可执行文件
选择项目管理器中的“连编”命令，生成“可执行文件”，即“一位数加法.exe”。这样，就可以在非VFP环境下运行该程序。正常启动后的界面如下：
七、 结束语
本程序界面简单有趣，并伴有儿歌作为背景音乐，可以让宝宝们在轻松的环境中学习，寓教于乐。
