用vb都能做些什么游戏(
如何用vb做一个水仙花数字的小游戏? -
1、首先双击桌面图标启动visual basic 6.0。2、然后新建工程，选择标准EXE。3、选择完工程后，点击打开，就可以新建一个exe工程了。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到Form_Click() 事件中。5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^好了吧！
Private Sub Label2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbLeftButton Then '如果按下鼠标左键'记录下要拖动控件的位置Label2X = Label2(Index).Left Label2Y = Label2(Index).Top Label2(Index).Drag 1 '启动拖动操作End I等我继续说。
1、首先双击桌面图标启动visual basic 6.0。2、然后新建工程，选择标准EXE。3、选择完工程后，点击打开，就可以新建一个exe工程了。4、然后双击 FORM1 窗体，在弹出的代码窗体中复制该代码到Form_Click() 事件中。5、代码：If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^好了吧！
Private Sub Label2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbLeftButton Then '如果按下鼠标左键'记录下要拖动控件的位置Label2X = Label2(Index).Left Label2Y = Label2(Index).Top Label2(Index).Drag 1 '启动拖动操作End I等我继续说。
做个贪吃蛇，flppy bird，纵向像素赛车，推箱子，水果机这些都不难，运用到一些特殊游戏算法，贪吃蛇：创建pictureBox控件数组， 然后加身子就load picture1(picture1.UBound+1)在声明一个动态数2d数组，每个身子都有一个X，Y值每移动一次贪吃蛇，头部先走一步后面的身子就向前一个身子的位置X,Y移动fl到此结束了？。
一些简单的单机游戏，或者是局域网对战类的游戏都是VB可以胜任的，现在的VB已经不是以前的VB了。现在的VB借助.NET平台强大的类库已经可以飞向VISTA操作系统，参与桌面应用程序的开发了。祝你成功哦。需要源码学习，你也可以联系我。
求vb6.0制作小游戏的代码? -
2.文字冒险游戏，先是用command按钮来选择人物，然后就分开不同的线来玩，最后有不同的结局。（就像是俺妹的PSP游戏一样，或者跟大部分的GALgame一样。）3.贪吃蛇游戏谢谢！！！代码要简洁一点。。高一水平，水平不用太高！！！问题补充：不是三题全部要做。。。而是随便选择一题（个人推荐第二题和希望你能满意。
软件不太清楚，和c编出来的长的差不多，一般都是大型财务软件。游戏，比如三国志6就是vb做的。国内的游戏本身就不是很多，一般都是个人在搞，有个精英战警2算是大型游戏，还有卡通梦幻曲。
VB可以做什么游戏 -
1：图像绘制。2：声音播放。3：用户输入控制。4：文件的读写。其中2、3、4基本可以用VB的基础语言功能和操作系统提供的API解决，唯独绘图需要引擎来解决。除非是很小的小游戏，否则你不太可能用系统控件去做一个游戏，你也不能天才到啥都自己实现出来，你就算有那么天才，也没那个时间精力，也没有好了吧！
代码如下：'贪吃蛇代码(无控件、全代码）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好了吧！
各一个最简单的vb打字游戏代码 -
' '下面是窗体代码，在VB6.0 调试通过：'在窗体上放置下面6 个控件：' Option1: 用于进行字符类型选择' Label1: 用于显示下落的字符' Label2: 用于显示游戏信息' Timer1: 用于移动字符' Picture1:下落字符的背景' Text1: 用于显示游戏者键入的字符'在属性窗口将Option1 和Label1 的Index 属性设置为0说完了。
Set Label1 = Controls.Add("VB.Label", "Label1")Label1.AutoSize = True Label1.BackStyle = 0 Label1 = "暂停"Label1.ForeColor = RGB(255, 255, 0)Label1.FontSize = 50 ChuShiHua End Sub Private Sub Form_Resize()On Error GoTo 1:With Me If .WindowState <> 1 Then .Cls说完了。