用VB 编写一个程序,将一个时间(以秒为单位)转换成“几小时几分几秒”等形式

private sub command1_click
dim s as long
s = text1
text2 = s \ 3600 & ":" & (s Mod 3600) \ 60 & ":" & (s Mod 3600) Mod 60
end sub
转换出的形式是 h:m:s