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

    巧用timthumb.php为WordPress博客添加缩略图

    WordPress自带着缩略图功能,但这个默…

  2. 没有图片

    2009.12.20

    40款最漂亮的PhotoShop特效文字制作教程

    刚刚在让你桌面酷炫无比的桌面图片一文为大家整…

  3. 没有图片

    2011.11.23

    亚马逊广告联盟注册使用教程

    亚马逊广告联盟已经进驻中国,这应该说是中国站…

  4. 没有图片

    2011.11.02

    安装Windows8 同时分享下载及安装教程

    今天正式下载了Windows 8 开发版,并…

  5. 没有图片

    2010.07.30

    WordPress 3.0.1正式版发布

    今日登陆后台发现WordPress 3.0.…

  6. 没有图片

    2009.07.23

    金山毒霸通行证7月23日

    通行证:KSDA68592625 密码:78…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢