Option ExplicitPrivate Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()
Dim Filename As String
Filename = App.Path & "\" & Format(Time, "HHMMSS") & ".txt"Open Filename For Output As #1
Print #1, "内容"Close #1End Sub 第二个问题,:Private Sub