廬山99-1

Public Class Form1
    Dim h, m, s
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim t = 10000
        h = t \ 3600
        m = t \ 60 Mod 60
        s = t Mod 60
        MsgBox(h & ":" & m & ":" & s)
    End Sub
End Class