一段VB代码

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

落花生

认准了方向,就要勇敢地走下去,十年磨一剑,我相信,只要坚持,一切都有可能。

相关日志

  1. 没有图片

    2010.10.13

    分享到QQ空间后,让倒计时永远计下去!

    平时把一篇文章分享到QQ空间后,就会出现一个…

  2. 没有图片

    2010.09.27

    微软安全软件 Microsoft Security Essentials

    通过正版验证的Windows电脑用户,可以免…

  3. 没有图片

    2009.07.12

    2008年度五十个国外最漂亮网站推荐

    08年的网页设计开始流行一些破旧的质感和一些…

  4. 没有图片

    2011.05.03

    25个黑色调网站 激发你的创造力

    我们都喜欢漂亮的网站设计样式,我对黑色调的网…

  5. 没有图片

    2010.07.05

    Windows 8 图片惊现网络

    近日,Windows 8 惊现网络,Wind…

  6. 没有图片

    2011.12.22

    LNMP的mail函数不能发送邮件解决办法

    编译好的LNMP环境下,WordPress的…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢