资源描述：
《VS2008——VB扫雷游戏》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、VS2008——VB扫雷游戏扫雷游戏是一个经典游戏，无数人用各种编程语言写过它。现在用VS2008——VB编写，效果很好。游戏主要用Label控件写成，对它的一些属性都用编程的方法实现，如：字体的设置、边框线（样式）、背景颜色的设置、定位、图像的输出等。本游戏共用了84个Label控件。图1、扫雷游戏程序运行中图2、窗体设计页面图3、打开非雷方块（片区域）图4、游戏胜利结束图5、胜利信息框下面是程序中用到的一些位图图源（位图绑定要以自己存放位置为准）：1、笑脸2、苦脸3、面图4、地雷5、底片附程序全部源码：PublicStructureGAMEDimopen_stateAsIntegerDi
2、mm_stateAsIntegerDimm_numbersAsIntegerEndStructurePublicClassForm1PublicSWIDTHAsInteger=285PublicSHEIGHTAsInteger=410PublicGRECTAsInteger=30DimPos(0To8)AsIntegerDimGame(0To8,0To8)AsGAMEDimg_onAsInteger=0DimrAsInteger,cAsInteger,open_mAsIntegerPrivateSubsetmine()DimiAsInteger,trAsInteger,tcAsInteger
3、,rtAsIntegerRandomize()Fori=1To10rt=1DoWhilert=1tr=Int(Rnd()*8)+1tc=Int(Rnd()*8)+1IfGame(tr,tc).m_state=0ThenGame(tr,tc).m_state=1rt=0EndIfLoopNextEndSubPrivateSubgetminenumbers()DimiAsInteger,jAsInteger,numbersAsIntegerFori=0To8Forj=0To8numbers=0IfGame(i,j).m_state=0ThenIfi>0ThenIfGame(i-1,j).m_st
4、ate=1Thennumbers=numbers+1EndIfIfj>0ThenIfGame(i-1,j-1).m_state=1Thennumbers=numbers+1EndIfEndIfIfj<8ThenIfGame(i-1,j+1).m_state=1Thennumbers=numbers+1EndIfEndIfEndIfIfi<8ThenIfGame(i+1,j).m_state=1Thennumbers=numbers+1EndIfIfj>0ThenIfGame(i+1,j-1).m_state=1Thennumbers=numbers+1EndIfEndIfIfj<8ThenI
5、fGame(i+1,j+1).m_state=1Thennumbers=numbers+1EndIfEndIfEndIfIfj>0ThenIfGame(i,j-1).m_state=1Thennumbers=numbers+1EndIfEndIfIfj<8ThenIfGame(i,j+1).m_state=1Thennumbers=numbers+1EndIfEndIfEndIfGame(i,j).m_numbers=numbersNextNextEndSubPrivateFunctionretselect(ByValmrAsInteger,ByValmcAsInteger)DimrtAsI
6、nteger=0IfGame(mr,mc).open_state=1OrGame(mr,mc).m_state=1Thenrt=1EndIfIfGame(mr,mc).open_state=0ThenSelectCasemrCaseIs=0SelectCasemcCaseIs=0open_mylabel(Label1,mr,mc)CaseIs=1open_mylabel(Label2,mr,mc)CaseIs=2open_mylabel(Label3,mr,mc)CaseIs=3open_mylabel(Label4,mr,mc)CaseIs=4open_mylabel(Label5,mr,
7、mc)CaseIs=5open_mylabel(Label6,mr,mc)CaseIs=6open_mylabel(Label7,mr,mc)CaseIs=7open_mylabel(Label8,mr,mc)CaseIs=8open_mylabel(Label9,mr,mc)EndSelectCaseIs=1SelectCasemcCaseIs=0open_mylabel(Label10,mr,mc)Cas
