计算机vb小游戏,用vb6.0做一个小游戏

匿名用户

1级

2009-05-12 回答

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

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

'只需给窗体添加一个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