(问答题) 编写一个打字练习程序,要求:
(1)点击界面Command1按钮时,在Text1中随机产生50个英文字符;
(2)在Text2上输入50个字符,点击界面Command1按钮时,统计正确率,显示在Text3上。(本题25.0分)

答案
参考答案:Private Sub Command1_Click()
randomize
Textl=
For i=1 To 50
A=Chr(Int(Rnd*26)+65)
Text1=Text1+A
Next i
End Sub
Private Sub Command2_Click
N=0
For i=1 To50
IfMid(Text1,i1)=Mid(Text2,i.1) Then
N=N+1
End if
Next i
Text3=N/50
End Sub