VFP实例小程序-猜码小游戏

VFP实例小程序图文教程一一猜页码小游戏所需要运用的知识：一、 表单基本知识textlabelcommand二、 IF语句格式：If＜条件＞＜语句1＞Else＜语句2＞endif二、随机函数Rand()为0到1之间的随机小数，保留二位。如你要获得一个3位数的随机整数变量，则可设 a=int(rand()*1000)猜页码小游戏的VFP表单界面外观设计猜页码小游戏的VFP表单编程设计

Famllabel4?.cojnmand2command3 […cojnmand2:■表单中各个控件名称在上面全部都标注出来了。设计各个控件Label4在属性中设定label4的caption为“猜页码小游戏”，并设置一下字体大小，颜色等。尽量美观一点labell在属性中设定labell的caption为空Iabel3在属性中设定label3的caption为"总页码数为：”label2在属性中设定label2的caption为"结果显示区”textl在属性中设定textl的value为"=str(int(rand()*1000),8)”，并且设置它为隐藏属性text2在属性中设定text2的value为"=str(int(rand()*10+2),8)”，并且设置它为隐藏属性text3在属性中设定text2的value为空command1在属性中设定command1的caption为"再来一盘”对它的click过程编程为：a=rand()a1=a*1000a2=a1/3+2a1仁int(a1)a21=int(a2)thisform.text1.value=str(a11,8)thisform.text2.value=str(a21,8)mand4.caption="答案提示"thisform.text3.value="请重新猜"thisform.label1.caption=thisform.text1.valuecommand2在属性中设定command2的caption为“开始游戏”对它的click过程编程为：thisform.label1.caption=thisform.text1.valuecommand3在属性中设定command3的caption为“猜一猜”对它的click过程编程为：m0=val(thisform.text2.value)r=val(thisform.text3.value)ifr<m0ifr=m0thisform.label2.caption="你真聪明，猜对了"thisform.label2.fontsize=25thisform.label2.forecolor=rgb(255,0,255)elsethisform.label2.caption="太小了"endifelseifr=m0thisform.label2.caption="你真聪明，猜对了"thisform.label2.fontsize=25thisform.label2.forecolor=rgb(255,0,255)elsethisform.label2.caption="太大了"endifendifcommand4在属性中设定command4的caption为“提示答案”对它的click过程编程为：mand4.caption=thisform.text2.value游戏玩游戏介绍：1、 先点“开始游戏”2、 然后根据提示的总页码数来猜页码，并将页码输入到文本框中，然后点击“猜一猜”按纽。可以猜多次，猜