大家好，今天小编来为大家解答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做过什么大型软件或者游戏

1、VB5时代曾经有个外国公司开发了一款VB+DirectX的三维游戏。至今国内到www.vbgamediy.com还能见到一些人在用vb开发3d游戏，但很少有公司或者工作室以商业目的去用vb开发了。

2、至于vb为主开发的大型软件有很多，尤其vb6时代很多财务、ERP、OA、教育、会议系统等大型应用软件都是vb开发的。快速应用型开发一直是VB的强项。自从dotNet平台出现，vb.net更是跨入高性能、更强大的平台，不过由于出现了新兴语言C#，国内很多人追新追C类型的语法。事实上在国外VB做大型项目的企业是非常多的，国内搞很多东西都有较为偏激的潮流。事实上没有不好的语言，只有不好的程序员，就像画家不是因为笔的差别而画不出好画一样。

三、电视游戏机十大品牌排行榜有哪些

1、电视游戏机推荐排名：任天堂／Nintendo任天堂株式会社，任天堂（香港）有限公司，游戏手柄知名品牌，始于1889年日本，全球较大的电视游戏公司之一，世界范围内最具影响力游戏平台生产商，便携式游戏机平台的知名企业。

2、游戏机品牌排行榜：任天堂、索尼、微软、联想乐檬、NVIDIAShield、雷柏、雷蛇、赛睿、盖世小鸡、飞智，其中最知名的游戏机我推荐任天堂。任天堂Switch是17年3月发布的旗舰产品，全名为“NINTENDOSWITCH”。

3、游戏机推荐排名如下：PlayStation。PlayStation，是日本Sony（索尼）旗下的索尼电脑娱乐SCEI家用电视游戏机，现已成为最出名的家游产品之一。

4、任天堂（Nintendo）：FC，SFC，VB，N64，GC，Wii（电视游戏机）；GB，GBA，GBASP，NDS（掌机）。世嘉（SEGA）：MD，SS，DC（电视游戏机）。索尼（SONY）：PS，PS2，PS3（电视游戏机）；PSP（掌机）。

四、十大名牌游戏

中国十大游戏手柄知名品牌有哪些?

1、旗下品牌有派鲨鱼（ipega），经过多年的发展已成为国内游戏配件行业中领军的龙头企业；派鲨鱼ipega品牌产品系列包括：游戏手柄、游戏耳机、Switch系列、SwitchLlite系列、PS3/PS4系列，Xbox/360系列。

2、派鲨鱼ipegaIpega品牌隶属于深圳市艾柏祺生物科技有限公司，是一个具有独自研发能力的品牌，品牌致力于为广大游戏爱好者提供更好的体验和服务，在开拓新的空间的同时保持创新意识的品牌，2018年成立ipega品牌耳机系列生产线。

3、看你预算多少啦！建议你去中关村的游戏手柄排行榜上面看看，哪里的排名靠前的手柄都是国内买的不错的，我自己买的是个雷柏V600感觉还不错，特别是手感方面和朋友XOBX没什么区别。

4、任天堂株式会社，任天堂（香港）有限公司，游戏手柄知名品牌，始于1889年日本，全球较大的电视游戏公司之一，世界范围内最具影响力游戏平台生产商，便携式游戏机平台的知名企业。

5、Logitech是一家知名的电脑配件品牌，其生产的游戏手柄质量也非常不错，适用于PC和部分游戏机。游戏手柄手柄是一种电子游戏机的输入设备，通过操纵其按钮等，可以实现对电脑上模拟角色等的控制。

1、腾讯公司，吸金能力全世界第一，一个游戏代码可以挣几个亿。虽说少年强则马化腾强，但是腾讯公司给大家带来的游戏体验是非常不错的，没人敢说自己没玩过腾讯的游戏。

2、第一家知名的福建游戏公司便是闽乐游戏，成立于2008年，自主开发多款网络游戏，其中《剑侠情缘3D》更是受到众多玩家的喜爱。闽乐游戏凭借出色的游戏品质和优秀的服务，赢得了业内的好评和广泛的支持。

3、没有第一强的，每个公司的3D游戏都有他的特色，不过如果说综合实力的话，腾讯应该能排第一。

4、成都锦天科技发展有限责任公司，创立于2004年7月，位于中国四川省成都市。坐落在四川成都高新区软件孵化园区。是中国第一家横跨数字娱乐和网络安全的综合性大型企业，西南最大的网络游戏研发及运营综合企业之一。

5、准确来说暴雪，EA，世嘉，konami，capcom是纯游戏公司，也就是制作游戏的。sony任天堂还有微软是出游戏主机的也就是硬件商，当然，sony，任天堂还有微软自己也出游戏。

好的手柄品牌有北通、飞智、盖世小鸡、微软、索尼、雷神G40等。

推荐如下：BETOP北通北通是国内首屈一指的游戏外设品牌，其前身为利昌有限公司，并于1997年在国内正式注册“北通”、“BETOP”品牌商标，创立游戏外设第一中文品牌。

问题一：游戏手柄哪个牌子好用毫无悬念，品牌北通，如果玩动作类游戏，选北通神鹰，手感好，双震动，带连发系统，最主要是按键精确，市场价60-75元。

目前最好的品牌是微软。其次是索尼、北通和任天堂。然后是飞智、机械师、雷柏等牌子。有线还是无线无线手柄的优势在于自由度高，躺着坐着都能玩游戏。

游戏手柄是一种常见电子游戏机的部件，通过操纵其按钮等，实现对游戏虚拟角色的控制。

1、目前游戏手柄主要是handioynpro、Ngame和BETOP比较热门。初级玩家和经验玩家都非常适用。选择适用的游戏手柄，有助游戏操作可以更顺畅地进行，因此选择游戏手柄可以根据下面指示。

2、你可以购买“北通”的游戏手柄北通，前身为利昌有限公司，于1997年在国内正式注册“北通”、“BETOP”品牌商标，创立了游戏外设第一中文品牌。

3、虽然是nspro手柄，但是也可以用来连电脑玩游戏。任天堂的手柄虽然性价比一般，不过质量有保障，不容易坏。配色多而且很好看，外观设计也和lite一样属于小巧灵动型的。

4、游戏手柄雷神的好。莱德雷神Ledlenser成立于1993年的德国，制造世界上独树一帜的电筒和头灯系列产品。

5、问题六：游戏手柄十大品牌排行榜游戏手柄什么牌子好用的是莱仕达的，灵动系列的有几个问题七：买游戏手柄买什么牌子好。

《汽车大师》系列作为最受欢迎的汽车制造商之一，福特在汽车游戏中也有着非常高的知名度。《汽车大师》系列是由福特汽车公司开发的一款汽车模拟游戏，玩家可以在游戏中设计、制造和测试各种福特品牌的汽车。

而且，游戏的名字“RoomEscape”恰好和福特最受欢迎的一款车型福特翼虎（FordEscape）的名字产生了交集。因此，这个游戏为福特翼虎与消费者之间架起桥梁，提供了一个完美的契机。

其次，奔驰车型在游戏中的性能表现也备受玩家喜爱。奔驰品牌一直以来都是高端豪华汽车的代表，其车型在性能方面也是表现极为出色。

领克06全新都市功能SUV，拥有先进的都市对立美学设计、车内能量融合舱的高科技氛围、日常魔幻操作等诸多年轻用户喜爱的“魔装”智能感应交互。各种黑科技秀操作，可以让驾乘人员感受到操作机器一样的快感。

电视游戏机推荐排名：任天堂／Nintendo任天堂株式会社，任天堂（香港）有限公司，游戏手柄知名品牌，始于1889年日本，全球较大的电视游戏公司之一，世界范围内最具影响力游戏平台生产商，便携式游戏机平台的知名企业。

游戏机品牌排行榜：任天堂、索尼、微软、联想乐檬、NVIDIAShield、雷柏、雷蛇、赛睿、盖世小鸡、飞智，其中最知名的游戏机我推荐任天堂。任天堂Switch是17年3月发布的旗舰产品，全名为“NINTENDOSWITCH”。

游戏机推荐排名如下：PlayStation。PlayStation，是日本Sony（索尼）旗下的索尼电脑娱乐SCEI家用电视游戏机，现已成为最出名的家游产品之一。

任天堂（Nintendo）：FC，SFC，VB，N64，GC，Wii（电视游戏机）；GB，GBA，GBASP，NDS（掌机）。世嘉（SEGA）：MD，SS，DC（电视游戏机）。索尼（SONY）：PS，PS2，PS3（电视游戏机）；PSP（掌机）。

好了，关于vb游戏平台排行榜和VB做过什么大型软件或者游戏的问题到这里结束啦，希望可以解决您的问题哈！