一段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.06.18

    WordPress 3.0正式版发布 菠萝筐第一时间升级

    WordPress 3.0正式版发布了,今天…

  2. 没有图片

    2012.01.05

    分享一下我的防垃圾评论黑名单

    上次与大家分享了防垃圾评论插件WP Anti…

  3. 2011.04.02

    博客启用WordPress主题:LSZ Thinky Pro V3.1

    今天博客开启了在 WordPress 原生主…

  4. 没有图片

    2009.10.26

    Mozilla Weave -Mozilla官方发布书签同步插件

    以前一直使用Xmarks书签同步工具来存储我…

  5. 没有图片

    2010.03.16

    HTML5时代 20个优秀网站欣赏

    新一代的HTML标准还未正式上线,但已经有很…

  6. 没有图片

    2011.12.13

    Gmail即将推出新外观

    Google一直在为我们提供着强大的服务,G…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢

About

马拉松运动员,沉迷于跑步;关注科技前沿,关注互联网!与跑者、程序员、设计师为伍,一起跑步健身,一起编写程序,为自由而战!