UC知道VB 问题 高手把代码给讲解下
来源：百度知道 编辑：UC知道 时间：2024/06/07 14:02:03
Dim dtmBeginTime As Date, dtmEndTime As Date
Private Sub codEnd_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 comdStart_Click()
dtmBeginTime = Time
End Sub
Private Sub codEnd_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 comdStart_Click()
dtmBeginTime = Time
End Sub
好像是测试打字的速度吧，每分钟可以打几个字符。
Dim dtmBeginTime As Date, dtmEndTime As Date '定义全局变量，用来计算时间
Private Sub codEnd_Click() '结束的单击事件
Dim intTimeCost As Integer, intWordCount As Integer
dtmEndTime = Time() '记录结束的时刻
intTimeCost = DateDiff("S", dtmBeginTime, dtmEndTime) '计算时间，单位是秒
intWordCount = Len(txtInput.Text) '计算在txtinput文本框里的打字的字符个数
txtSpeed.Text = intWordCount / (intTimeCost / 60) '计算每分钟的个数，这个总知道吧
End Sub
Private Sub comdStart_Click() '开始的单击事件
dtmBeginTime = Time '记录开始的时刻
End Sub
楼上已经说的非常清楚了
只不过这个程序本身有个问题，楼主应该把Time()和Time全部改成Time$，因为Time()、Time是Variant类型，如果直接使用DateDiff函数的话，VB就会报错，请楼主注意一下