Question

用vb6.0做一个小游戏

老师要我用vb6.0做一个小游戏.....
麻烦谁能用vb6.0做一个小游戏的编码,很急!!
PS: 要编码
(如果编码能用 追加积分到100分!)
楼下的朋友谢谢你了.....不过我想找的游戏是象"贪吃蛇"或者是"搬箱子"一类的..... 或者是中国象棋也可以不需要能和电脑对战..... 有可能的话能详细说明怎样做....

Answer 1

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

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

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