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

    2013.12.31

    如何制作 Mountain Lion 全新安装U盘(转)

    昨天搞到手一台 MACBook Pro 15…

  2. 没有图片

    2012.06.22

    CentOS配置上网,修改IP地址,DNS,网关

    一、CentOS 修改IP地址 修改对应网卡…

  3. 没有图片

    2011.04.21

    TwentyTen Advanced Headers:为日志分类添加自定义header图片

    WordPress默认主题TwentyTen…

  4. 没有图片

    2011.11.08

    WordPress导航菜单输出标题描述属性

    今天制作MT主题,想显示导航菜单的描述,于是…

  5. 没有图片

    2009.07.20

    KingCMS 2009 正式版发布

    KingCMS的口号是:情系开源,共拓网络!…

  6. 没有图片

    2009.07.10

    BBPress论坛插件排名列表

    把BBPress论坛的插件进行一个简单的整理…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢

About

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