求高中教科版算法与程序设计语言第二章打字测试程序代码

求高中教科版算法与程序设计语言第二章打字测试程序代码

书上就有代码，合起来就可以了。如下所示：

Dim dtmBeginTime As Date, dtmEndTime As Date

Private Sub cmdEnd_Click()
Dim intTimeCost As Integer, intWordCount As Integer
dtmEndTime = Time()
intTimeCost = DateDiff("s", dtmBeginTime, dtmEndTime)
intWordCount = Len(txtInput.Text)
txtSpeed.Text = CInt(intWordCount / (intTimeCost / 60))
End Sub

Private Sub cmdStart_Click()
dtmBeginTime = Time()
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息