vb能做什么游戏，用vb编程可以设计那些小游戏

时间:2022-07-30 05:54:51 作者:本站作者

1，用vb编程可以设计那些小游戏

打地鼠猜数字黑白棋五子棋汉诺塔等等你能想到的，差不多都可以做的

可以做很简单，不过分太少。

2，用vb都能做些什么游戏

一些简单的单机游戏，或者是局域网对战类的游戏都是VB可以胜任的，现在的VB已经不是以前的VB了。现在的VB借助.NET平台强大的类库已经可以飞向VISTA操作系统，参与桌面应用程序的开发了。祝你成功哦。需要源码学习，你也可以联系我。

vb能做什么游戏，用vb编程可以设计那些小游戏

3，用vb都能做些什么游戏

vb能做什么游戏，用vb编程可以设计那些小游戏

4，VB编程好学吗

本人是一名程序员，也学习了很多门编程语言，认为VB还是比较好学的。VB是一门可视化的编程语言，有句话叫做“所见即所得”，在设计页面的时候可以通过拖拽的方式添加按钮、输入框等等，编写代码通过双击相应的控件，就可以进入编程页面进行代码的编写。窗体设计页面在下图中的代码输入框可以进行逻辑代码的编写，通过代码操作数据。代码编写窗口做为一门出现时间比较长久的编程语言，VB还是比较容易上手的，只是现在应用不是很广泛。

5，用vb都能做些什么游戏

6，vb编写的大型软件或大型游戏有哪些

软件不太清楚，和c编出来的长的差不多，一般都是大型财务软件。游戏，比如三国志6就是vb做的。国内的游戏本身就不是很多，一般都是个人在搞，有个精英战警2算是大型游戏，还有卡通梦幻曲。

大型网络游戏肯定是运用多种编程语言而产生的，vb对于编写游戏并无优势，，，你说的应该不行

7，VB可以用来做单机2D游戏吗例如红色警戒之类的什么的

做不了吧，我记得VB只是编程的，没有处理图片的功能，编出来的游戏只能是窗口的，问答题之类的文字游戏。。。

可以准确的告诉你一个字：能！业余开发不在于语言而在于自己的技术，vb练得熟了做的游戏比一般人用c++做的还好。话说用vb先练思路，然后熟练了再转c++正是我走的路，感觉很轻松，学vb就用了一下午就学会了。

8，VB做过什么大型软件或者游戏

VB5时代曾经有个外国公司开发了一款VB+DirectX的三维游戏。至今国内到www.vbgamediy.com还能见到一些人在用vb开发3d游戏，但很少有公司或者工作室以商业目的去用vb开发了。至于vb为主开发的大型软件有很多，尤其vb6时代很多财务、ERP、OA、教育、会议系统等大型应用软件都是vb开发的。快速应用型开发一直是VB的强项。自从dotNet平台出现，vb.net更是跨入高性能、更强大的平台，不过由于出现了新兴语言C#，国内很多人追新追C类型的语法。事实上在国外VB做大型项目的企业是非常多的，国内搞很多东西都有较为偏激的潮流。事实上没有不好的语言，只有不好的程序员，就像画家不是因为笔的差别而画不出好画一样。

9，vb语言都能做什么可以开发游戏吗

你想编什么只要你够技术都能编出来。visual basic 确实很强大，但已经落后了，编游戏有很大难度。但是编一些计算器、ie浏览器、音乐播放器、简单的文字处理软件（类似word）等小东西还是可以的，而且简单易学(只要你懂英语，vb语法就不难学了）。至于游戏，就很难。现在都用c了，谁还用vb呢？目前vb已经没有了商业价值，只是一些电脑爱好者还使用着罢了！

选错工具了,vb不是做这个用的你最好先学习3dmax之类啊,就是学学falsh也好啊 vb是初学者的工具,一般是用于数据的应用,比如做一个财务系统. 当然,可以开发一些小的东东来玩如果想做大的. 要用 c语言之类,开发出环境也就是说,自做一个适合游戏的像vb那样的东东 ...叫什么引擎...[就像是做饭...有个很好的厨具了.][用vb,倒像有了方便面,鸡蛋...]这样才算完了基础工作接下来, 就是开发了. 一般来讲,要一个团队其中,很多3d是用其它软件开发的,因此,需要的是素材和接口 [做饭的原料和一些半成品]美工当然是少不了的. [好比是调味品]... 大约是这样吧

当然可以了。

可以开发游戏，但现在主流是JAVA

10，帮我用VB做个小游戏200分哦

FontSize = 50 ChuShiHua End Sub Private Sub Form_Resize() On Error GoTo 1;暂停": With Me If .WindowState <> 1 Then , She(C).AutoSize = True Label1.BackStyle = 0 Label1 = ".ForeColor = RGB(255.Y = She(C - 1).Y - 1 ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).F = 2 Then Exit Sub She(C).F = 0 GFangXiang = True Case 38 If She(C).F = 3 Then Exit Sub She(C)贪吃蛇 Option Explicit Private WithEvents Timer1 As Timer Private WithEvents Label1 As Label Dim GFangXiang As Boolean Dim HWB As Single Dim She() As ShenTi Dim X As Long, Y As Long Dim ZhuangTai(23, 23) As Long Private Type ShenTi F As Long X As Long Y As Long End Type Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim C As Long If KeyCode = 27 Then End If KeyCode = 32 Then If Timer1.Timer".ScaleHeight / .ScaleWidth .ScaleWidth = 24 , 255, 0) Label1.Y) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1), "Timer1") Set Label1 = Controls.Add("VB.Enabled = True Then Timer1.Enabled = False Label1, (Me.ScaleHeight - Label1.Y ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X - 1, She(C).Y) = 1 Then GoTo 2.ScaleHeight = 24 Label1: End Sub Private Sub Timer1_Timer() Dim C As Long, I As Long On Error GoTo 2: QingChu C = UBound(She) Select Case She(C).F Case 0 If ZhuangTai(She(C).F = She(C - 1).F She(C).F She(C).X = She(C - 1).FillColor = 255 Me.FillStyle = 0 Me.Move (Me.ScaleWidth - Label1.Width) / 2.Y - 1) = 1 Then GoTo 2: End If Case 2 If ZhuangTai(She(C).X + 1, She(C).Y) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X + 1 She(C).Y = She(C - 1).Y ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X + 1, She(C).Y) = 1 Then GoTo 2: End If Case 3 If ZhuangTai(She(C).X, She(C).Y + 1) = 2 Then C = C + 1 ReDim Preserve She(C) She(C).F = She(C - 1).F She(C).X = She(C - 1).X She(C).Y = She(C - 1).Y + 1 ChanShengShiWu GoTo 1: ElseIf ZhuangTai(She(C).X, She(C).Y + 1) = 1 Then GoTo 2: End If End Select ZhuangTai(She(0).X, She(0).Y) = 0 For I = 0 To C Select Case She(I).F Case 0 She(I).X = She(I).X - 1 Case 1 She(I).Y = She(I).Y - 1 Case 2 She(I).X = She(I).X + 1 Case 3 She(I).Y = She(I).Y + 1 End Select Next TiaoZheng 1: GFangXiang = False ZhuangTai(She(C).X, She(C).Y) = 1 HuaTu Exit Sub 2: If MsgBox("游戏结束，点“是”重新开始游戏，点“否”", vbYesNo, "贪吃蛇") = vbYes Then ChuShiHua Else End End If End Sub Private Sub ChuShiHua() Me.Cls Timer1.Enabled = True Timer1.Interval = 200 Erase ZhuangTai ReDim She(2) She(0).F = 2 She(0).X = 9 She(0).Y = 11 ZhuangTai(9, 11) = 1 She(1).F = 2 She(1).X = 10 She(1).Y = 11 ZhuangTai(10, 11) = 1 She(2).F = 2 She(2).X = 11 She(2).Y = 11 ZhuangTai(11, 11) = 1 HuaTu ChanShengShiWu End Sub Private Sub QingChu() Dim I As Long For I = 0 To UBound(She) Me.Line (She(I).X, She(I).Y)-(She(I).X + 1, She(I).Y + 1), Me.BackColor, BF Next End Sub Private Sub HuaTu() Dim I As Long For I = 0 To UBound(She) Me.Circle (She(I).X + 0.5, She(I).Y + 0.5), 0.49, RGB(255, 255, 0), , , HWB Next End Sub Private Sub TiaoZheng() Dim I As Long For I = 0 To UBound(She) - 1 She(I).F = She(I + 1).F Next End Sub Private Sub ChanShengShiWu() Randomize Timer 1: X = Int(Rnd * 24) Y = Int(Rnd * 24) If ZhuangTai(X, Y) > 0 Then GoTo 1: ZhuangTai(X, Y) = 2 Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF End Sub要守信用!!!!!!!!: End If Case 1 If ZhuangTai(She(C).X, She(C).Y - 1) = 2 Then C = C + 1 ReDim Preserve She(C) She(C), 0).X, She(C); Label1.X - 1.Cls .ScaleMode = 3 HWB = .F = 3 GFangXiang = True End Select End Sub Private Sub Form_Load() Me, Y + 1).Label".X = She(C - 1).X She(C).AutoRedraw = True Me.BackColor = &HC000& Me.X - 1 She(C).Y = She(C - 1).Height) / 2 HuaTu Me.Line (X, Y)-(X + 1.ScaleWidth = 24 Me.ScaleHeight = 24 Me.WindowState = 2 Set Timer1 = Controls.Add("VB, BF End If End With 1, "Label1") Label1.F = 1 GFangXiang = True Case 39 If She(C), RGB(255, 255.F = 0 Then Exit Sub She(C).F = 2 GFangXiang = True Case 40 If She(C).F = 1 Then Exit Sub She(C).Visible = True Else Timer1.Enabled = True Label1.Visible = False End If End If C = UBound(She) If GFangXiang = True Then Exit Sub Select Case KeyCode Case 37 If She(C)

我做的21点游戏已经发送到你的邮箱。麻烦采纳下！谢谢。

不能运行，上面的

文章TAG：vb能做什么游戏用vb编程可以设计那些小游戏做什么什么游戏