计算机vb小游戏,用vb6.0做一个小游戏 | 您所在的位置:网站首页 › vb简单小游戏设计 › 计算机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 "您猜的数是" & guess & "," & IIf(cor, "恭喜您,猜中了!", "不好意思,没有这个数哦!") End Sub |
今日新闻 |
推荐新闻 |
专题文章 |
CopyRight 2018-2019 实验室设备网 版权所有 |