vb小游戏代码最新Word文档格式.docx

vb小游戏代码最新Word文档格式.docx

《vb小游戏代码最新Word文档格式.docx》由会员分享，可在线阅读，更多相关《vb小游戏代码最新Word文档格式.docx（14页珍藏版）》请在冰豆网上搜索。

DimxAsInteger,yAsInteger

DimzAsInteger

Init

Picture1.Enabled=True

让空白标签Label1出现的位置随机

记录下空白标签Label1的位置

x=Label1.Left

y=Label1.Top

z=Int（Rnd*8）

将空白标签Label1和标签控件数组任一控件交换位置

Label1.MoveLabel2（z）.Left,Label2（z）.Top

Label2（z）.Movex,y

Command1.Enabled=False

PrivateSubCommand2_Click（）

End

PrivateSubForm_Load（）

DimiAsInteger

Picture1.Enabled=False

在标签中显示游戏说明信息

Label3.Caption="

如左图所示，将数字按0-7顺"

&

vbCrLf&

"

序依次排列，即取得胜利。

在标签中显示排列规则后的数字顺序

Label1.Caption=0

Fori=0To6

Label2（i）.Caption=i+1

PrivateSubLabel1_DragDrop（SourceAsControl,xAsSingle,yAsSingle）

DimLabel1XAsInteger'

记录空白控件Label1左上角X的位置

DimLabel1YAsInteger'

记录空白控件Label1左上角Y的位置

Dimflag（3）AsBoolean

获取空白控件Label1的位置

Label1X=Label1.Left

Label1Y=Label1.Top

要移动的控件位于空白控件Label1的正左侧

flag（0）=（Label2X=Label1X-Source.Width）And（Label2Y=Label1Y）

要移动的控件位于空白控件Label1的正右侧

flag

（1）=（Label2X=Label1X+Source.Width）And（Label2Y=Label1Y）

要移动的控件位于空白控件Label1的正上方

flag

（2）=（Label2X=Label1X）And（Label2Y=Label1Y-Source.Height）

要移动的控件位于空白控件Label1的正下方

flag（3）=（Label2X=Label1X）And（Label2Y=Label1Y+Source.Height）

Ifflag（0）Orflag

（1）Orflag

（2）Orflag（3）Then

Label1.MoveLabel2X,Label2Y

Source.MoveLabel1X,Label1Y

EndIf

Win

PrivateSubLabel2_MouseDown（IndexAsInteger,ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

IfButton=vbLeftButtonThen'

如果按下鼠标左键

记录下要拖动控件的位置

Label2X=Label2（Index）.Left

Label2Y=Label2（Index）.Top

Label2（Index）.Drag1'

启动拖动操作

PrivateSubLabel2_MouseUp（IndexAsInteger,ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle）

Label2（Index）.Drag2'

结束拖动操作

PrivateSubWin（）

DimwinnerAsInteger

DimanswerAsInteger

对于给定的标签控件数组中的任一标签控件，可以落在符合要求（对应位置应显示对应数字）

的八个位置中的任一位置

利用循环语句对标签控件数组中的每个标签控件进行检查，如果其落在某一符号要求的位置，

则变量winner的值加1，如果所有标签控件都落在符号要求的位置，则变量winner的值应为8

IfLabel2（i）.Left=0AndLabel2（i）.Top=0And_

Label2（i）.Caption=0Then

winner=winner+1

ElseIfLabel2（i）.Left=Label2（i）.WidthAndLabel2（i）.Top=0And_

Label2（i）.Caption=1Then

ElseIfLabel2（i）.Left=2*Label2（i）.WidthAndLabel2（i）.Top=0And_

Label2（i）.Caption=2Then

ElseIfLabel2（i）.Left=0AndLabel2（i）.Top=Label2（i）.HeightAnd_

Label2（i）.Caption=3Then

ElseIfLabel2（i）.Left=Label2（i）.WidthAndLabel2（i）.Top=Label2（i）.HeightAnd_

Label2（i）.Caption=4Then

ElseIfLabel2（i）.Left=2*Label2（i）.WidthAndLabel2（i）.Top=Label2（i）.HeightAnd_

Label2（i）.Caption=5Then

ElseIfLabel2（i）.Left=0AndLabel2（i）.Top=2*Label2（i）.HeightAnd_

Label2（i）.Caption=6Then

ElseIfLabel2（i）.Left=Label2（i）.WidthAndLabel2（i）.Top=2*Label2（i）.HeightAnd_

Label2（i）.Caption=7Then

Ifwinner=8Then

MsgBox"

恭喜您，胜利了～"

0+64+0,"

提示"

answer=MsgBox（"

还继续吗,"

4+32+0,"

）

Ifanswer=vbYesThen

Command1.Enabled=True

Else

弹球游戏

Dimx_stepAsInteger

Dimy_stepAsInteger

PrivateSubcommand1_Click（）

IfTimer1.Enabled=TrueThen

Timer1.Enabled=FalseElse

Timer1.Enabled=TrueEndIf

Ifcommand1.Caption="

暂停"

Then

command1.Caption="

继续"

PrivateSubForm_Load（）x_step=200

y_step=200

PrivateSubPicture1_KeyDown（KeyCodeAsInteger,ShiftAsInteger）

IfKeyCode=37Then

IfLine1.X1<

0Then

Line1.X1=0:

Line1.X2=2000

Line1.X1=Line1.X1-100:

Line1.X2=Line1.X2-100

IfKeyCode=39Then

IfLine1.X1>

Picture1.WidthThen

Line1.X1=Picture1.Width-2000:

line2.X2=Picture.Width

Line1.X1=Line1.X1+100:

Line1.X2=Line1.X2+100

PrivateSubTimer1_Timer（）

IfShape1.Top<

Shape1.Top=0:

y_step=-y_step

IfShape1.Left<

Shape1.Left=0

x_step=-x_step

IfShape1.Left>

Picture1.Width-Shape1.WidthThen

Shape1.Left=Picture1.Width-Shape1.Width

=Line1.X1AndShape1.Left<

=Line1.X2AndShape1.Top>

=Line1.Y1-Shape1.HeightThen

Shape1.Top=Line1.Y1-Shape1.Height

y_step=-y_step*1.01

x_step=x_step*1.01

Label2.Caption=Label2.Caption+1

Shape1.Top=Shape1.Top+y_step

Shape1.Left=Shape1.Left+x_step

IfShape1.Top>

=Picture1.Height-Shape1.HeightThen

游戏结束"

开始"

Timer1.Enabled=False

Shape1.Top=1000

Label2.Caption=0

打字游戏

DimscoreAsInteger

DimspeedAsInteger

DimtypetimeAsInteger

PrivateSubinit（）

lblletter1.Caption=Chr（Int（Rnd*42）+48）lblletter1.Left=Int（Rnd*2800）+1lblletter1.Top=0

PrivateSubinit1（）

lblletter2.Caption=Chr（Int（Rnd*25）+97）lblletter2.Left=Int（Rnd*2800）+1lblletter2.Top=0

PrivateSubCommand1_Click（）score=Int（lblscore.Text）init

init1

Timer1=True

Timer2=True

HScroll1.Enabled=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseHScroll1.Enabled=False

Iflbltime.Text<

=0Then

Timer1=False

Timer2=False

lblletter1.Caption="

lblletter2.Caption="

EndIf

PrivateSubCommand2_Click（）typetime=InputBox（"

请输入打字时间。

"

时间设置"

Iftypetime<

lbltime.Text=60EndIf

lbltime.Text=typetimeEndSub

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

IfChr（KeyAscii）=lblletter1.CaptionThen

score=score+1

lblscore.Text=score

init

IfChr（KeyAscii）=lblletter2.CaptionThen

PrivateSubForm_Load（）Timer1.Enabled=FalseTimer2.Enabled=Falselblletter1.AutoSize=Truelblletter2.AutoSize=True

lblscore.Text=0

lblspeed.Caption=100

lbltime.Text=60

HScroll1.Max=200

HScroll1.Min=20

HScroll1.SmallChange=5HScroll1.LargeChange=20HScroll1.Value=100

PrivateSubHScroll1_Change（）lblspeed.Caption=HScroll1.ValueEndSub

PrivateSubTimer1_Timer（）lblletter1.Top=lblletter1.Top+lblspeed.CaptionIflblletter1.Top>

=4335Then

Callinit

lblletter2.Top=lblletter2.Top+lblspeed.CaptionIflblletter2.Top>

Callinit1

PrivateSubTimer2_Timer（）Iflbltime.Text>

lbltime.Text=lbltime.Text-1

Else:

SelectCasescore/（typetime/60）

CaseIs<

=40

MsgBox（"

不要放弃再试一次～"

Case40To80

太棒了，继续努力～"

Case80To120

坚持下去，你将成为一个打字高手～"

CaseIs>

120

祝贺你～你已经是一个打字高手～"

EndSelect

HScroll1.Enabled=True

Command2.Enabled=True

点灯游戏

PrivateSubForm_Load（）Form1.Scale（0,12）-（12,0）Fori=1To11

Line（1,i）-（11,i）

Line（i,1）-（i,11）Nexti

Subfill_color（X,Y）

IfPoint（X,Y）=vbWhiteThen

Line（Int（X）,Int（Y））-（Int（X+1）,Int（Y+1））,vbBlack,BFElse

Line（Int（X）,Int（Y））-（Int（X+1）,Int（Y+1））,vbWhite,BFEndIf

PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）

IfX>

=1AndX<

=11AndY>

=1AndY<

=11Then

Callfill_color（X,Y）

=11AndY+1>

=1AndY+1<

Callfill_color（X,Y+1）

=11AndY-1>

=1AndY-1<

Callfill_color（X,Y-1）

IfX+1>

=1AndX+1<

Callfill_color（X+1,Y）

IfX-1>

=1AndX-1<

Callfill_color（X-1,Y）

CallForm_Load

猜数字

DimnumberAsInteger

DimguessAsInteger,diffAsInteger

guess=Val（Text1.Text）

Ifguess=-1Then

要猜的数是"

number）

Text1.Text="

Text1.SetFocus

ExitSub

diff=Abs（number-guess）

SelectCasediff

Case0

恭喜你猜对了～"

Case2,Is<

2

接近了，再努力～"

Case10,Is<

12

有些远，再努力～"

CaseElse

太远了，继续努力～"

）EndSelect

>

0

计算机产生了一个1~100之间的整数，"

Chr（10）&

请您猜出这个数是多少。

如果输入-1，则停止猜数，并输出要猜的数。

number=Int（100*Rnd）+1

PrivateSubLabel1_Click（）

猜笑脸

PrivateSubCommand1_Click（IndexAsInteger）DimaAsInteger,iAsInteger

a=Int（Rnd*4）

Command1（a）.Enabled=False

Command1（a）.DisabledPicture=LoadPicture（"

267.gif"

Ifa=IndexThen

你猜对啦，真棒～"

你猜错啦，我在这哩～"

Fori=0To3

Command1（i）.Enabled=False

Command1（i）.Enabled=True

Command1（i）.Disable