VB6.0 编写的一个挺简单的指法练习源代码，随机显示练习题的内容，捕获 keypresses，计算打字练习时间，计算每分钟多少字，计算争取率，每分钟单词数计时器。一些相关的源代码： 　　Private Sub Timer1_Timer() 　　 '每分钟单词数计时器 　　 WordsPerMin = 0 　　 PrgressBar1.Value = Val(Len(Lbl_Input.Caption) * 100 / Len(Txt_Article.Text)) 　　 '计算打字练习

可以根据日期序列数（查询日与本年1日相距多少天），经度，纬度，和时区，查询而得到日出时间。 输出调试文本 (日出计算 (345, 112.5, 31, 8))