计算机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
计算机vb小游戏,用vb6.0做一个小游戏相关推荐
- 小程序制作预算_做一个小程序的大概预算是多少?做一个小程序大概多少钱?...
做一个小程序的大概预算是多少?做一个小程序大概多少钱?下面跟随小编一起来看看吧! 小程序开发需要多少钱,这个要看你做什么样的小程序, 你对小程序的功能.框架.定位.交互.UI的要求是什么? 这些都需要 ...
- [ 逻辑锻炼] 用 JavaScript 做一个小游戏 ——2048 (详解版)
前言 这次使用了 vue 来编写 2048,主要目的是温习一下 vue. 但是好像没有用到太多 vue 的东西,==! 估计可能习惯了不用框架吧 之前由于时间关系没有对实现过程详细讲解,本次会详细讲解 ...
- 2048小游戏html制作,[ 逻辑锻炼] 用 JavaScript 做一个小游戏 ——2048 (详解版)
前言 这次使用了 vue 来编写 2048,主要目的是温习一下 vue. 但是好像没有用到太多 vue 的东西,==! 估计可能习惯了不用框架吧 之前由于时间关系没有对实现过程详细讲解,本次会详细讲解 ...
- python手机版做小游戏代码大全-Python大牛手把手教你做一个小游戏,萌新福利!...
原标题:Python大牛手把手教你做一个小游戏,萌新福利! 引言 最近python语言大火,除了在科学计算领域python有用武之地之外,在游戏.后台等方面,python也大放异彩,本篇博文将按照正规 ...
- VB讲课笔记01:VB6.0安装与启动
VB讲课笔记01:VB6.0安装与启动 一.安装VB6.0 VB6.0安装在Windows7.8.10上必须设置安装程序的兼容性. 1.设置安装程序的兼容性
- [VB.NET]想做一个小界面,不知用什么做
<script type="text/javascript"></script> <script type="text/javascript ...
- 使用PixiJS做一个小游戏
PixiJS PixiJS使用WebGL,是一个超快的HTML5 2D渲染引擎.作为一个Javascript的2D渲染器,Pixi.js的目标是提供一个快速的.轻量级而且是兼任所有设备的2D库. 官方 ...
- 单枪匹马:4年只做一个iOS游戏 收入破千万美元
2011 年,一款叫做<Tiny Wings>的手游被苹果推荐为最佳 iPhone 游戏,对手游市场有所了解的同学一定会赞同<Tiny Wings>是过去几年中全球知名度仅次于 ...
- dx绘制2d图像_【教程】使用DX9做一个2D游戏(1)
本文最先发表在贴吧,现在整理到此处,之后所有更新将在这里进行. by Chu @ XDU 2012/11/25 版权所有,禁止用于商业用途. 转载请注明出处. 用DX9做一个2D游戏显然不是一件容易的 ...
- scratch做简单跑酷游戏_腾讯游戏学院专家:做一个多线程游戏框架可以多简单?...
导语 如何做一个多线程游戏框架?腾讯游戏学院专家Tao将在本文通过一个demo来说说游戏逻辑的多线程化. 众所周知现在各种游戏终端的发展十分迅猛.其中一个共同的特征是"多核化",由 ...
最新文章
- arduino如何调用mysql,【 实测可用 】Arduino 直接访问 mysql
- 计算机组成原理实验八报告,计算机组成原理实验八报告
- Meerkat关闭直播?很好,你努力挣扎的样子成功吸引了我们的注意力
- 判断非负整数是否是3的倍数_五年级数学因数与倍数知识点汇总与解题方法技巧...
- 西南医科大学计算机应用基础历年真题,网络选修课-计算机应用基础-期末考.docx...
- linux c创建文件错误的是,在linux下创建一个类怎么出现会出现这种错误,我感觉是没有错误的,那位高手过来看看...
- [OpenGL]自己写的加载位图并转换成纹理的两个函数
- 拓端tecdat|R语言通过WinBUGS对MGARCH和MSV模型进行贝叶斯估计和比较
- hen Content must be served over https解决方案
- sql升级重启计算机失败win10,win10系统电脑安装sql server需要一直重启的解决方法...
- 初次使用Fleck+redis订阅发布实现学习小demo
- 超简单的3步搭建静态网站(Franklin.jl)
- 如何查找某一个数据?
- win10系统如何打开.swf视频文件,flash palyer无法使用
- 混沌数学之Duffing(杜芬)振子
- 利用hfs工具上传文件的操作教程
- 【中秋征文】手把手教你海面月亮升起中秋节特效制作
- SpringBoot 基本奥义
- Dump分析学习指令整理
- 图像仿射变换原理5:组合变换矩阵的OpenCV-Python实现
热门文章
- python数据结构与算法 pdf_『python核心编程pdf』数据结构与算法 Python语言描述
- testbench的简单例子和模板
- Reg Organizer(电脑注册表清理大师)官方中文版V8.70 | win10注册表清理工具下载
- GitLab上配置SSH Key
- 论坛模块_实现功能2_实现显示版块列表与显示单个版块的功能
- 一个初学者的辛酸路程-Python基础-3
- 数电/数字电子技术基础全面知识点及习题总结(看这一篇就够了!!!)
- BUUCTF-Reverse-相册
- 有人已经在用AI画色图了...
- php arcsin,三角函数在线计算器