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 ^到此结束了？。
cishu = 0Randomize Timer x = Int((Rnd * 10) + 1)End Sub 本回答由提问者推荐举报| 答案纠错| 评论16 0 寂寞玩FC 采纳率：43% 擅长： 电脑/网络资源共享软件共享为您推荐： 猜数字游戏1-100规则 看图猜数字1到30图片 1到100猜数字游戏技巧 vb程序设计 猜数字小游戏 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 ^到此结束了？。
cishu = 0Randomize Timer x = Int((Rnd * 10) + 1)End Sub 本回答由提问者推荐举报| 答案纠错| 评论16 0 寂寞玩FC 采纳率：43% 擅长： 电脑/网络资源共享软件共享为您推荐： 猜数字游戏1-100规则 看图猜数字1到30图片 1到100猜数字游戏技巧 vb程序设计 猜数字小游戏 vb小游戏 vb等会说。
i).Visible = TrueNextFor i = 0 To 9 Label1(i).Top = 0NextTimer1.Enabled = FalseTimer1.Interval = 100Label1(0).Caption = "按回车开始游戏"Me.Caption = "第0级"End SubPrivate Sub Timer1_Timer()Static n As IntegerDim i As IntegerIf n = 10 Then MsgBox "游戏结束还有呢？
msg = MsgBox("您确认要重新开始游戏吗？", 4 + 32, "BS贪食蛇")If msg = 6 Then Call m_subGameInitializeEnd Sub'该过程用于暂停/运行游戏Private Sub chkPause_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Me.chkPause.Caption = "暂停游戏(&P)" ThenMe.tmrSnake等我继续说。
求VB小游戏,简单一点,越简单越好 -
点灯游戏Private Sub Form_Load()Form1.Scale (0, 12)-(12, 0)For i = 1 To 11 Line (1, i)-(11, i) Line (i, 1)-(i, 11)Next i End SubSub fill_color(X, Y)If Point(X, Y) = vbWhite Then Line (Int(X), Int(Y))-(Int(X + 1), Int(Y + 1)), vbBlack, BFElse 好了吧！
Case vbKeyUp If Label1.Top > 0 Then Label1.Top = Label1.Top - 50 Case vbKeyDown If Label1.Top < ScaleHeight - Label1.Height Then Label1.Top = Label1.Top + 50 Case vbKeyLeft If Label1.Left > 0 Then Label1.Left = Label1.Left - 50 Case vbKeyRight If Label1希望你能满意。.
vb能否编写出大型游戏? -
你想编什么只要你够技术都能编出来。visualbasic确实很强大，但已经落后了，编游戏有很大难度。但是编一些计算器、ie浏览器、音乐播放器、简单的文字处理软件（类似word）等小东西还是可以的，而且简单易学(只要你懂英语，vb语法就不难学了）。至于游戏，就很难。现在都用c了，谁还用vb呢？目前vb已经等我继续说。
首先说一说猜数字这个游戏的玩法，一开始计算机会随机产生一个不重复的四位数，你要输入四位不重复的数与计算机给出的数作对比，如果与计算机给出的数的位置相同数字相同，那么将会是1A，如果数字相同而位置相不同，将会显示1B。例如：计算机的随机数字为：1234 ，我猜的数字为：1356 ，那么这时计算机后面会介绍。
求一个VB小游戏编程,要有代码的。。 -
Set Timer1 = Controls.Add("VB.Timer", "Timer1")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是什么。
Dim ThePlayFlag As Boolean '定义游戏有效标志Private Sub Command1_Click() If Not ThePlayFlag Then Call InitPlayEnvironment: Exit Sub If MsgBox("本局还没有下完，是否重新开始？(Y/N)", vbYesNo) = vbNo Then Exit Sub Call InitPlayEnvironmentEnd SubPrivate Sub Command2_Click() EndEnd Sub希望你能满意。