大家好，关于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做石头剪刀布游戏这是一个很简单的游戏。大致流程如下：在点击下picture的时候，生成一个1-3随机数（也就是电脑出的），可以把石头、剪刀、布分别看作0、1、2然后用if来进行判断，最后记下胜负。请在程序目录下放上三个jpg图片名为“剪刀”、“石头”、“布”picture123的图片请自己在属性列表中设置，pictue4有电脑加载OptionExplicit'全局变量声明DimYouChoose'记录你的选择DimComputerChoose'记录电脑选择PrivateSubPicture1_Click()'选了石头ComputerChoose=Int(Rnd()*3)'电脑选择，并记录下载display'显示电脑的选择（这是个用户函数）ToGo'判断胜负（这是个用户函数）PrivateSubPicture2_Click()'基本同上，选择剪刀ComputerChoose=Int(Rnd()*3)PrivateSubPicture3_Click()'基本同上，选择石头ComputerChoose=Int(Rnd()*3)IfYouChoose=ComputerChooseThen'一样就平ElseIf(YouChoose=0AndComputerChoose=1)Or(YouChoose=1AndComputerChoose=2)Or(YouChoose=2AndComputerChoose=0)Then'出现三种获胜可能之一就判定获胜Subdisplay()'显示电脑的选择OnErrorResumeNext'碰到错误则继续IfComputerChoose=0Then'如果电脑选石头Picture4.Picture=LoadPicture(App.Path+)'加载石头图片MsgBox'对话框弹出石头ElseIfComputerChoose=1Then'同上Picture4.Picture=LoadPicture(App.Path+)ElseIfComputerChoose=2ThenPicture4.Picture=LoadPicture(App.Path+)三、vb小游戏源代码Rem窗体创建三个单选框按钮，Option1、Option2、Option3。小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和Flash编程语言FlashActionScript制作而成。由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。vb游戏排行榜的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用VB做石头剪刀布游戏、vb游戏排行榜的信息别忘了在本站进行查找哦。