13问答网 > 谁能帮我做个高一计算机课程中要得那个打字速度测试程序（用VB做的）？谢谢啊

谁能帮我做个高一计算机课程中要得那个打字速度测试程序（用VB做的）？谢谢啊

2025-02-22 22:08:52

推荐回答（3个）

回答1：

添加一个text控件，MultiLine属性设为True
添加一个timer控件
添加一个Label控件
代码：
Private Sub Form_Load()
Text1.Text = ""
Timer1.Interval = 100
Label1.Caption = 0
End Sub

Private Sub Text1_Change()
If Len(Text1.Text) = 100 Then
Timer1.Enabled = False
Label1.Caption = "每" & Label1.Caption & "秒100字"
End If
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption + 0.1
End Sub

回答2：

这个很简单吧，稍微看看就会了啊

回答3：

不能