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

    2011.09.14

    获取指定不同发布类型的日志的评论

    注意了,本文所说的是调用不同发布类型(pos…

  2. 没有图片

    2012.07.14

    PHP的mail函数无法发送邮件的解决办法

    服务器安装上了centos,但默认不能发送邮…

  3. 没有图片

    2014.09.03

    如何正确地给固态硬盘分区(转)

    如果您正在使用或者准备购买固态硬盘(SSD)…

  4. 没有图片

    2011.12.05

    网站提速、穿越封锁:Cloudflare使用教程

    今天研究了一下Cloudflare对网站的加…

  5. 2014.03.18

    WP盒子原创WordPress博客主题 WPBox-One V1.0.1 发布

    WPBOX-One WordPress主题,…

  6. 没有图片

    2009.07.05

    WordPress 2.8 中文版发布

    WordPress 2.8 中文正式版官方已…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢