求助：VB课程设计 打字练习，明天就要交了【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：107,021贴子：
求助：VB课程设计 打字练习，明天就要交了收藏
因为半个月前就订了票回家，昨天才开始课程设计，明天就得交了。代码都是自己写的，但有一个问题一直搞不明白，如果出现相同字母下落的话，一点键盘就两个相同的字母同时被击中，要怎样才能让它们依次消失? Dim score As Integer&&&&&& '定义变量Dim speed As IntegerDim i As IntegerDim sum As Integer&&&&&& '用于计算总试题字母的数量Private Sub Form_KeyPress(KeyAscii As Integer)Label6 = scoreIf KeyAscii = Asc(Label1.Caption) Then&&&&&&&&&&& '校验键盘输入字符和Label1显示的字符zimuLabel1.Top = 0score = score + 10&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ' 得分加10sum = sum + 1End IfIf KeyAscii = Asc(Label2.Caption) Then&&&&&&&&&&& '校验键盘输入字符和Label2显示的字符zimu1Label2.Top = 0score = score + 10sum = sum + 1End IfIf KeyAscii = Asc(Label3.Caption) Then&&&&&&&&&&& '校验键盘输入字符和Label3显示的字符zimu2Label3.Top = 0score = score + 10sum = sum + 1End IfIf KeyAscii = Asc(Label4.Caption) Then&&&&&&&&&&& '校验键盘输入字符和Label4显示的字符zimu3Label4.Top = 0score = score + 10sum = sum + 1End IfIf KeyAscii = Asc(Label5.Caption) Then&&&&&&&&&&& '校验键盘输入字符和Label5显示的字符zimu4Label5.Top = 0score = score + 10sum = sum + 1End IfIf sum = 10 ThenMsgBox "练习结束,您的得分是" & score, vbOKOnly, "确认"Open "g:\打字练习\score.txt" For Output As #1&&&& '建立文件,把成绩存入文件中Write #1, T "成绩："; ""; scoreClose #1Form1.ShowForm2.HideEnd IfDim X As IntegerIf KeyAscii = 27 ThenX = MsgBox("确定退出?", vbOKCancel, "确认")&&&&&& '保证用户不是错手按得退出，点击取消可返回窗体If X = 1 ThenEndElseForm1.ShowEnd IfEnd IfEnd SubPrivate Sub Form_Load()Form2.Timer1.Enabled = True&&&&&&&&&&& '激活Time1控件Form2.Timer2.Enabled = True&&&&&&&&&&& '激活Time2控件zimuzimu1zimu2zimu3zimu4End SubSub zimu()Label1.FontSize = "15"Label1.FontBold = TrueLabel1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)Select Case Form1.b&&&& Case 4&&&& Label1.Caption = Chr(Int(Rnd * 26) + 97)&&&& '设定Label随机显示的字母&&&& Case 5&&&& Label1.Caption = Chr(Int(Rnd * 26) + 65)&&&& Case 6&&&& Label1.Caption = Chr(Int(Rnd * 94) + 33)
通用软件不合适,定做软件太昂贵,自己用vb.net开发太难,何不试试FoxTable?
End SelectSelect Case Form1.a&&&& Case 1&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 500&&&& Case 2&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 150&&&& Case 3&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 50End SelectLabel1.Left = Int(Rnd * Frame1.Width)&&&&&&& '设定Label代表字母出现的左边位置Label1.Top = Frame1.Top&&&&&&&&&&&&&&&&&&&&& '设定Label代表字母出现的顶部位置End SubSub zimu1()Label2.FontSize = "15"Label2.FontBold = TrueLabel2.ForeColor = Rnd * RGB(Rnd * 255, Rnd * 255, Rnd * 255)Select Case Form1.b&&&& Case 4&&&& Label2.Caption = Chr(Int(Rnd * 26) + 97)&&&& '设定Label随机显示的字母&&&& Case 5&&&& Label2.Caption = Chr(Int(Rnd * 26) + 65)&&&& Case 6&&&& Label2.Caption = Chr(Int(Rnd * 94) + 33)End SelectSelect Case Form1.a&&&& Case 1&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 500&&&& Case 2&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 150&&&& Case 3&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 50End SelectLabel2.Left = Int(Rnd * Frame1.Width)&&&&&&& ' 设定Label2代表字母出现的左边位置Label2.Top = Frame1.Top&&&&&&&&&&&&&&&&&&&&& ' 设定Label2代表字母出现的顶部位置End SubSub zimu2()Label3.FontSize = "15"Label3.FontBold = TrueLabel3.ForeColor = Rnd * RGB(Rnd * 255, Rnd * 255, Rnd * 255)Select Case Form1.b&&&& Case 4&&&& Label3.Caption = Chr(Int(Rnd * 26) + 97)&&&& '设定Label随机显示的字母
&&&& Case 5&&&& Label3.Caption = Chr(Int(Rnd * 26) + 65)&&&& Case 6&&&& Label3.Caption = Chr(Int(Rnd * 94) + 33)End SelectSelect Case Form1.a&&&& Case 1&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 500&&&& Case 2&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 150&&&& Case 3&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 50End SelectLabel3.Left = Int(Rnd * Frame1.Width)&&&&&&& ' 设定Label3代表字母出现的左边位置Label3.Top = Frame1.Top&&&&&&&&&&&&&&&&&&&&& ' 设定Label3代表字母出现的顶部位置End SubSub zimu3()Label4.FontSize = "15"Label4.FontBold = TrueLabel4.ForeColor = Rnd * RGB(Rnd * 255, Rnd * 255, Rnd * 255)Select Case Form1.b&&&& Case 4&&&& Label4.Caption = Chr(Int(Rnd * 26) + 97)&&&& '设定Label随机显示的字母&&&& Case 5&&&& Label4.Caption = Chr(Int(Rnd * 26) + 65)&&&& Case 6&&&& Label4.Caption = Chr(Int(Rnd * 94) + 33)End SelectSelect Case Form1.a&&&& Case 1&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 500&&&& Case 2&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 150&&&& Case 3&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 50End SelectLabel4.Left = Int(Rnd * Frame1.Width)&&&&&&& '设定Label代表字母出现的左边位置Label4.Top = Frame1.Top&&&&&&&&&&&&&&&&&&&&& '设定Label代表字母出现的顶部位置End SubSub zimu4()Label5.FontSize = "15"
Label5.FontBold = TrueLabel5.ForeColor = Rnd * RGB(Rnd * 255, Rnd * 255, Rnd * 255)Select Case Form1.b&&&& Case 4&&&& Label5.Caption = Chr(Int(Rnd * 26) + 97)&&&& '设定Label随机显示的字母&&&& Case 5&&&& Label5.Caption = Chr(Int(Rnd * 26) + 65)&&&& Case 6&&&& Label5.Caption = Chr(Int(Rnd * 94) + 33)End SelectSelect Case Form1.a&&&& Case 1&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 500&&&& Case 2&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 150&&&& Case 3&&&& speed = Int(Rnd * 100 + 100)&&&&&&&&&&&&&&&& '设定Label随机显示字母的速度&&&& Timer1.Interval = 50End SelectLabel5.Left = Int(Rnd * Frame1.Width)&&&&&&& '设定Label代表字母出现的左边位置Label5.Top = Frame1.Top&&&&&&&&&&&&&&&&&&&&& '设定Label代表字母出现的顶部位置End SubPrivate Sub Timer1_Timer()Label1.Top = Label1.Top + speedIf Label1.Top & Frame1.Height Then&&&&&&&&& '第i个字母超出屏幕范围的时候调用zimu子程序重新出现一个字母zimuEnd IfLabel2.Top = Label2.Top + speedIf Label2.Top & Frame1.Height Then&&&&&&&&&& '第二个字母超出屏幕范围的时候调用zimu1子程序重新出现一个字母zimu1End IfLabel3.Top = Label3.Top + speedIf Label3.Top & Frame1.Height Then&&&&&&&&&& '第二个字母超出屏幕范围的时候调用zimu2子程序重新出现一个字母zimu2End IfLabel4.Top = Label4.Top + speedIf Label4.Top & Frame1.Height Then&&&&&&&&&& '第二个字母超出屏幕范围的时候调用zimu3子程序重新出现一个字母zimu3End IfLabel5.Top = Label5.Top + speedIf Label5.Top & Frame1.Height Then&&&&&&&&&& '第二个字母超出屏幕范围的时候调用zimu4子程序重新出现一个字母zimu4End IfEnd SubPrivate Sub Timer2_Timer()Timer1.Enabled = FalseLabel1.Caption = ""Label2.Caption = ""Label3.Caption = ""Label4.Caption = ""Label5.Caption = ""End Sub再请教一个问题，如果要把成绩储存进文件里面，然后在form3里面查看 要怎么做?谢谢！！
Private Sub Form_KeyPress(KeyAscii As Integer)Label6 = scoreIf KeyAscii = Asc(Label1.Caption) Then&&&&&&&&&&&& '校验键盘输入字符和Label1显示的字符zimuLabel1.Top = 0score = score + 10&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ' 得分加10sum = sum + 1GoTo ARCEnd IfIf KeyAscii = Asc(Label2.Caption) Then&&&&&&&&&&&& '校验键盘输入字符和Label2显示的字符zimu1Label2.Top = 0score = score + 10sum = sum + 1GoTo ARCEnd IfIf KeyAscii = Asc(Label3.Caption) Then&&&&&&&&&&&& '校验键盘输入字符和Label3显示的字符zimu2Label3.Top = 0score = score + 10sum = sum + 1GoTo ARCEnd IfIf KeyAscii = Asc(Label4.Caption) Then&&&&&&&&&&&& '校验键盘输入字符和Label4显示的字符zimu3Label4.Top = 0score = score + 10sum = sum + 1GoTo ARCEnd IfIf KeyAscii = Asc(Label5.Caption) Then&&&&&&&&&&&& '校验键盘输入字符和Label5显示的字符zimu4Label5.Top = 0score = score + 10sum = sum + 1End IfARC:If sum = 10 ThenMsgBox "练习结束,您的得分是" & score, vbOKOnly, "确认"Open "g:\打字练习\score.txt" For Output As #1&&&&& '建立文件,把成绩存入文件中Write #1, T "成绩："; ""; scoreClose #1Form1.ShowForm2.HideEnd IfDim X As IntegerIf KeyAscii = 27 ThenX = MsgBox("确定退出?", vbOKCancel, "确认")&&&&&&& '保证用户不是错手按得退出，点击取消可返回窗体If X = 1 ThenEndElseForm1.ShowEnd IfEnd IfEnd Sub
谢谢ls好人!!!!
原来今天才交啊
登录百度帐号vb课程设计做一个类似金山的打字练习，求助！！！！【计算机科学与技术吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：48,644贴子：
vb课程设计做一个类似金山的打字练习，求助！！！！收藏
VB……没学过……
路过，帮顶
............
登录百度帐号vb程序设计报告样本ck2-土地公文库
vb程序设计报告样本ck2
vb程序设计报告样本ck2
Visual Basic 程序设计教程》 《 , 结束游戏 开始游戏 速度选择 罗朝盛,人民邮电出版社 概要设计格式编写 得分 等级 时间 剩余能量 输入不同的等级进入不 同...
长江大学工程技术学院VB语言程序设计课程设计报告（学年 第一学期）系
(部)机械系专业班级材控61002班学生姓名学号/序号/ 指导教师牧青/助教完成时间一 、功能描述
这是一个简单的打字小游戏。适用于刚开始接触打字的初学者，我们的游戏实现的是单个的字母练习这就降低了难度，我们设有不通的速度等级，当你击中的字母达到规定值时速度就会增加。随之增加难度.但是字母的个数不会改变，还是原来的6个字母下落，同时打字窗口还设有返回上一级菜单的按钮，练习者可以随时停止游戏返回上一级。在打字的过程中如果字母没有被击中就会落下，落下一个字母剩余能量就会减一（我们舍得剩余能量为15.）当剩余能量减到小于零的时候游戏就会结束，打对一个字母旁边的分数栏就会曾加1，我们设定的时间是2分钟，当你进入游戏的同时倒计时也就开始了，如果在规定的2分钟结束时你的剩余能量大于零，你就胜利了。同时会弹出一个窗体显示你的速度等级和得分。胜利后你也可以选择再来一次。重新开始。 二、概要设计word/media/image1.wmf 图1：打字游戏流程图三、详细设计1、利用一个数组控和一个随机函数来实现字母的随机赋值 Randomize
/保证字母是随机抽取的For i = 0 To 5
/利用循环给数组控件赋值Label1(i).Caption = Chr$(Rnd * 26 + 97)Next i2、在文本框的单击事件里用for循环实现了打中后字母的重新赋值和重新下落、以及得分的增加等功能代码如下所示For i = 0 To 5
全文分12页阅读论文写作技巧
VB.NET打字练习程序源码
您可能需要的
[] [] [] [] [] [] [] []