写出 a1.dat文件的最终结果 Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open "c:\a1.dat" For Output As #1 f1 = 2 f2 = 3 Print #1, "NO."; 3, f1 Print #1, "NO."; 4 , f2 For i = 5 To 7 f3 = f1 + f2 Print #1, "NO."; i, f3 f1 = f2 f2 = f3 Next i Close #1 End Sub