vb打字练习应用程序跪求高手谢谢了

[文员电脑打字员自我介绍]出生日期:1983-02-01 性别:女婚姻状况:未婚身高:156厘米体重: 46公斤求职意向描述_应聘岗位:文员/电脑打字员/操作员卫生医疗医疗/护理保健其它岗位描述:文员...+阅读

Dim RNEWALLSTRING As String '合并字符串，此时的字符串已经不包换换行符和空格Dim ER As IntegerPrivate Sub Command1_Click（) '注意len(vbcrlf)=2Timer1.Enabled = TrueDim PATH As StringDim ALLSTRING As StringIf Option1(0).Value = True ThenPATH = ＂C:\Documents and Settings\Administrator\桌面\练习1.TXT＂ElseIf Option1

(1).Value = True ThenPATH = ＂C:\Documents and Settings\Administrator\桌面\练习2.TXT＂ElseIf Option1

(2).Value = True ThenPATH = ＂C:\Documents and Settings\Administrator\桌面\练习3.TXT＂ElseIf Option1

(3).Value = True ThenPATH = ＂C:\Documents and Settings\Administrator\桌面\练习4.TXT＂ElseIf Option1

(4).Value = True ThenPATH = ＂C:\Documents and Settings\Administrator\桌面\练习5.TXT＂ElseIf Option1

(5).Value = True ThenPATH = ＂C:\Documents and Settings\Administrator\桌面\练习6.TXT＂End IfDim fso As FileSystemObject 'set是给对象变量赋值Dim file1 As TextStreamSet fso = CreateObject(＂Scripting.FileSystemObject＂)Set file1 = fso.OpenTextFile(PATH)ALLSTRING = file1.ReadAllText1.Text = ALLSTRINGDim SPI '用来存62616964757a686964616fe58685e5aeb931333264643130储分割后得字符串SPI = Split(ALLSTRING, vbCrLf)Dim NEWALLSTRING As String '用来存储合并后的字符串，为了去掉换行符For i = 0 To UBound(SPI)NEWALLSTRING = NEWALLSTRING & SPI(i)NextDim Rspi '用来存储去掉空格后的字符串Rspi = Split(NEWALLSTRING, ＂＂)For i = 0 To UBound(Rspi)RNEWALLSTRING = RNEWALLSTRING & Rspi(i)NextEnd SubPrivate Sub Command2_Click()Timer1.Enabled = Falsei = 100 - (ER / Len(Text2.Text)) / (Len(Text2.Text) / Len(RNEWALLSTRING)) * 100Text5.Text = iEnd SubPrivate Sub Form_Load()Timer1.Enabled = FalseEnd SubPrivate Sub Text2_Change（) '用来检测字符是否正确For i = 1 To Len(Text2.Text)If Left(Text2.Text, i)Left(RNEWALLSTRING, i) ThenJ = J + 1End IfNextER = JText3.Text = EREnd SubPrivate Sub Timer1_Timer()Static i As IntegerText4.Text = 5000 - ii = i + 1If i >5000 ThenMsgBox ＂时间已到＂Text5.Text = 100 - (ER / Len(Text2.Text)) / (Len(Text2.Text) / RENEWALLSTRING) * 100End IfEnd Sub你还说个邮箱吧，要不然你看不明白，我把工程文件给你发过去，不过我的练习题的文本文件是保存在桌面上的，当然你可以改为其他的路径