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

    收藏的各种LightBox控件

    在Web设计的时候,经常会用到LightBo…

  2. 没有图片

    2009.07.28

    UUSee半年免费版卡巴斯基2009

    以前在用360安全卫士的时候,就用到了安装3…

  3. 没有图片

    2009.12.15

    WordPress插件CommentLuv:让你的博客评论也热闹

    很早就想为大家写这篇文章,只是因为时间太紧,…

  4. 2014.03.27

    优秀的 HTML 和 CSS 代码规范

    HTML 语法 用两个空格来代替制表符(ta…

  5. 没有图片

    2009.09.06

    分享一下网上几乎绝迹的微博客饭否源码 Easytalk

    目前微博客已经成为一种主流交流平台,随着Tw…

  6. 2013.12.26

    phpMyAdmin “缺少 mcrypt 扩展。请检查 PHP 配置。”解决办法

    在安装配置phpMyAdmin管理mysql…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢