资源描述：
《vb小游戏代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、数字排序小游戏OptionExplicitDimLabel2XAsInteger'记录标签控件数组中要移动的标签控件左上角X的位置DimLabel2YAsInteger'记录标签控件数组中要移动的标签控件左上角Y的位置'让标签数组中的每个标签控件上显示的数字是随机的，无重复的PrivateSubInit()RandomizeDima(7)AsIntegerDimiAsInteger,kAsIntegerLabel1.Caption=""Fori=0To7a(i)=iNextFori=0To7k=Int(Rnd*8)DoWhilea(k)=-1'a(k)
2、=-1表示该数组元素对应的数字已经被使用过了k=Int(Rnd*8)'重新生成k的值，直到a(k)的值不等于-1LoopLabel2(i).Caption=Trim(Str(a(k)))a(k)=-1'a(k)的值已经使用了，不能再用，重新赋值为-1与其他的元素值相区别13NextiEndSubPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerDimzAsIntegerInitPicture1.Enabled=True'让空白标签Label1出现的位置随机Randomize'记录下空白标签Label1的
3、位置x=Label1.Lefty=Label1.Topz=Int(Rnd*8)'将空白标签Label1和标签控件数组任一控件交换位置Label1.MoveLabel2(z).Left,Label2(z).TopLabel2(z).Movex,yCommand1.Enabled=FalseEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()DimiAsIntegerPicture1.Enabled=False'在标签中显示游戏说明信息Label3.Caption="如左图所示，将数字
4、按0-7顺"&vbCrLf&vbCrLf&"序依次排列，即取得胜利。"'在标签中显示排列规则后的数字顺序Label1.Caption=0Fori=0To6Label2(i).Caption=i+1NextEndSub13PrivateSubLabel1_DragDrop(SourceAsControl,xAsSingle,yAsSingle)DimLabel1XAsInteger'记录空白控件Label1左上角X的位置DimLabel1YAsInteger'记录空白控件Label1左上角Y的位置Dimflag(3)AsBoolean'获取空白控件Lab
5、el1的位置Label1X=Label1.LeftLabel1Y=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
6、.Height)'要移动的控件位于空白控件Label1的正下方flag(3)=(Label2X=Label1X)And(Label2Y=Label1Y+Source.Height)Ifflag(0)Orflag(1)Orflag(2)Orflag(3)ThenLabel1.MoveLabel2X,Label2YSource.MoveLabel1X,Label1YEndIfWinEndSubPrivateSubLabel2_MouseDown(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,xAsSingle,
7、yAsSingle)IfButton=vbLeftButtonThen'如果按下鼠标左键'记录下要拖动控件的位置Label2X=Label2(Index).LeftLabel2Y=Label2(Index).TopLabel2(Index).Drag1'启动拖动操作EndIfEndSubPrivateSubLabel2_MouseUp(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)Label2(Index).Drag2'结束拖动操作13EndSubPrivateSub
8、Win()DimwinnerAsIntegerDimiAsIntegerDimanswerAs
