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

    GitHub上传下载更新代码教程

    有了GitHub,终于写代码不受地区限制,团…

  2. 没有图片

    2012.10.17

    Google Drive 云端硬盘下载及安装失败解决办法&完整安装包下载

    这几天试用了一下谷歌云端硬盘(Google …

  3. 没有图片

    2010.05.08

    将硬盘分区转换为NTFS格式的命令

    在 Windows 2K 以上版本的操作系统…

  4. 没有图片

    2011.10.29

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

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

  5. 没有图片

    2012.04.07

    MySQL新建/授权/修改/删除用户教程

    一般情况下,修改MySQL密码,授权,是需要…

  6. 没有图片

    2012.02.15

    linux下解压zip文件

    linux自带的unzip命令可以解压win…

评论

  1. 大猫 2012.09.26 12:41下午

    VB 完全不会呢