VFP實(shí)例小程序-猜碼小游戲

VFP實(shí)例小程序圖文教程一一猜頁碼小游戲所需要運(yùn)用的知識(shí)：一、 表單基本知識(shí)textlabelcommand二、 IF語句格式：If＜條件＞＜語句1＞Else＜語句2＞endif二、隨機(jī)函數(shù)Rand()為0到1之間的隨機(jī)小數(shù)，保留二位。如你要獲得一個(gè)3位數(shù)的隨機(jī)整數(shù)變量，則可設(shè) a=int(rand()*1000)猜頁碼小游戲的VFP表單界面外觀設(shè)計(jì)猜頁碼小游戲的VFP表單編程設(shè)計(jì)

Famllabel4?.cojnmand2command3 […cojnmand2:■表單中各個(gè)控件名稱在上面全部都標(biāo)注出來了。設(shè)計(jì)各個(gè)控件Label4在屬性中設(shè)定label4的caption為“猜頁碼小游戲”，并設(shè)置一下字體大小，顏色等。盡量美觀一點(diǎn)labell在屬性中設(shè)定labell的caption為空Iabel3在屬性中設(shè)定label3的caption為"總頁碼數(shù)為：”label2在屬性中設(shè)定label2的caption為"結(jié)果顯示區(qū)”textl在屬性中設(shè)定textl的value為"=str(int(rand()*1000),8)”，并且設(shè)置它為隱藏屬性text2在屬性中設(shè)定text2的value為"=str(int(rand()*10+2),8)”，并且設(shè)置它為隱藏屬性text3在屬性中設(shè)定text2的value為空command1在屬性中設(shè)定command1的caption為"再來一盤”對(duì)它的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="請(qǐng)重新猜"thisform.label1.caption=thisform.text1.valuecommand2在屬性中設(shè)定command2的caption為“開始游戲”對(duì)它的click過程編程為：thisform.label1.caption=thisform.text1.valuecommand3在屬性中設(shè)定command3的caption為“猜一猜”對(duì)它的click過程編程為：m0=val(thisform.text2.value)r=val(thisform.text3.value)ifr<m0ifr=m0thisform.label2.caption="你真聰明，猜對(duì)了"thisform.label2.fontsize=25thisform.label2.forecolor=rgb(255,0,255)elsethisform.label2.caption="太小了"endifelseifr=m0thisform.label2.caption="你真聰明，猜對(duì)了"thisform.label2.fontsize=25thisform.label2.forecolor=rgb(255,0,255)elsethisform.label2.caption="太大了"endifendifcommand4在屬性中設(shè)定command4的caption為“提示答案”對(duì)它的click過程編程為：mand4.caption=thisform.text2.value游戲玩游戲介紹：1、 先點(diǎn)“開始游戲”2、 然后根據(jù)提示的總頁碼數(shù)來猜頁碼，并將頁碼輸入到文本框中，然后點(diǎn)擊“猜一猜”按紐?？梢圆露啻危?/p>