各位老铁们，大家好，今天由我来为大家分享vb小游戏排行榜，以及用VB编写一个小游戏的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！一、用VB编写一个小游戏1、'定义运动区域4个禁区的枚举值2、'定义蛇头及身体初始化数枚举值3、PrivateConstSNAKEWIDTHAsInteger=1004、Me.lblTitle=&App.Major&&App.Minor&&App.Revision&5、Me.Caption=Me.lblTitle.Caption6、'该过程用于使窗体恢复原始大小7、Me.Height=6405'窗体高度为6405缇8、Me.Width=8535'窗体宽度为8535缇9、Me.Left=(Screen.Width-Width)\210、Me.Top=(Screen.Height-Height)\211、'该过程用于重新开始开始游戏12、PrivateSubcmdGameStart_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)13、msg=MsgBox(,4+32,)14、Ifmsg=6ThenCallm_subGameInitialize15、PrivateSubchkPause_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)16、IfMe.chkPause.Caption=Then17、Me.tmrSnakeMove.Enabled=False18、Me.chkPause.Caption=19、Me.chkPause.Caption=20、PrivateSubcmdGameRules_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)21、MsgBox&Chr(13)&_22、&Chr(13)&_23、&Chr(13)&_24、&Chr(13)&_25、,0+64,26、'该过程用于显示游戏开发信息27、PrivateSubcmdAbout_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)28、MsgBox&&App.Major&&App.Minor&&Chr(13)&Chr(13)&_29、&Chr(13)&_30、,0,31、PrivateSubcmdExit_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)32、msg=MsgBox(,4+32,)33、Me.chkWindowButton(2).Value=034、'该过程用于拖动窗体_(点击图标)35、PrivateSubimgWindowTop_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)36、SendMessageMe.hwnd,WM_SYSCOMMAND,SC_MOVE,037、'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)38、PrivateSubchkWindowButton_MouseUp(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)39、IfMe.chkWindowButton(0).Value=1Then40、Me.imgWindowTop.BorderStyle=041、Me.imgWindowTop.Enabled=False42、Me.imgWindowTop.BorderStyle=143、Me.chkWindowButton(1).Value=044、Me.Caption=&App.Major&&App.Minor&45、msg=MsgBox(,4+32,)46、Me.chkWindowButton(2).Value=047、'该过程用于设置蛇运动速度的快慢48、PrivateSubhsbGameSpeed_Change()49、Me.tmrSnakeMove.Interval=Me.hsbGameSpeed.Value50、'该过程用于通过键盘的方向键改变蛇的运动方向51、PrivateSubpicMoveArea_KeyDown(KeyCodeAsInteger,ShiftAsInteger)52、IfKeyCode=D_DOWNThenExitSub53、IfKeyCode=D_UPThenExitSub54、IfKeyCode=D_RIGHTThenExitSub55、IfKeyCode=D_LEFTThenExitSub56、'该计时循环过程用于计算游戏耗费的秒数并显示57、PrivateSubtmrGameTime_Timer()58、g_lngGameTime=g_lngGameTime+159、Me.lblGameTime.Caption=g_lngGameTime&60、'该计时循环过程用于控制蛇的行动轨迹61、PrivateSubtmrSnakeMove_Timer()62、DimlngSnakeXAsLong,lngSnakeYAsLong,lngSnakeColorAsLong63、DimlngPointXAsLong,lngPointYAsLong,lngPointColorAsLong64、'确认蛇头的运动方向并获取新的位置65、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX66、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY67、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_CurY-SNAKEWIDTH68、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX69、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY70、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_CurY+SNAKEWIDTH71、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX72、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_CurX-SNAKEWIDTH73、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY74、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX75、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_CurX+SNAKEWIDTH76、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY77、lngSnakeX=g_udtSnake(SNAKEONE).Snake_CurX78、lngSnakeY=g_udtSnake(SNAKEONE).Snake_CurY79、lngSnakeColor=g_udtSnake(SNAKEONE).Snake_Color80、Me.picMoveArea.PSet(lngSnakeX,lngSnakeY),lngSnakeColor81、g_udtSnake(i).Snake_CurX=g_udtSnake(i-1).Snake_OldX82、g_udtSnake(i).Snake_CurY=g_udtSnake(i-1).Snake_OldY83、lngSnakeX=g_udtSnake(i).Snake_CurX84、lngSnakeY=g_udtSnake(i).Snake_CurY85、lngSnakeColor=g_udtSnake(i).Snake_Color86、Me.picMoveArea.PSet(lngSnakeX,lngSnakeY),lngSnakeColor87、g_udtSnake(j).Snake_OldX=g_udtSnake(j).Snake_CurX88、g_udtSnake(j).Snake_OldY=g_udtSnake(j).Snake_CurY89、'判断蛇在移动中是否到了禁区而导致游戏失败90、Ifm_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX,g_udtSnake(SNAKEONE).Snake_CurY)Then91、MsgBox,0+16,92、Me.tmrSnakeMove.Enabled=False93、'判断蛇在移动中是否碰到了自己的身体而导致游戏失败94、Ifm_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX,g_udtSnake(SNAKEONE).Snake_CurY)Then95、MsgBox,0+16,96、Me.tmrSnakeMove.Enabled=False97、Ifm_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX,g_udtSnake(SNAKEONE).Snake_CurY)Then98、'累加玩家的得分并刷新得分显示99、g_intPlayerScore=g_intPlayerScore+1100、Me.lblYourScore.Caption=g_intPlayerScore&101、Callm_subAddSnake'加长蛇的身体102、Callm_subGetPoint'获取下一个果子的位置和颜色103、lngPointColor=g_udtPoint.Point_Color104、Me.picMoveArea.PSet(lngPointX,lngPointY),lngPointColor105、'该私有子过程用于初始化游戏106、PrivateSubm_subGameInitialize()107、Eraseg_udtSnake'清空蛇的结构数组108、g_intPlayerScore=0'清空玩家的得分109、g_lngGameTime=0'清空游戏耗费的秒数110、g_intDirection=D_DOWN'设定蛇的初始运动方向为下111、g_intSnakeLength=4'设定蛇的初始长度112、ReDimg_udtSnake(1Tog_intSnakeLength)'重新定义蛇的长度113、Me.lblYourScore.Caption=g_intPlayerScore&114、Me.lblGameTime.Caption=g_lngGameTime&115、Me.tmrSnakeMove.Interval=Me.hsbGameSpeed.Value116、Callm_subGetPoint'获取第一个果子的位置和颜色117、'该私有子过程用于返回获取的果子的位置和颜色信息118、DimlngRedValueAsLong,lngGreenValueAsLong,lngBlueValueAsLong119、DimlngPointXAsLong,lngPointYAsLong,lngPointColorAsLong120、lngRedValue=Int((255-0+1)*Rnd+0)121、lngGreenValue=Int((255-0+1)*Rnd+0)122、lngBlueValue=Int((255-0+1)*Rnd+0)123、lngPointColor=RGB(lngRedValue,lngGreenValue,lngBlueValue)124、lngPointX=Int((FZ_LEFT-FZ_RIGHT+1)*Rnd+FZ_RIGHT)125、lngPointY=Int((FZ_TOP-FZ_BOTTOM+1)*Rnd+FZ_BOTTOM)126、Me.PSet(lngPointX,lngPointY),lngPointColor二、vb小游戏源代码Rem窗体创建三个单选框按钮，Option1、Option2、Option3。小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和Flash编程语言FlashActionScript制作而成。由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。三、用VB怎么做一个小游戏啊1、'定义运动区域4个禁区的枚举值2、'定义蛇头及身体初始化数枚举值3、PrivateConstSNAKEWIDTHAsInteger=1004、Me.lblTitle=&App.Major&&App.Minor&&App.Revision&5、Me.Caption=Me.lblTitle.Caption6、'该过程用于使窗体恢复原始大小7、IfMe.WindowState1Then8、Me.Height=6405'窗体高度为6405缇9、Me.Width=8535'窗体宽度为8535缇10、Me.Left=(Screen.Width-Width)\211、Me.Top=(Screen.Height-Height)\212、'该过程用于重新开始开始游戏13、PrivateSubcmdGameStart_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)14、msg=MsgBox(,4+32,)15、Ifmsg=6ThenCallm_subGameInitialize16、PrivateSubchkPause_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)17、IfMe.chkPause.Caption=Then18、Me.tmrSnakeMove.Enabled=False19、Me.tmrGameTime.Enabled=False20、Me.picMoveArea.Enabled=False21、Me.chkPause.Caption=22、Me.tmrSnakeMove.Enabled=True23、Me.lblPauseLab.Visible=False24、Me.chkPause.Caption=25、PrivateSubcmdGameRules_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)26、MsgBox&Chr(13)&_27、&Chr(13)&_28、&Chr(13)&_29、&Chr(13)&_30、,0+64,31、'该过程用于显示游戏开发信息32、PrivateSubcmdAbout_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)33、MsgBox&&App.Major&&App.Minor&&Chr(13)&Chr(13)&_34、&Chr(13)&_35、,0,36、PrivateSubcmdExit_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)37、msg=MsgBox(,4+32,)38、Me.chkWindowButton(2).Value=039、'该过程用于拖动窗体_(点击图标)40、PrivateSubimgWindowTop_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)41、SendMessageMe.hwnd,WM_SYSCOMMAND,SC_MOVE,042、'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)43、PrivateSubchkWindowButton_MouseUp(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)44、IfButton1ThenExitSub45、IfMe.chkWindowButton(0).Value=1Then46、Me.imgWindowTop.BorderStyle=047、Me.imgWindowTop.Enabled=False48、Me.imgWindowTop.BorderStyle=149、Me.imgWindowTop.Enabled=True50、Me.chkWindowButton(1).Value=051、Me.Caption=&App.Major&&App.Minor&52、msg=MsgBox(,4+32,)53、Me.chkWindowButton(2).Value=054、'该过程用于设置蛇运动速度的快慢55、PrivateSubhsbGameSpeed_Change()56、Me.tmrSnakeMove.Interval=Me.hsbGameSpeed.Value57、'该过程用于通过键盘的方向键改变蛇的运动方向58、PrivateSubpicMoveArea_KeyDown(KeyCodeAsInteger,ShiftAsInteger)59、IfKeyCode=D_DOWNThenExitSub60、IfKeyCode=D_UPThenExitSub61、IfKeyCode=D_RIGHTThenExitSub62、IfKeyCode=D_LEFTThenExitSub63、'该计时循环过程用于计算游戏耗费的秒数并显示64、PrivateSubtmrGameTime_Timer()65、g_lngGameTime=g_lngGameTime+166、Me.lblGameTime.Caption=g_lngGameTime&67、'该计时循环过程用于控制蛇的行动轨迹68、PrivateSubtmrSnakeMove_Timer()69、DimlngSnakeXAsLong,lngSnakeYAsLong,lngSnakeColorAsLong70、DimlngPointXAsLong,lngPointYAsLong,lngPointColorAsLong71、'确认蛇头的运动方向并获取新的位置72、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX73、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY74、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_CurY-SNAKEWIDTH75、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX76、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY77、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_CurY+SNAKEWIDTH78、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX79、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_CurX-SNAKEWIDTH80、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY81、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_OldX82、g_udtSnake(SNAKEONE).Snake_CurX=g_udtSnake(SNAKEONE).Snake_CurX+SNAKEWIDTH83、g_udtSnake(SNAKEONE).Snake_CurY=g_udtSnake(SNAKEONE).Snake_OldY84、lngSnakeX=g_udtSnake(SNAKEONE).Snake_CurX85、lngSnakeY=g_udtSnake(SNAKEONE).Snake_CurY86、lngSnakeColor=g_udtSnake(SNAKEONE).Snake_Color87、Me.picMoveArea.PSet(lngSnakeX,lngSnakeY),lngSnakeColor88、g_udtSnake(i).Snake_CurX=g_udtSnake(i-1).Snake_OldX89、g_udtSnake(i).Snake_CurY=g_udtSnake(i-1).Snake_OldY90、lngSnakeX=g_udtSnake(i).Snake_CurX91、lngSnakeY=g_udtSnake(i).Snake_CurY92、lngSnakeColor=g_udtSnake(i).Snake_Color93、Me.picMoveArea.PSet(lngSnakeX,lngSnakeY),lngSnakeColor94、g_udtSnake(j).Snake_OldX=g_udtSnake(j).Snake_CurX95、g_udtSnake(j).Snake_OldY=g_udtSnake(j).Snake_CurY96、'判断蛇在移动中是否到了禁区而导致游戏失败97、Ifm_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX,g_udtSnake(SNAKEONE).Snake_CurY)Then98、MsgBox,0+16,99、Me.tmrSnakeMove.Enabled=False100、Me.tmrGameTime.Enabled=False101、Me.picMoveArea.Visible=False102、'判断蛇在移动中是否碰到了自己的身体而导致游戏失败103、Ifm_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX,g_udtSnake(SNAKEONE).Snake_CurY)Then104、MsgBox,0+16,105、Me.tmrSnakeMove.Enabled=False106、Me.tmrGameTime.Enabled=False107、Me.picMoveArea.Visible=False108、Ifm_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX,g_udtSnake(SNAKEONE).Snake_CurY)Then109、'累加玩家的得分并刷新得分显示110、g_intPlayerScore=g_intPlayerScore+1111、Me.lblYourScore.Caption=g_intPlayerScore&112、Callm_subAddSnake'加长蛇的身体113、Callm_subGetPoint'获取下一个果子的位置和颜色114、lngPointX=g_udtPoint.Point_X115、lngPointY=g_udtPoint.Point_Y116、lngPointColor=g_udtPoint.Point_Color117、Me.picMoveArea.PSet(lngPointX,lngPointY),lngPointColor118、'该私有子过程用于初始化游戏119、PrivateSubm_subGameInitialize()120、Eraseg_udtSnake'清空蛇的结构数组121、g_intPlayerScore=0'清空玩家的得分122、g_lngGameTime=0'清空游戏耗费的秒数123、g_intDirection=D_DOWN'设定蛇的初始运动方向为下124、g_intSnakeLength=4'设定蛇的初始长度125、ReDimg_udtSnake(1Tog_intSnakeLength)'重新定义蛇的长度126、Me.lblYourScore.Caption=g_intPlayerScore&127、Me.lblGameTime.Caption=g_lngGameTime&128、Me.tmrSnakeMove.Interval=Me.hsbGameSpeed.Value129、Me.tmrSnakeMove.Enabled=True130、Callm_subGetPoint'获取第一个果子的位置和颜色131、'该私有子过程用于返回获取的果子的位置和颜色信息132、DimlngRedValueAsLong,lngGreenValueAsLong,lngBlueValueAsLong133、DimlngPointXAsLong,lngPointYAsLong,lngPointColorAsLong134、lngRedValue=Int((255-0+1)*Rnd+0)135、lngGreenValue=Int((255-0+1)*Rnd+0)136、lngBlueValue=Int((255-0+1)*Rnd+0)137、lngPointColor=RGB(lngRedValue,lngGreenValue,lngBlueValue)138、lngPointX=Int((FZ_LEFT-FZ_RIGHT+1)*Rnd+FZ_RIGHT)139、lngPointY=Int((FZ_TOP-FZ_BOTTOM+1)*Rnd+FZ_BOTTOM)140、Me.PSet(lngPointX,lngPointY),lngPointColor141、'该私有子过程用于加长蛇的身体142、DimlngSnakeXAsLong,lngSnakeYAsLong,lngSnakeColorAsLong143、'备份蛇原先身体的数据并使蛇的身体加长144、ReDimudtSnakeTemp(1Tog_intSnakeLength)145、.Snake_CurX=g_udtSnake(k).Snake_CurX146、.Snake_CurY=g_udtSnake(k).Snake_CurY147、.Snake_OldX=g_udtSnake(k).Snake_OldX148、.Snake_OldY=g_udtSnake(k).Snake_OldY149、.Snake_Color=g_udtSnake(k).Snake_Color150、g_intSnakeLength=g_intSnakeLength+1151、ReDimg_udtSnake(g_intSnakeLength)152、'将备份蛇身体的数据返回到加长的蛇身数组中153、Forl=1Tog_intSnakeLength-1154、.Snake_CurX=udtSnakeTemp(l).Snake_CurX155、.Snake_CurY=udtSnakeTemp(l).Snake_CurY156、.Snake_OldX=udtSnakeTemp(l).Snake_OldX157、.Snake_OldY=udtSnakeTemp(l).Snake_OldY158、.Snake_Color=udtSnakeTemp(l).Snake_Color159、Withg_udtSnake(g_intSnakeLength)160、.Snake_OldX=g_udtSnake(g_intSnakeLength-1).Snake_CurX+SNAKEWIDTH161、.Snake_OldY=g_udtSnake(g_intSnakeLength-1).Snake_CurY162、.Snake_Color=g_udtPoint.Point_Color163、Withg_udtSnake(g_intSnakeLength)164、.Snake_OldX=g_udtSnake(g_intSnakeLength-1).Snake_CurX-SNAKEWIDTH165、.Snake_OldY=g_udtSnake(g_intSnakeLength-1).Snake_CurY166、.Snake_Color=g_udtPoint.Point_Color167、Withg_udtSnake(g_intSnakeLength)168、.Snake_OldX=g_udtSnake(g_intSnakeLength-1).Snake_CurX169、.Snake_OldY=g_udtSnake(g_intSnakeLength-1).Snake_CurY+SNAKEWIDTH170、.Snake_Color=g_udtPoint.Point_Color171、Withg_udtSnake(g_intSnakeLength)172、.Snake_OldX=g_udtSnake(g_intSnakeLength-1).Snake_CurX173、.Snake_OldY=g_udtSnake(g_intSnakeLength-1).Snake_CurY-SNAKEWIDTH174、.Snake_Color=g_udtPoint.Point_Color175、lngSnakeX=g_udtSnake(g_intSnakeLength).Snake_CurX176、lngSnakeY=g_udtSnake(g_intSnakeLength).Snake_CurY177、lngSnakeColor=g_udtSnake(g_intSnakeLength).Snake_Color178、Me.picMoveArea.PSet(lngSnakeX,lngSnakeY),lngSnakeColor179、'该自定义函数用于返回运动的蛇是否到达禁区而导致游戏失败180、PrivateFunctionm_funMoveForbiddenZone(SnakeXAsLong,SnakeYAsLong)AsBoolean181、If(SnakeX>=FZ_LEFTAndSnakeX=FZ_TOPAndSnakeY182、m_funMoveForbiddenZone=False183、'该自定义函数用于返回运动的蛇是否碰到自己的身体而导致游戏失败184、PrivateFunctionm_funTouchSnakeBody(SnakeXAsLong,SnakeYAsLong)AsBoolean185、IfSnakeX=g_udtSnake(m).Snake_CurXAndSnakeY=g_udtSnake(m).Snake_CurYThen186、'该自定义函数用于返回运动的蛇是否吃到了果子187、PrivateFunctionm_funEatPoint(SnakeXAsLong,SnakeYAsLong)AsBoolean188、IfAbs(SnakeX-g_udtPoint.Point_X)189、'（API函数调用过程_用以实现无标题窗体的拖动操作）---------------------------------190、'RleaseCapture函数用以释放鼠标捕获191、PublicDeclareFunctionReleaseCaptureLib()AsLong192、'SendMessage函数用作向Windows发送移动窗体的消息193、PublicDeclareFunctionSendMessageLibAlias(ByValhwndAs_194、Long,ByValwMsgAsLong,ByValwParamAsLong,IParamAsAny)AsLong195、PublicConstWM_SYSCOMMAND=&H112'声明向Windows发送消息的常量196、PublicConstSC_MOVE=&HF012'声明控制移动窗体常量197、'（游戏变量声明部分）-------------------------------------------------------------198、Publicg_intSnakeLengthAsInteger199、Publicg_lngSnakeColorAsLong200、Publicg_intDirectionAsInteger201、Publicg_intPlayerScoreAsIntegerOK，关于vb小游戏排行榜和用VB编写一个小游戏的内容到此结束了，希望对大家有所帮助。