vb6.0游戏代码（vbs小游戏代码）

本篇文章给大家谈谈vb6.0游戏代码，以及vbs小游戏代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、求vb6.0制作小游戏的代码？
• 2、用vb6.0做一个小游戏
• 3、跪求用vb6.0制作小游戏的源代码

求vb6.0制作小游戏的代码？

1.五张图片随机下落（已经是控件数组），而用键盘控制屏幕下面的小车移动来接住物体。而每接住一次分数栏就加上100分。

2.文字冒险游戏，先是用command按钮来选择人物，然后就分开不同的线来玩，最后有不同的结局。（就像是俺妹的PSP游戏一样，或者跟大部分的GALgame一样。）

3.贪吃蛇游戏

谢谢！！！！！！

代码要简洁一点。。高一水平，水平不用太高！！！！！问题补充：

不是三题全部要做。。。而是随便选择一题（个人推荐第二题和第一题）

至于悬赏这么少我也没办法。。因为我的财富值不多。。。。这已经是我的极限了。。。

用vb6.0做一个小游戏

你说的贪吃蛇、推箱子都不简单，涉及到很多方面的设计，要花不少时间的。这里估计很少有人能帮得上你。祝你好运。

帮你做了一个简单的猜数游戏，代码如下：

'只需给窗体添加一个Command1的控件，单击它即可执行，允许多次执行

Private Sub Command1_Click()

Dim myArray(1 To 20) As Integer '储存用于猜测的数据

Dim rep As Boolean, cor As Boolean 'rep记录产生的随机数是否有重复的，有重复的，会剔除，cor记录是否猜中

Dim guess As Integer

Dim i As Integer, j As Integer

'开始随机生成用于猜测的20个数据，若出现重复的数，将重新生成新的数

Cls

Randomize

i = 1

Do While i 21

rep = False

myArray(i) = 1 + Int(50 * Rnd)

For j = 1 To i - 1

If myArray(i) = myArray(j) Then rep = True: Exit For

Next

If rep = False Then i = i + 1

Loop

'为20个数据从小到大排序

For i = 1 To 20

For j = i + 1 To 20

If myArray(i) myArray(j) Then t = myArray(i): myArray(i) = myArray(j): myArray(j) = t

Next

Next

'开始猜数，输入非数值型的数据，会被视为输入0

cor = False

guess = Val(InputBox("请输入1到50的某个自然数：", "猜数游戏", 0))

For i = 1 To 20

If guess = myArray(i) Then cor = True: Exit For

Next

'开始打印结果

Print "20个随机数如下所示："

For i = 1 To 20

Print Format(myArray(i), "#####"),

If i Mod 5 = 0 Then Print

Next

Print

Print "您猜的数是" guess "，" IIf(cor, "恭喜您，猜中了！", "不好意思，没有这个数哦！")

End Sub

跪求用vb6.0制作小游戏的源代码

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.Enabled = True Then

Timer1.Enabled = False

Label1.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).F = 2 Then Exit Sub

She(C).F = 0

GFangXiang = True

Case 38

If She(C).F = 3 Then Exit Sub

She(C).F = 1

GFangXiang = True

Case 39

If She(C).F = 0 Then Exit Sub

She(C).F = 2

GFangXiang = True

Case 40

If She(C).F = 1 Then Exit Sub

She(C).F = 3

GFangXiang = True

End Select

End Sub

Private Sub Form_Load()

Me.AutoRedraw = True

Me.BackColor = HC000

Me.FillColor = 255

Me.FillStyle = 0

Me.ScaleWidth = 24

Me.ScaleHeight = 24

Me.WindowState = 2

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 GoTo 1:

With Me

If .WindowState 1 Then

.Cls

.ScaleMode = 3

HWB = .ScaleHeight / .ScaleWidth

.ScaleWidth = 24

.ScaleHeight = 24

Label1.Move (Me.ScaleWidth - Label1.Width) / 2, (Me.ScaleHeight - Label1.Height) / 2

HuaTu

Me.Line (X, Y)-(X + 1, Y + 1), RGB(255, 255, 0), BF

End If

End With

1:

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).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 1

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

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

贪吃蛇游戏，不用放任何东西

vb6.0游戏代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs小游戏代码、vb6.0游戏代码的信息别忘了在本站进行查找喔。