网站首页 优选知识 > 正文
大家好,小福来为大家解答以上的问题。中文打字速度测试软件,英文打字速度测试这个很多人还不知道,现在让我们一起来看看吧!
1、都不给点分的啊 Dim x As IntegerPrivate Sub Command1_Click()Label2.Caption = ""Text2.Text = ""For i = 1 To 30 Label2 = Label2 & Chr(Int(Rnd() * 26) + 97)Next iEnd SubPrivate Sub Text2_Change()Dim r As IntegerIf Len(Text2.Text) = 30 Then Timer1.Enabled = False Text2.Enabled = False For i = 1 To 30 If Mid(Text2.Text, i, 1) = Mid(Label2.Caption, i, 1) Then r = r + 1 Label3.Caption = r / 30 * 100 Next iEnd IfEnd SubPrivate Sub Text2_GotFocus()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()x = x + 1Label1 = xEnd Sub你妈含含糊糊。
本文到此分享完毕,希望对大家有所帮助。
版权说明: 本文版权归原作者所有,转载文章仅为传播更多信息之目的,如作者信息标记有误,请第一时间联系我们修改或删除,多谢。
猜你喜欢:
- 2022-08-10 华生的前妻和孩子(华生医生)
- 2022-09-13 劲歌金曲3partyking(劲歌金曲3 party king)
- 2022-09-07 长春市个体私营企业协会(私营企业协会)
- 2022-08-24 英语大赛咨询群(英语大赛)
- 2022-09-16 绝想日志网没有了(绝想日志网)
- 2022-09-14 迈克尔杰克逊没死过吗(迈克尔杰克逊没死)
- 2022-09-12 madam joconde(madam jo)
- 2022-07-28 雷阵雨看图写话(雷阵雨qq群)
最新文章:
- 2022-09-18 下腰的正确方法图解(下腰)
- 2022-09-18 假面骑士铠武2020外传(假面骑士铠武22)
- 2022-09-18 汉弗莱爵士毕业学校(汉弗莱爵士)
- 2022-09-18 长治人力资源网和社会保障网(长治市人事考试网)
- 2022-09-18 滁州水石国际影城电话(滁州水石国际影城)
- 2022-09-18 自然景观作文400字左右(自然景观作文)
- 2022-09-18 淡极始知花更艳 愁多焉得玉无痕(淡极始知花更艳)
- 热点推荐
- 热评文章