PrivateSubFormclick()DimaAsInteger,bAsInteger,cAsInteger,kAsInteger．PrivateSubFormclick()DimaAsInteger,bAsInteger,cAsInteger,kAsIntegerOpen"c:\file1.dat"ForOutputAs#1a=3:b=5Print#1,"NO.";1,a

Question

Private Sub Form_click() Dim a As Integer, b As Integer, c As Integer, k As Integer
．Private Sub Form_click()
Dim a As Integer, b As Integer, c As Integer, k As Integer
Open "c:\file1.dat" For Output As #1
a=3 : b=5
Print #1,"NO." ; 1, a
Print #1,"NO." ; 2, b
For k=3 To 5
c=b-a
Print #1,"NO."; k, c
b =a
a=c
Next k
Close #1
End Sub 写出文件file1.dat的最终结果______【2】_____。

Answer 1

NO. 1 3
NO. 2 5 NO. 3 2 NO. 4 1 NO. 5 1