匿名用户

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

计算机vb小游戏,用vb6.0做一个小游戏相关推荐

  1. 小程序制作预算_做一个小程序的大概预算是多少?做一个小程序大概多少钱?...

    做一个小程序的大概预算是多少?做一个小程序大概多少钱?下面跟随小编一起来看看吧! 小程序开发需要多少钱,这个要看你做什么样的小程序, 你对小程序的功能.框架.定位.交互.UI的要求是什么? 这些都需要 ...

  2. [ 逻辑锻炼] 用 JavaScript 做一个小游戏 ——2048 (详解版)

    前言 这次使用了 vue 来编写 2048,主要目的是温习一下 vue. 但是好像没有用到太多 vue 的东西,==! 估计可能习惯了不用框架吧 之前由于时间关系没有对实现过程详细讲解,本次会详细讲解 ...

  3. 2048小游戏html制作,[ 逻辑锻炼] 用 JavaScript 做一个小游戏 ——2048 (详解版)

    前言 这次使用了 vue 来编写 2048,主要目的是温习一下 vue. 但是好像没有用到太多 vue 的东西,==! 估计可能习惯了不用框架吧 之前由于时间关系没有对实现过程详细讲解,本次会详细讲解 ...

  4. python手机版做小游戏代码大全-Python大牛手把手教你做一个小游戏,萌新福利!...

    原标题:Python大牛手把手教你做一个小游戏,萌新福利! 引言 最近python语言大火,除了在科学计算领域python有用武之地之外,在游戏.后台等方面,python也大放异彩,本篇博文将按照正规 ...

  5. VB讲课笔记01:VB6.0安装与启动

    VB讲课笔记01:VB6.0安装与启动 一.安装VB6.0 VB6.0安装在Windows7.8.10上必须设置安装程序的兼容性. 1.设置安装程序的兼容性

  6. [VB.NET]想做一个小界面,不知用什么做

    <script type="text/javascript"></script> <script type="text/javascript ...

  7. 使用PixiJS做一个小游戏

    PixiJS PixiJS使用WebGL,是一个超快的HTML5 2D渲染引擎.作为一个Javascript的2D渲染器,Pixi.js的目标是提供一个快速的.轻量级而且是兼任所有设备的2D库. 官方 ...

  8. 单枪匹马:4年只做一个iOS游戏 收入破千万美元

    2011 年,一款叫做<Tiny Wings>的手游被苹果推荐为最佳 iPhone 游戏,对手游市场有所了解的同学一定会赞同<Tiny Wings>是过去几年中全球知名度仅次于 ...

  9. dx绘制2d图像_【教程】使用DX9做一个2D游戏(1)

    本文最先发表在贴吧,现在整理到此处,之后所有更新将在这里进行. by Chu @ XDU 2012/11/25 版权所有,禁止用于商业用途. 转载请注明出处. 用DX9做一个2D游戏显然不是一件容易的 ...

  10. scratch做简单跑酷游戏_腾讯游戏学院专家:做一个多线程游戏框架可以多简单?...

    导语 如何做一个多线程游戏框架?腾讯游戏学院专家Tao将在本文通过一个demo来说说游戏逻辑的多线程化. 众所周知现在各种游戏终端的发展十分迅猛.其中一个共同的特征是"多核化",由 ...

最新文章

  1. arduino如何调用mysql,【 实测可用 】Arduino 直接访问 mysql
  2. 计算机组成原理实验八报告,计算机组成原理实验八报告
  3. Meerkat关闭直播?很好,你努力挣扎的样子成功吸引了我们的注意力
  4. 判断非负整数是否是3的倍数_五年级数学因数与倍数知识点汇总与解题方法技巧...
  5. 西南医科大学计算机应用基础历年真题,网络选修课-计算机应用基础-期末考.docx...
  6. linux c创建文件错误的是,在linux下创建一个类怎么出现会出现这种错误,我感觉是没有错误的,那位高手过来看看...
  7. [OpenGL]自己写的加载位图并转换成纹理的两个函数
  8. 拓端tecdat|R语言通过WinBUGS对MGARCH和MSV模型进行贝叶斯估计和比较
  9. hen Content must be served over https解决方案
  10. sql升级重启计算机失败win10,win10系统电脑安装sql server需要一直重启的解决方法...
  11. 初次使用Fleck+redis订阅发布实现学习小demo
  12. 超简单的3步搭建静态网站(Franklin.jl)
  13. 如何查找某一个数据?
  14. win10系统如何打开.swf视频文件,flash palyer无法使用
  15. 混沌数学之Duffing(杜芬)振子
  16. 利用hfs工具上传文件的操作教程
  17. 【中秋征文】手把手教你海面月亮升起中秋节特效制作
  18. SpringBoot 基本奥义
  19. Dump分析学习指令整理
  20. 图像仿射变换原理5:组合变换矩阵的OpenCV-Python实现

热门文章

  1. python数据结构与算法 pdf_『python核心编程pdf』数据结构与算法 Python语言描述
  2. testbench的简单例子和模板
  3. Reg Organizer(电脑注册表清理大师)官方中文版V8.70 | win10注册表清理工具下载
  4. GitLab上配置SSH Key
  5. 论坛模块_实现功能2_实现显示版块列表与显示单个版块的功能
  6. 一个初学者的辛酸路程-Python基础-3
  7. 数电/数字电子技术基础全面知识点及习题总结(看这一篇就够了!!!)
  8. BUUCTF-Reverse-相册
  9. 有人已经在用AI画色图了...
  10. php arcsin,三角函数在线计算器