大家好，如果您还对VB做游戏排行榜不太了解，没有关系，今天就由本站为大家分享VB做游戏排行榜的知识，包括VB可以做什么游戏的问题都会给大家分析到，还望可以解决大家的问题，下面我们就开始吧！一、用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_intPlayerScoreAsInteger二、VB可以做什么游戏理论上讲，VB可以做任何游戏，游戏开发不是一言两语能说明白的，在这里可以给你简单的说一下，具体开发方法请仔细百度。开发游戏你需要解决四个技术问题：1：图像绘制。2：声音播放。3：用户输入控制。4：文件的读写。其中2、3、4基本可以用VB的基础语言功能和操作系统提供的API解决，唯独绘图需要引擎来解决。除非是很小的小游戏，否则你不太可能用系统控件去做一个游戏，你也不能天才到啥都自己实现出来，你就算有那么天才，也没那个时间精力，也没有必要。做游戏用的绘图引擎一般是GDI或DIRECTX或OPENGL。VB6可以使用GDI或DIRECTX7、8，VB.net可以使用DIRECTX9以上的版本。其中GDI可以用来开发2D游戏，DIRECTX可以用于开发任何类型游戏，DIRECTX不但可以用来绘图，其还包含解决游戏中联网、用户输入控制、声音播放的专用模块推荐使用。三、我想用VB和3DSMAX一起做一个简单的3D小游戏,请问怎么做其实做3D游戏大部分都是代码，3Dmax只是做模型的。用程序贴上材质。+759812246。这里推荐下truevision3d3D引擎。有很多中文教程贴上最简单的源码：忘了说，用vb6.0PrivateTVAsTVEngine'声明TV3D引擎对象PrivateSceneAsTVScene'声明场景TVScene对象PrivateMeshAsTVMesh'声明网格TVMesh对象PrivateInputEAsTVInputEngine'声明输入（键盘、鼠标）对象SetTV=NewTVEngine'定义TV对象为TVEngine类的一个实例TV.Init3DWindowedModeForm1.hWnd'调用TV3D的一个函数Init3DWindowedMode，初始化3D窗口。参数是当前窗口的句柄SetInputE=NewTVInputEngine'定义InputE对象为TVInputEngine类的一个实例SetScene=NewTVScene'定义Scene对象为TVScene的一个实例SetMesh=Scene.CreateMeshBuilder'定义Mesh对象为TVMesh的一个实例，用Scene的CreateMeshBuilder方法生成Scene.SetSceneBackGround1,0,0'设置背景颜色Mesh.CreateTeapot'建立茶壶模型Mesh.SetPosition0,0,10'Z越小，图像越大DoEvents'用DoEvents函数，让Windows空出来作别的事TV.Clear'清除缓冲区的内容Mesh.Render'渲染Mesh（3D物件）TV.RenderToScreen'把缓冲区的内容渲染到屏幕上LoopUntilInputE.IsKeyPressed(TV_KEY_ESCAPE)'直到用户按下了Esc，游戏终止运行SetInputE=Nothing'释放InputE对象所占用的内存空间SetTV=Nothing'释放TV对象所占用的内存空间好了，文章到这里就结束啦，如果本次分享的VB做游戏排行榜和VB可以做什么游戏问题对您有所帮助，还望关注下本站哦！