搜题
问题   更新时间2023/4/3 12:59:00

(问答题) 编写一个打字练习程序,要求:
(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
王老师:19139051760(拨打)