[电脑打字员简历]目前所在： 汕尾 年 龄： 24 户口所在： 广州 国 籍： 中国 婚姻状况： 未婚 民 族： 汉族 求职意向人才类型： 本站 应聘职位： 英语翻译：翻译，贸易/进出口专员/助理：助理，电脑操作员/打字员：打...+阅读
加10个label1控件组，一个timer，操作：运行后，回车即可进行游戏，代码：Private Declare Function GetAsyncKeyState Lib ＂user32＂ (ByVal vKey As Long) As IntegerDim m As IntegerPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTimer1.Interval = 100ElseFor j = 0 To 9If Label1(j).Caption = UCase(Chr(KeyAscii)) Thenm = m + 1If m = 30 Then Me.Caption = ＂第一级＂If m = 60 Then Me.Caption = ＂第2级＂If m = 90 Then Me.Caption = ＂第3级＂Label1(j).Top = 0Exit ForEnd IfNextEnd IfEnd SubPrivate Sub Form_Load()For i = 0 To 9Label1(i).Top = 0NextMe.Caption = ＂第0级＂End SubPrivate Sub Timer1_Timer()Static n As IntegerIf n = 10 ThenMsgBox ＂游戏结束＂Timer1.Enabled = FalseEnd IfFor i = 0 To 9If Label1(i).Top >Form1.Height ThenLabel1(i).Top = 0RandomizeLabel1(i).Caption = Chr(Int(Rnd * 26 + 65))n = n + 1ElseIf Label1(i).Top = 0 ThenRandomizeLabel1(i).Caption = Chr(Int(Rnd * 26 + 65))Label1(i).Top = Label1(i).Top + 100ElseLabel1(i).Top = Label1(i).Top + 100End IfNextEnd Sub...
延伸阅读：
2016打字员辞职报告辞职是一份工作的在最后一步，也是无奈之举，辞职的原因有很多种，下面是小编整理的，欢迎阅读!【一】尊敬的行政部经理：我是打字员。经过几天的思考，我还是决定要辞职，原因在于每天重...
急求！请帮忙翻译一段简单的德语自我介绍并有中文拼音对在Gabi翻译的基础上修改一下： Guten Nachmittag （德国人没这么说的，早上以后、晚上之前都就是Guten Tag）, sehr geehrte Damen und Herren （一般不说各位考官，而是尊敬的女士们先...
vb打字练习应用程序跪求高手谢谢了Dim RNEWALLSTRING As String '合并字符串，此时的字符串已经不包换换行符和空格Dim ER As IntegerPrivate Sub Command1_Click（) '注意len(vbcrlf)=2Timer1.Enabled = TrueDim...
怎样用VB编写打字小游戏我2年前写的，有点幼稚。别见笑VERSION 5.00Begin VB.Form Form1 AutoRedraw = -1 'True Caption = ＂打字游戏 小游戏而已＂ ClientHeight = 4800 ClientLeft = 60 ClientTop = 7...
vb的打字小游戏用一个标签label1放字母添加一个计时器，设置时间为1000毫秒再添加一个全局变量，用来表明字母有没有打对再设一全局变量，用来计分再添加一个命令按钮，用来开始游戏dim flag%,scor...
怎样用VB做打字游戏？？Dim t As Integer Dim s(1 To 5, 1 To 5) As String '用二维数组s（)来存放打字数据 Dim n As Integer Dim r As Integer Private Sub Command1_Click() If t = 0 Then MsgBox...
求一款vb打字游戏Dim m As IntegerDim n As IntegerPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenTimer1.Interval = 100ElseFor j = 0 To 9If Label1(j).Caption =...
VB程序：字母从窗体下落按键盘上对应字母后它消失这个打字一个Label1，一个Timer控件 Dim nDownspeed As Integer '下落速度Dim sString As Integer '下落的字符Private Sub huanyuan()RandomizeWith Label1 .AutoSize = True .Left =...
急求VB课程设计代码课题是打字游戏！我也是网上下下来自己学习用的 '开始打字 Private Sub start_type_Click() '读如句子 ScaleMode = 3 '以象素为单位 If deforescrapname <> scrapname Then '同一篇不能显示...
