大家好，关于vb游戏排行榜很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于用VB做石头剪刀布游戏的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦，希望对各位有所帮助！

一、用VB编写一个小游戏

1、'定义运动区域4个禁区的枚举值

2、'定义蛇头及身体初始化数枚举值

3、Private Const SNAKEWIDTH As Integer= 100

4、Me.lblTitle="BS贪食蛇—(版本"& App.Major&"."& App.Minor&"."& App.Revision&")"

5、Me.Caption= Me.lblTitle.Caption

6、'该过程用于使窗体恢复原始大小

7、Me.Height= 6405'窗体高度为 6405缇

8、Me.Width= 8535'窗体宽度为 8535缇

9、Me.Left=(Screen.Width- Width)\ 2

10、Me.Top=(Screen.Height- Height)\ 2

11、'该过程用于重新开始开始游戏

12、Private Sub cmdGameStart_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

13、msg= MsgBox("您确认要重新开始游戏吗？", 4+ 32,"BS贪食蛇")

14、If msg= 6 Then Call m_subGameInitialize

15、Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

16、If Me.chkPause.Caption="暂停游戏(&P)" Then

17、Me.tmrSnakeMove.Enabled= False

18、Me.chkPause.Caption="继续游戏(&R)"

19、Me.chkPause.Caption="暂停游戏(&P)"

20、Private Sub cmdGameRules_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

21、MsgBox" BS贪食蛇：一个规则最简单的趣味游戏，您将用键盘"& Chr(13)& _

22、"上的4个方向键来控制蛇的运动方向。在运动过程中蛇"& Chr(13)& _

23、"不能后退，蛇的头部也不能接触到运动区域的边线以外"& Chr(13)& _

24、"和蛇自己的身体，否则就游戏失败。在吃掉随机出现的"& Chr(13)& _

25、"果子后，蛇的身体会变长，越长难度越大。祝您好运！！", 0+ 64,"游戏规则"

26、'该过程用于显示游戏开发信息

27、Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

28、MsgBox"BS贪食蛇"&"(V-"& App.Major&"."& App.Minor&"版本)"& Chr(13)& Chr(13)& _

29、"由PigheadPrince设计制作"& Chr(13)& _

30、"CopyRight(C)2002,BestSoft.TCG", 0,"关于本游戏"

31、Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

32、msg= MsgBox("您要退出本游戏吗？", 4+ 32,"BS贪食蛇")

33、Me.chkWindowButton(2).Value= 0

34、'该过程用于拖动窗体_(点击图标)

35、Private Sub imgWindowTop_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

36、SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0

37、'该共用过程用于处理窗体控制按钮组的相关操作_(锁定、最小化、退出)

38、Private Sub chkWindowButton_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

39、If Me.chkWindowButton(0).Value= 1 Then

40、Me.imgWindowTop.BorderStyle= 0

41、Me.imgWindowTop.Enabled= False

42、Me.imgWindowTop.BorderStyle= 1

43、Me.chkWindowButton(1).Value= 0

44、Me.Caption="BS贪食蛇—(V-"& App.Major&"."& App.Minor&"版本)"

45、msg= MsgBox("您要退出本游戏吗？", 4+ 32,"BS贪食蛇")

46、Me.chkWindowButton(2).Value= 0

47、'该过程用于设置蛇运动速度的快慢

48、Private Sub hsbGameSpeed_Change()

49、Me.tmrSnakeMove.Interval= Me.hsbGameSpeed.Value

50、'该过程用于通过键盘的方向键改变蛇的运动方向

51、Private Sub picMoveArea_KeyDown(KeyCode As Integer, Shift As Integer)

52、If KeyCode= D_DOWN Then Exit Sub

53、If KeyCode= D_UP Then Exit Sub

54、If KeyCode= D_RIGHT Then Exit Sub

55、If KeyCode= D_LEFT Then Exit Sub

56、'该计时循环过程用于计算游戏耗费的秒数并显示

57、Private Sub tmrGameTime_Timer()

58、g_lngGameTime= g_lngGameTime+ 1

59、Me.lblGameTime.Caption= g_lngGameTime&"秒"

60、'该计时循环过程用于控制蛇的行动轨迹

61、Private Sub tmrSnakeMove_Timer()

62、Dim lngSnakeX As Long, lngSnakeY As Long, lngSnakeColor As Long

63、Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long

64、'确认蛇头的运动方向并获取新的位置

65、g_udtSnake(SNAKEONE).Snake_CurX= g_udtSnake(SNAKEONE).Snake_OldX

66、g_udtSnake(SNAKEONE).Snake_CurY= g_udtSnake(SNAKEONE).Snake_OldY

67、g_udtSnake(SNAKEONE).Snake_CurY= g_udtSnake(SNAKEONE).Snake_CurY- SNAKEWIDTH

68、g_udtSnake(SNAKEONE).Snake_CurX= g_udtSnake(SNAKEONE).Snake_OldX

69、g_udtSnake(SNAKEONE).Snake_CurY= g_udtSnake(SNAKEONE).Snake_OldY

70、g_udtSnake(SNAKEONE).Snake_CurY= g_udtSnake(SNAKEONE).Snake_CurY+ SNAKEWIDTH

71、g_udtSnake(SNAKEONE).Snake_CurX= g_udtSnake(SNAKEONE).Snake_OldX

72、g_udtSnake(SNAKEONE).Snake_CurX= g_udtSnake(SNAKEONE).Snake_CurX- SNAKEWIDTH

73、g_udtSnake(SNAKEONE).Snake_CurY= g_udtSnake(SNAKEONE).Snake_OldY

74、g_udtSnake(SNAKEONE).Snake_CurX= g_udtSnake(SNAKEONE).Snake_OldX

75、g_udtSnake(SNAKEONE).Snake_CurX= g_udtSnake(SNAKEONE).Snake_CurX+ SNAKEWIDTH

76、g_udtSnake(SNAKEONE).Snake_CurY= g_udtSnake(SNAKEONE).Snake_OldY

77、lngSnakeX= g_udtSnake(SNAKEONE).Snake_CurX

78、lngSnakeY= g_udtSnake(SNAKEONE).Snake_CurY

79、lngSnakeColor= g_udtSnake(SNAKEONE).Snake_Color

80、Me.picMoveArea.PSet(lngSnakeX, lngSnakeY), lngSnakeColor

81、g_udtSnake(i).Snake_CurX= g_udtSnake(i- 1).Snake_OldX

82、g_udtSnake(i).Snake_CurY= g_udtSnake(i- 1).Snake_OldY

83、lngSnakeX= g_udtSnake(i).Snake_CurX

84、lngSnakeY= g_udtSnake(i).Snake_CurY

85、lngSnakeColor= g_udtSnake(i).Snake_Color

86、Me.picMoveArea.PSet(lngSnakeX, lngSnakeY), lngSnakeColor

87、g_udtSnake(j).Snake_OldX= g_udtSnake(j).Snake_CurX

88、g_udtSnake(j).Snake_OldY= g_udtSnake(j).Snake_CurY

89、'判断蛇在移动中是否到了禁区而导致游戏失败

90、If m_funMoveForbiddenZone(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then

91、MsgBox"您的蛇移动到了禁区，游戏失败！", 0+ 16,"BS贪食蛇"

92、Me.tmrSnakeMove.Enabled= False

93、'判断蛇在移动中是否碰到了自己的身体而导致游戏失败

94、If m_funTouchSnakeBody(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then

95、MsgBox"您的蛇在移动中碰到了自己的身体，游戏失败！", 0+ 16,"BS贪食蛇"

96、Me.tmrSnakeMove.Enabled= False

97、If m_funEatPoint(g_udtSnake(SNAKEONE).Snake_CurX, g_udtSnake(SNAKEONE).Snake_CurY) Then

98、'累加玩家的得分并刷新得分显示

99、g_intPlayerScore= g_intPlayerScore+ 1

100、Me.lblYourScore.Caption= g_intPlayerScore&"分"

101、Call m_subAddSnake'加长蛇的身体

102、Call m_subGetPoint'获取下一个果子的位置和颜色

103、lngPointColor= g_udtPoint.Point_Color

104、Me.picMoveArea.PSet(lngPointX, lngPointY), lngPointColor

105、'该私有子过程用于初始化游戏

106、Private Sub m_subGameInitialize()

107、Erase g_udtSnake'清空蛇的结构数组

108、g_intPlayerScore= 0'清空玩家的得分

109、g_lngGameTime= 0'清空游戏耗费的秒数

110、g_intDirection= D_DOWN'设定蛇的初始运动方向为下

111、g_intSnakeLength= 4'设定蛇的初始长度

112、ReDim g_udtSnake(1 To g_intSnakeLength)'重新定义蛇的长度

113、Me.lblYourScore.Caption= g_intPlayerScore&"分"

114、Me.lblGameTime.Caption= g_lngGameTime&"秒"

115、Me.tmrSnakeMove.Interval= Me.hsbGameSpeed.Value

116、Call m_subGetPoint'获取第一个果子的位置和颜色

117、'该私有子过程用于返回获取的果子的位置和颜色信息

118、Dim lngRedValue As Long, lngGreenValue As Long, lngBlueValue As Long

119、Dim lngPointX As Long, lngPointY As Long, lngPointColor As Long

120、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有电脑加载

Option Explicit'全局变量声明

Dim YouChoose'记录你的选择

Dim ComputerChoose'记录电脑选择

Private Sub Picture1_Click()'选了石头

ComputerChoose= Int(Rnd()* 3)'电脑选择，并记录下载

display'显示电脑的选择（这是个用户函数）

ToGo'判断胜负（这是个用户函数）

Private Sub Picture2_Click()'基本同上，选择剪刀

ComputerChoose= Int(Rnd()* 3)

Private Sub Picture3_Click()'基本同上，选择石头

ComputerChoose= Int(Rnd()* 3)

If YouChoose= ComputerChoose Then'一样就平

ElseIf(YouChoose= 0 And ComputerChoose= 1) Or(YouChoose= 1 And ComputerChoose= 2) Or(YouChoose= 2 And ComputerChoose= 0) Then'出现三种获胜可能之一就判定获胜

Sub display()'显示电脑的选择

On Error Resume Next'碰到错误则继续

If ComputerChoose= 0 Then'如果电脑选石头

Picture4.Picture= LoadPicture(App.Path+"石头.jpg")'加载石头图片

MsgBox"石头"'对话框弹出石头

ElseIf ComputerChoose= 1 Then'同上

Picture4.Picture= LoadPicture(App.Path+"剪刀.jpg")

ElseIf ComputerChoose= 2 Then

Picture4.Picture= LoadPicture(App.Path+"布.jpg")

三、vb小游戏源代码

Rem窗体创建三个单选框按钮，Option1、Option2、Option3。

小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。

当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。

小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。

小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。

小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash编程语言 Flash ActionScript制作而成。

由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。

vb游戏排行榜的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于用VB做石头剪刀布游戏、vb游戏排行榜的信息别忘了在本站进行查找哦。