怎样用VB编写打字小游戏

[软件开发需要编写哪些文档]这个问题没有一定的，因为这里有多种因素如，开发阶段、文档化要求程度等，若是通过CMM评估的，文档就较多一般的是按项目开发过程来分，基本的有可行性研究报告（若是一个新项目且未...+阅读

我2年前写的，有点幼稚。别见笑VERSION 5.00Begin VB.Form Form1 AutoRedraw = -1 'True Caption = ＂打字游戏小游戏而已＂ ClientHeight = 4800 ClientLeft = 60 ClientTop = 750 ClientWidth = 5610 LinkTopic = ＂Form1＂ ScaleHeight = 4800 ScaleWidth = 5610 StartUpPosition = 1 '所有者中心 Begin VB.Timer Timer1 Left = 0 Top = 3600 End Begin VB.Label Label1 Caption = ＂Label1＂ Height = 735 Index = 0 Left = 1320 TabIndex = 0 Top = 600 Width = 855 End Begin VB.Menu MenuGame Caption = ＂数量（&N）＂ Index = 0 End Begin VB.Menu MenuGame Caption = ＂速度（&P）＂ Index = 1 End Begin VB.Menu MenuGame Caption = ＂重置（&R）＂ Index = 2 End Begin VB.Menu MenuGame Caption = ＂开始（&S）＂ Index = 3 End Begin VB.Menu MenuGame Caption = ＂输赢（&W）＂ Index = 4 End Begin VB.Menu MenuGame Caption = ＂帮助（&H）＂ Index = 5 EndEndAttribute VB_Name = ＂Form1＂Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim StartPause As BooleanDim n As IntegerDim Speed As IntegerDim Down As Integer, Hit As IntegerDim DownLost As Integer, HitWin As IntegerRem 自定义函数效率不高啊。

。。Private Sub Form_Initialize()Speed = 10DownLost = 100HitWin = 100End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)RandomizeFor Index = 0 To n If Chr(KeyCode) = Label1(Index).Caption Then With Label1(Index) .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .Left = Rnd * (Me.ScaleWidth - Label1(Index).Width) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End With Hit = Hit + 1 Me.Caption = ＂打字游戏＂ & ＂掉落：＂ & Down & ＂命中：＂ & Hit End IfNext IndexEnd SubPrivate Sub Form_Load()On Error Resume NextTimer1.Interval = 10Timer1.Enabled = False RandomizeWith Label1(0) .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) .Left = Rnd * (Me.ScaleWidth - Label1(0).Width) .FontSize = 30 .BackStyle = 0End WithFor Index = 1 To n Load Label1(Index) With Label1(Index) .Visible = True .FontSize = 30 .BackStyle = 0 .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .Left = Rnd * (Me.ScaleWidth - Label1(Index).Width) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End WithNext IndexEnd SubPrivate Sub MenuGame_Click(Index As Integer)On Error Resume NextSelect Case Index Case 0 n = Int(InputBox（＂输入数量，建议输入1至5，如果输入0或者按取消，将会去缺省值1＂，＂输入数量＂） - 1) Form_Load StartPause = False: MenuGame(3).Caption = ＂开始（&S）＂ Case 1 Speed = Int(Val(InputBox（＂输入速度参数，建议5-20，如果输入0或按取消，将会取缺省值0，就是不会移动＂，＂输入速度参数＂））） Timer1.Enabled = False StartPause = False: MenuGame(3).Caption = ＂开始（&S）＂ Case 2 Hit = 0 Down = 0 Form_Load StartPause = False: MenuGame(3).Caption = ＂开始（&S）＂ Case 3 StartPause = Not StartPause If StartPause = True Then MenuGame(3).Caption = ＂暂停（&P）＂ Timer1.Enabled = True ElseIf StartPause = False Then MenuGame(3).Caption = ＂开始（&S）＂ Timer1.Enabled = False End If Case 4 HitWin = Int(InputBox（＂输入数字，当命中数等于该数时即为胜利。

＂，＂输入数字＂）） DownLost = Int(InputBox（＂输入数字，当掉落数等于该数时即为胜利。＂，＂输入数字＂）） Case 5 MsgBox ＂目前没有编辑帮助＂ End SelectEnd SubPrivate Sub Timer1_Timer()RandomizeFor Index = 0 To n Label1(Index).Top = Label1(Index).Top + Speed If Label1(Index).Top >= Me.ScaleHeight Then With Label1(Index) .Top = Me.ScaleTop .Caption = Chr(Int(Rnd * 26) + 65) .Left = Rnd * (Me.ScaleWidth - Label1(Index).Width) .ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End With Down = Down + 1 Me.Caption = ＂打字游戏＂ & ＂掉落＂ & Down & ＂命中＂ & Hit End IfNext IndexIf Down >= DownLost Then MsgBox ＂你输啦！＂， vbOKOnly, ＂You lost＂: EndIf Hit >= HitWin Then MsgBox ＂你赢啦！＂， vbOKOnly, ＂You Win＂: EndEnd Sub

以下为关联文档：

win10系统游戏中打字出现绿色框框怎么去掉啊你好，此图标是微软拼音输入法文字捕获窗口，在光标失去焦点或没有输入框时按下键盘按键，会出现此图标捕获输入内容，选择候选词内容显示到黑色区域的光标处。游戏时输入完成，按下回...

如何编写施工进度计划由于建筑产品的技术经济特点，施工企业的生产经营活动具有一些特殊规律，其计划工作区别于一般工业企业。从实际出发，科学、合理地编制和执行施工作业进度计划，是建筑企业计划工作...

如何在C语言编写的游戏中加入暂停并存储功能其实这也不难，关键是程序要有一个好的结构。大致的游戏框架应该是这样的： main（) { 初始化（）； while(1)//游戏主循环 { 接受输入（）；//键盘、鼠标，并处理，比如按了ESC则跳出循环数据计...

如何编写项目总结项目总结报告项目名称：项目经理：审核：批准： 20 年月日一. 项目概述 1 产品绿色节能机房，与普通的彩钢夹芯板机房相比，其主要实现的功能是减少基站空调的使用时间，减低基...

用c语言编写简单学生成绩统计软件#include<stdio.h> int main() { float mark1,mark2,c; int you=0; for(;;) { printf（＂请输入两门课程的成绩_____\b\b\b\b\b＂）; scanf(＂%f,%f＂,&mark1,&mark2); c=(mark1+mark2)/...

求好心的老师帮忙编写大智慧横向统计公式第一、首先建立＂涨幅6＂引用公式 {涨幅6} zf:=(C-REF(C,1))/REF(C,1)*100；{涨幅} 涨幅6:IF(zf>6 AND V>1,1,0)； {生成A股涨幅>6%的股票个数的横向数据}；第二、再建立公式显示指标...

我如何编写所得税汇算清缴后的工作总结样文，请参考：）企业所得税汇算清缴总结报告在今年的企业所得税汇算清缴过程中，我们XX区国税局按照“转移主体、明确责任、做好服务、强化检查”的指导思想，将工作重点放在政策宣...

如何正确编写政务信息类稿件如何正确编写政务信息类稿件政务信息是近年来各级党政机关常用的一种文体，从广义上讲，主要包括上报信息、对下服务信息、简报类信息、长篇信息等。从狭义上讲，主要指短小精悍...

vb打字练习应用程序跪求高手谢谢了Dim RNEWALLSTRING As String '合并字符串，此时的字符串已经不包换换行符和空格Dim ER As IntegerPrivate Sub Command1_Click（) '注意len(vbcrlf)=2Timer1.Enabled = TrueDim...