资源描述：
《VB指法练习的小游戏-课程设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB指法练习的小游戏-课程设计VB指法练习的小游戏
2、课程设计
3、计算机数据库课程设计DimsSource(180),sInput(180) '分别定义用于存储用户输入和原始文本的字符数组 DimiAsInteger,iCorrectAsInteger,iSecondAsInteger 'iCorrect用于记录用户输入正确的字符数 'iSecond用于记录已经用去的时间 DimnAsInteger PrivateSubcommand1_Click() '提示用户输入用户名If(
4、Text5.Text="")ThenMsgBox("请输入姓名:")ElseCommand2.Enabled=TrueCommand1.Enabled=FalseEndIfEndSub PrivateSubCommand2_Click() '对用户输入数据进行统计Command1.Enabled=TrueCommand2.Enabled=FalseiCorrect=0 Fori=1To60sInput(i)=Mid(Text1.Text,i,1) '统计第一个text里正确的字符数 sSour
5、ce(i)=Mid(Label1.Caption,i,1)IfsInput(i)=sSource(i)TheniCorrect=iCorrect+1EndIfNext Fori=1To60 '统计第二个text里正确的字符数sInput(i)=Mid(Text2.Text,i,1) sSource(i)=Mid(Label2.Caption,i,1) IfsInput(i)=sSource(i)TheniCorrect=iCorrect+1EndIfNext
6、 Fori=1To60 '统计第三个text里正确的字符数sInput(i)=Mid(Text3.Text,i,1) sSource(i)=Mid(Label3.Caption,i,1) IfsInput(i)=sSource(i)TheniCorrect=iCorrect+1EndIfNext'取字符串iCorrect/iSecond中前四个字符Text4.Text=Mid(iCorrect/iSecond,1,4) '取字符串iCorrect*100/
7、180中前四个字符Text6.Text=Mid(iCorrect*100/180,1,4)&"%" '向db1中添加数据Data1.Recordset.AddNewData1.Recordset.Fields("用户名")=Text5.TextData1.Recordset.Fields("速度")=Text4.TextData1.Recordset.Fields("正确率")=Text6.TextData1.Recordset.Fields("难度")=Text7.TextData1.Recordset.
8、Update '记时器清零iSecond=0Text5.Text=""EndSub PrivateSubMSHFlexGrid1_Click()EndSub PrivateSubCommand3_Click()Form2.ShowEndSub PrivateSubCommand4_Click()EndEndSub PrivateSubForm_Load()'运行时Command1和Command2不可用Command1.Enabled=False Command2.Enabled=FalseEndSub11
9、91 PrivateSubTimer1_Timer() iSecond=iSecond+1 '记时EndSub PrivateSub困难_Click() '随机产生33到126之间的字符Label1.Caption=""Label2.Caption=""Label3.Caption=""Text1.Text=""Text2.Text=""Text3.Text="" Randomize[n]Fori=1To180 Ifi<61Andi>0Then '在label1中产生字符 IfiMod6=0Then
10、 sSource(i)="" Label1.Caption=Label1.Caption&"" '每隔五个字母就自动产生一个空格 Else sSource(i)=Chr(Int(Rnd()*93+33)) Label1.Caption=Label1.Capt
