热门关键词: 官方ag游戏技巧 2010  photo shop 

四中概况 | 资源下载 | 教学视频 | 图片频道 | 教师风采 | 教研课改 | 党政工作 | 校园新闻 | 招生考试 | 工会活动 | 文学社 | 健康人格 |
您当前的位置:首页 > 教研课改

VB打字测速程序代码参考

时间:2017-10-18 10:42:04  来源:  作者: 背景:

 Dim dtmBeginTime As Date, dtmEndTime As Date '声明两个变量dtmBeginTime、 dtmEndTime为日期型变量

 
Private Sub cmdStart_Click()
 
dtmBeginTime = Time() '把当前系统时间赋予变量dtmBeginTime
 
End Sub
 
Private Sub cmdEnd_Click()
 
Dim intTimeCost As Integer, intWordCount As Integer '声明变量 intTimeCost 、 intWordCount 的数据类型为整型
 
dtmEndTime = Time() '给结束时间赋当前系统时间
 
intTimeCost = DateDiff("s", dtmBeginTime, dtmEndTime) '计算时间,用结束时间减去开始时间DateDiff 函数用于计算两日期时间的差值,计算方法是 date2 - date1。
 
 
intWordCount = Len(txtinput.Text) '把文本框中的字符串长度传给变量 intWordCount
 
txtspeed.Text = intWordCount / (intTimeCost / 60) '得出打字速度 = 输入字的个数 / 打字时间
 
End Sub
 
文章互动
  评论人 评论内容 发表时间  

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

评论协议:
请遵守国家法律和道德规范。一切评论与本站无关!
娄底四中办公室电话:6529307
网站首页 | 关于我们 | 服务条款 | 广告服务 | 联系我们 | 网站地图 | 免责声明 | WAP
Copyright © 2009 - 2010
Powered by ldsdszx.com 备案:湘ICP备10018474号