用vb肿么编一个简单的打字软件,-ZOL问答

5个回答默认排序

默认排序

按时间排序

已采纳

简单的打字代码，太难的俺不会做：
窗体上创建一个text1，用于随机显示20 个字符
text2 用于打字输入
按钮1 :用于产生随机字符
label1 : 用于显示正确率

Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim rndNum As Integer
Text1 =
Randomize
For i = 1 To 20
rndNum = Int(Rnd * 58 + 65)
If rndNum 90 And rndNum 97 Then
i = i - 1
Else
Text1 = Text1 & Chr(rndNum) &
End If
Next
Text1 = Trim(Text1)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Static k As Integer
Static i As Integer
If KeyAscii = 8 Then Exit Sub
i = i + 1
If KeyAscii Asc(Mid(Text1, i, 1)) Then k = k + 1
Label1.Caption = 正确率: & Format((i - k) / i, 0.00%)
If Len(Text2) = Len(Text1) Then KeyAscii = 0
End Sub

取消评论

软件制作推荐

1这个很简单，应该三个事件一起用,定义一个全局变量bRight标志是否按下鼠标右键。
2 mousedown事件代码
if button=2 then bright=true
3 mouseup事件代码
bright=false
4 keypress事件代码
if bright then if keyascii=vbkeys or keyascii=vbkeyS then sendkeys k

取消评论