VB猜数字游戏程序代码

私人？Sub？Command1_Click()

开？错误？简历？然后

暗淡？我？作为？整数

我？=?MsgBox("下一局开始。你准备好了吗？”,?vbYesNo)

如果？我？=?6?然后呢？Frame1。可见？=?真实:？Text1？=?""?不然呢？Frame1。可见？=?错误的

Text1。SetFocus

随机化？(计时器)

Text2？=?Int(Rnd()？*?10)?+?1

Text3？=?0

结束？潜水艇

私人？Sub？Command2_Click()

结束

结束？潜水艇

私人？Sub？Form_Load()

我。身高？=?5000

我。宽度？=?10500

我。BorderStyle？=?1

我。标题？=?“猜谜游戏”

Label1。向左？=?0

Label1。Top？=?1000

Label1。标题？=?"欢迎来到猜谜游戏"

Label1。字体名称？=?"斜体_GB2312 "

Label1。前景色？=?& ampH80FF & amp

Label1。FontSize？=?48

命令1。标题？=?“走”

命令1。违约？=?真实的

命令2。标题？=?“退出”

命令2。取消？=?真实的

结束？潜水艇

私人？Sub？Text1_KeyPress(KeyAscii？作为？整数)

如果？(KeyAscii？& lt？48?还是？KeyAscii？& gt？57)?然后呢。KeyAscii？& lt& gt？13?然后呢？KeyAscii？=?0

如果？KeyAscii？=?13?然后

如果？Text1？& lt& gt？""?然后呢？Jysz

结束？如果

结束？潜水艇

私人？功能？Jysz()？作为？布尔代数学体系的

Text3？=?Val(Text3)？+?1

如果？Val(Text1)？=?Val(Text2)？然后

MsgBox？“你猜对了，你很棒”？& amp？Chr(13)？& amp？Chr(10)？& amp？“请猜下一个……”

命令1_Click

埃尔瑟夫？Val(Text1)？& gt？Val(Text2)？然后

MsgBox？“大猜想。”

其他

MsgBox？“小猜想。”

结束？如果

Text1？=?""

如果？Val(Text3)？& gt=?3?然后

MsgBox？“呵呵，没猜错吧！正确答案是“？& amp？Text2？& amp？"。不要气馁，再来！”

命令1_Click

结束？如果

结束？功能

具体程序已经发到你的邮箱了，songxing_cool@yahoo.com.cn。

更多代码见我的博客/zgmg/blog。