资源描述：
《vb编程设计计算器实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Vb编程设计扫雷实验报告一．设计名称：扫雷二．设计目的：通过vb程序设计出类似游戏“扫雷”的程序。三．Vb设计扫雷游戏界面：四．设计步骤：1.新建一个工程2.设置控件添加command1控件数组，控件数组内个数为99。添加command2控件，caption属性设置为“开始”添加timer控件，设置Interval属性值为“1000”添加label1,label2控件，设置caption属性分别为“雷数”，“计时”添加text1,text2控件，设置text属性为“20”3.编写代码3PrivateSubCommand1_MouseDown(In
2、dexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenIfCommand1(Index).Tag=TrueThenMsgBox"GameOver!"Timer1.Enabled=FalseText2="0"Elsem=0SelectCaseIndexCase0IfCommand1(Index+1).Tag=TrueThen3m=m+1IfCommand1(Index+10).Tag=TrueThenm=m+1IfCommand1(Index+11
3、).Tag=TrueThenm=m+1Case9IfCommand1(Index-1).Tag=TrueThenm=m+1IfCommand1(Index+10).Tag=TrueThenm=m+1IfCommand1(Index+9).Tag=TrueThenm=m+1Case90IfCommand1(Index+1).Tag=TrueThenm=m+1IfCommand1(Index-10).Tag=TrueThenm=m+1IfCommand1(Index-9).Tag=TrueThenm=m+1Case99IfCommand1(Index
4、-1).Tag=TrueThenm=m+1IfCommand1(Index-10).Tag=TrueThenm=m+1IfCommand1(Index-11).Tag=TrueThenm=m+1Case1To8IfCommand1(Index+1).Tag=TrueThenm=m+1IfCommand1(Index-1).Tag=TrueThenm=m+1IfCommand1(Index+10).Tag=TrueThenm=m+1IfCommand1(Index+9).Tag=TrueThenm=m+1IfCommand1(Index+11).T
5、ag=TrueThenm=m+1Case91To98IfCommand1(Index+1).Tag=TrueThenm=m+1IfCommand1(Index-1).Tag=TrueThenm=m+1IfCommand1(Index-10).Tag=TrueThenm=m+1IfCommand1(Index-9).Tag=TrueThenm=m+1IfCommand1(Index-11).Tag=TrueThenm=m+1Case10,20,30,40,50,60,70,80IfCommand1(Index+10).Tag=TrueThenm=m
6、+1IfCommand1(Index-10).Tag=TrueThenm=m+1IfCommand1(Index+1).Tag=TrueThenm=m+1IfCommand1(Index-9).Tag=TrueThenm=m+1IfCommand1(Index+11).Tag=TrueThenm=m+1Case19,29,39,49,59,69,79,89IfCommand1(Index+10).Tag=TrueThenm=m+1IfCommand1(Index-10).Tag=TrueThenm=m+1IfCommand1(Index-1).T
7、ag=TrueThenm=m+1IfCommand1(Index+9).Tag=TrueThenm=m+1IfCommand1(Index-11).Tag=TrueThenm=m+1CaseElseIfCommand1(Index+10).Tag=TrueThenm=m+1IfCommand1(Index-10).Tag=TrueThenm=m+1IfCommand1(Index+1).Tag=TrueThenm=m+1IfCommand1(Index+9).Tag=TrueThenm=m+1IfCommand1(Index+11).Tag=Tr
8、ueThenm=m+1IfCommand1(Index-1).Tag=TrueThenm=m+1IfCommand1(Index-9).
