VFP表单应用程序开发实例—一位数加法练习.docVIP

　　VFP表单应用程序开发实例—一位数加法练习3700字 摘　要：利用VFP的随机函数产生小于十的数，进行一位数加法的练习。 作文 zuo；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.sho.borderstyle=2 表单边框大小固定 　　Thisform.autocenter=.t. 　　Thisform.iron=“e:do.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..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..text3.alignment=2 居中对齐 　　Thisform.text3.fontname=“楷体-GB2312” 　　Thisform.text3.fontsize=28 　　Thisform.text3.height=60 　　Thisform.text3.left=288 　　Thisform