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 = intWordCount / (intTimeCost / 60)
End Sub
Private Sub cmdStart_Click()
dtmBeginTime = Time()
End Sub
VB 完全不会呢