2012年11月20日 ... Dim s(45) As Long Private Sub Form_Load() Me.Hide Open App.Path & "\out.txt" For Output As #2 s(0) = 1 s(1) = 1 i = 2. For i = 2 To 45 s(i) = s(i ...
chscvb.blogspot.com