一段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. 没有图片

    2012.02.17

    WordPress图片主题 PhotoPro V1.0正式发布

    本来已经发布了轻博客主题Cimple V1.…

  2. 没有图片

    2012.04.23

    自定义WordPress作者信息

    WordPress的作者信息默认的为AIM,…

  3. 没有图片

    2013.07.10

    WordPress主题 xSummer:淘宝客|亚马逊|当当等推广主题

    WordPress 淘宝客主题 xTaoBa…

  4. 没有图片

    2010.05.10

    支付宝如何获取交易安全验证码及合作者ID

    一、请在支付宝(http://alipay.…

  5. 没有图片

    2009.07.06

    谷歌色情内容揭秘

    目前网上到处都可以看到这样的消息:谷歌网站收…

  6. 没有图片

    2009.07.20

    织梦系统Dedecms 5.5测试版发布

    DedeCMS V5.5已经修正或升级的功能…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢