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

    字如其人 文字的书写与价格特征

    1、字体垂直者责任感强 写字字体垂直的人注重…

  2. 没有图片

    2010.09.27

    Access 2010 的功能和优点

    Microsoft Access 2010 …

  3. 没有图片

    2009.09.01

    超漂亮的50款绿色风格网站

    ronischildcare yodaa e…

  4. 没有图片

    2012.06.08

    Adobe CS6中文豪华破解版下载

    Adobe CS5.5很早就有下载了,也用了…

  5. 没有图片

    2012.09.20

    Discuz!x2.5完整伪静态.htaccess代码,支持论坛、博客、门户伪静态

    前段时间因为玩DZ论坛,需要把博客伪静态,就…

  6. 没有图片

    2011.10.29

    WordPress边栏显示日志评论排行榜

    我的博客边栏一直在使用着关注博客排行榜,这些…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢

About

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