请详解一下下面的VB代码 谢谢

GetTickCount 是一个变量，貌似系统启动以来的毫秒数

i = GetTickCount \ 1000 整除1000以求得系统运行的秒数i（1000 ms = 1 s )

h = i \ 3600 用秒数整除3600，得到的系统运行的小时数h ( 1 h = 3600 s )

m = (i Mod 3600) \ 60 这一句用i Mod 3600得到不足一小时的秒数（除以3600的余数）再整除60 ，得到分钟数m ( 1 m = 60 秒 ）

s = i Mod 3600 Mod 60 求出i中不足一分钟的秒数 s ( 1 m = 60 s ),其实这一句可以写成 s = i Mod 60 更好看

Label2.Caption = h & "小时" & m & "分" & s & "秒" 这一句在label2中显示“XX小时XX分XX秒”字样

不知道楼主明白了吗

Dim i As Long ‘定义变量i为长整型数据
Dim h As Long ‘定义变量h为长整型数据
Dim m As Long ‘定义变量m为长整型数据
Dim s As Long ‘定义变量s为长整型数据

i = GetTickCount \ 1000 '这是一个API函数，是用来获取系统自启动以来到现在所用的毫秒数，注意是毫秒；用毫秒除以1000，就得秒了；

h = i \ 3600 ‘用秒除以3600，呵呵，我想你也知道是小时了吧。
m = (i Mod 3600) \ 60 ’用毫秒取模3600，再除以60，就得到分钟了。
s = i Mod 3600 Mod 60 ‘如上，取模3600，再取模60，就得秒钟了。

Label2.Caption = h & "小时" & m & "分" & s & "秒"