VB程序英文打字训练设计报告
本英文打字训练程序，当运行时，不同的英文字符会随机的分布，随机的出现在窗口的顶端，由时钟控件控制英文字母的下落，下落过程中敲击键盘上的按键，限时一分钟。当一分钟时间过后，会弹出一个提示对话框，显示：“哈哈，一分钟这么快就结束了，是否继续？”通过这个程序，可以提高我们的打字速度，提高我们的工作效率。科技的快速发展使得互联网飞速发展，我们生活中由一个很大的变化驾驶越来越多地使用无纸化，我们用电脑写字实际上时靠打字来完成的。写一手漂亮的字似乎不想以前那么重要，打字的速度成了影响我们生活的很重要的毕业论文http://www.751com.cn一部分。在工作中打字快，我们的工作效率会大大提高。我们的生活中几乎处处都离不开打字，谁打字快，谁就会从中受益多。我还要进一步提高我的打字速度，争取在更少的时间内更快的完成我想表露的想法。通过这个小小的程序无形中练习了我们的打字速度。能让我们在以后的工作和学习中受益匪浅。还可以节省时间，用来做更多实现自我价值的有意义的事，
三、设计思路
通过这一学期对VB课程的了解和学习，利用VB的集成开发环境提供的基本控件和常用事件，设计一个能提高打字速度、节约时间的程序，对于我来说是非常有用的，同时也是对我这学期学习效果的一个检验。
四、详细设计：
Dim score As Integer '存放得分
Dim flag As Boolean '判断是否需要生成新的字符
Private Sub Cmd1_Click()
If Cmd1.Caption = "开始" Then '开始打字
Tmr1.Enabled = True
Tmr2.Enabled = True
Cmd1.Caption = "暂停"
Else '暂停打字
Cmd1.Caption = "开始"
Tmr1.Enabled = False
Tmr2.Enabled = False
End If
End Sub
Private Sub Cmd1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Lbl4.Caption Then ' 判断所按键是否与产生的字符相符
score = score + 10 '每正确一个加10分
flag = False
Call Tmr1_Timer '重新生成字符
Lbl1.Caption = "得分:" & Str(score) & "分"
End If
End Sub
Private Sub Cmd2_Click()
Unload Me
End Sub
Lbl4.Caption = ""
Private Sub Tmr1_Timer() '随机生成字符并控制字符下落
If flag = False Then
Lbl4.Caption = Chr(Int(Rnd * 26) + 97) '随机字符
Lbl4.Left = Int(Rnd * Shp3.Width) + Shp3.Left '字符出现的位置
Lbl4.Top = 200
flag = True
Else 毕业论文http://www.751com.cn
Lbl4.Top = Lbl4.Top + 200
If Lbl4.Top > Shp3.Height - 200 Then
flag = False
End If
End If
End Sub
Private Sub Tmr2_Timer() ' 倒计时,用尽1分钟则结束
Static i As Integer
i = i + 1
Lbl2.Caption = "倒计时:" & Str(60 - i) & "秒"
If i >= 60 Then
If MsgBox("哈哈,一分钟练习这么快就结束了,是否继续?", vbYesNo + vbQuestion, "提示") = vbYes Then
i = 0
score = 0
Else
score = 0
Tmr1.Enabled = False
Tmr2.Enabled = False
End If
End If
End Sub
五、效果：
在运行过程中，界面如下图所示：
点击开始按钮，界面如下图所示：
当一分钟时间到时，弹出如下图所示的提示对话框：
辣、心得体会
完成这次VB程序设计的作业，我花了好多时间，也花了不少金钱。我每天一有时间就去电子阅览室编程序，但不是每一次付出多有回报，我一次又一次的编完长长的代码，程序一次又一次的无动于衷。我真有种说不出的感受。VB咋就这么难呢？但由于电子阅览室的机子有限，时间紧，任务重。只得去机房完成这次作业。终于，通过我的不懈努力，功夫不负有心人，达到了我想要的效果，自我感觉还比较满意。心中有重如释重负的感觉。通过完成这次作业，我从中学到好多东西。知道了上课认真听讲的重要性，在以后的学习过程中，我会尽自己最大的努力做到最好。请老师相信我！
七、参考文献
中国高等院校计算机基础课程体系规划教材Visual Basic程序设计（第二版）李雁翎编著