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

    金山毒霸通行证7月22日

    金山毒霸通行证7月22日 是由菠萝筐(lis…

  2. 没有图片

    2009.08.26

    UCenter Home 2.0 正式版发布

    刚刚安装上 UCenter Home 2.0…

  3. 没有图片

    2010.07.05

    Windows 8 应该实现的新功能

    通过对Windows 7的使用体验,在新的操…

  4. 没有图片

    2009.10.09

    精确调整动画-菠萝AE学习笔记

    实验项目01 层与关键帧动画 实验目的 掌握…

  5. 没有图片

    2011.05.02

    两招提取WordPress文章缩略图

    针对WordPress文章缩略图的提取教程,…

  6. 没有图片

    2010.12.01

    删除联想Ideapad Y430的隐藏分区方法

    小百度的本本最近硬盘空间不够用了,想扩充点,…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢

About

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