Question

用vb编写显示时间的程序,分别将时,分,秒显示在三个text中，并将数据存储！

Answer 1

代码几句

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1 = Format(Now, "hh")
Text2 = Format(Now, "mm")
Text3 = Format(Now, "ss")
Call bc(Text1, Text2, Text3)
End Sub
Sub bc(a As String, b As String, c As String)
    If Dir(App.Path + "\save.txt") = "" Then
        Open App.Path + "\save.txt" For Output As #1
    Else
        Open App.Path + "\save.txt" For Append As #1
    End If
        Print #1, a, b, c
        Close #1
End Sub