如何用VB写打字游戏？
版本5.00
开始VB。表单表单1
auto draw =-1 ' True
Caption = "只是打字游戏中的一个小游戏"
客户端高度= 4800
客户端左侧= 60
ClientTop = 750
ClientWidth = 5610
LinkTopic = "Form1 "
比例高度= 4800
缩放宽度= 5610
StartUpPosition = 1 '所有者中心
开始VB。定时器Timer1
左= 0
Top = 3600
结束
开始VB。标签Label1
Caption = "Label1 "
身高= 735
指数= 0
左= 1320
TabIndex = 0
Top = 600
宽度= 855
结束
开始VB。菜单菜单
Caption = "数量(&；n)"
指数= 0
结束
开始VB。菜单菜单
caption = " Speed(&；p)"
指数= 1
结束
开始VB。菜单菜单
caption = " Reset(&；r)"
指数= 2
结束
开始VB。菜单菜单
caption = " Start(&；s)"
指数= 3
结束
开始VB。菜单菜单
Caption = "输赢(&；w)"
指数= 4
结束
开始VB。菜单菜单
caption = " Help(&；h)"
指数= 5
结束
结束
属性VB_Name = "Form1 "
属性VB_GlobalNameSpace = False
属性VB_Creatable = False
属性VB_PredeclaredId = True
属性VB_Exposed = False
变暗开始暂停为布尔值
将n表示为整数
整数形式的模糊速度
作为整数向下变暗，作为整数命中
Dim DownLost为整数，HitWin为整数
Rem自定义功能效率低下。。。
私有子窗体_Initialize()
速度= 10
DownLost = 100
HitWin = 100
末端接头
Private Sub Form_KeyDown(KeyCode为整数，Shift为整数)
使不规则化
对于索引= 0到n
如果Chr(key code)= label 1(Index)。标题然后
标签为1(索引)
。Top =我。秤顶
。Caption = Chr(Int(Rnd * 26) + 65)
。左= Rnd *(我。ScaleWidth - Label1(索引)。宽度)
。ForeColor = RGB(Rnd * 255，Rnd * 255，Rnd * 255)
以…结尾
Hit = Hit + 1
我。Caption = "打字& amp " &" Drop:" &；羽绒& amp"命中:" &；打
如果…就会结束
下一个索引
末端接头
私有子窗体_Load()
出错时继续下一步
定时器1。间隔= 10
定时器1。启用=假
使不规则化
标签为1(0)
。Top =我。秤顶
。Caption = Chr(Int(Rnd * 26) + 65)
。ForeColor = RGB(Rnd * 255，Rnd * 255，Rnd * 255)
。左= Rnd *(我。ScaleWidth - Label1(0)。宽度)
。FontSize = 30
。背景样式= 0
以…结尾
对于索引= 1到n
加载标签1(索引)
标签为1(索引)
。可见=真
。FontSize = 30
。背景样式= 0
。Top =我。秤顶
。Caption = Chr(Int(Rnd * 26) + 65)
。左= Rnd *(我。ScaleWidth - Label1(索引)。宽度)
。ForeColor = RGB(Rnd * 255，Rnd * 255，Rnd * 255)
以…结尾
下一个索引
末端接头
Private Sub MenuGame_Click(索引为整数)
出错时继续下一步
选择案例索引
案例0
N = Int(InputBox("输入数量，建议输入1到5；如果输入0或按取消，默认值将为1”，“输入数量”)-1)。
表单_加载
Start pause = false: menugame (3)。caption = " Start(&；s)"
案例1
Speed = Int(Val(InputBox("输入速度参数，建议为5-20，如果输入0或按取消，则取默认值0，即不动"，"输入速度参数"))。
定时器1。启用=假
Start pause = false: menugame (3)。caption = " Start(&；s)"
案例2
命中= 0
向下= 0
表单_加载
Start pause = false: menugame (3)。caption = " Start(&；s)"
案例3
开始暂停=不是开始暂停
如果StartPause = True，则
MenuGame。caption = " Pause(&；p)"
定时器1。启用=真
ElseIf StartPause = False Then
MenuGame。caption = " Start(&；s)"
定时器1。启用=假
如果…就会结束
案例4
HitWin = Int(InputBox("输入一个数字，当命中次数等于这个数字时，就是胜利。"，“输入数字”))
DownLost = Int(InputBox("输入一个数字，当滴数等于这个数时，就是胜利。"，“输入数字”))
案例5
MsgBox“目前没有编辑帮助”
结束选择
末端接头
私有子定时器1_Timer()
使不规则化
对于索引= 0到n
Label1(索引)。Top = Label1(索引)。最高+速度
If Label1(索引)。Top & gt=我。那么高度
标签为1(索引)
。Top =我。秤顶
。Caption = Chr(Int(Rnd * 26) + 65)
。左= Rnd *(我。ScaleWidth - Label1(索引)。宽度)
。ForeColor = RGB(Rnd * 255，Rnd * 255，Rnd * 255)
以…结尾
向下=向下+ 1
我。Caption = "打字& amp " &《坠落》&；羽绒& amp“打”&打
如果…就会结束
下一个索引
如果停机& gt= DownLost Then MsgBox“你输了！”，vbOKOnly，《你输了》:结束
如果命中& gt= HitWin Then MsgBox“你赢了！”，vbOKOnly，《你赢了》:结束
末端接头