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

    2009.10.26

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

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

  2. 没有图片

    2009.09.15

    让系统启动后自动关闭共享文件夹的方法

    Windows安装后,会创建一些隐藏共享,主…

  3. 没有图片

    2010.07.17

    WordPress 3.0 中文包迟迟不发的一点感慨

    WordPress 3.0 英文版早已发布很…

  4. 没有图片

    2013.12.23

    使用Windows 8.1之系统镜像功能备份恢复系统教程

    新的Windows 8.1系统确实很给力,很…

  5. 没有图片

    2011.11.10

    MT.MU主机缓存插件 WP Super Cache 安装与设置

    MT主机这么多年来,一直保持着博客主机界第一…

  6. 没有图片

    2009.09.26

    WordPress 不用插件实现运行代码框(转)

    本来就想找个实现代码运行的插件,感觉都不太好…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢

About

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