Private Sub Form_click() Dim a As Integer, b As Integer, c As Integer, k As Integer
.PrivateSubForm_click()DimaAsInteger,bAsInteger,cAsInteger,kAsIntegerOpen"c:\file1.da...
.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】_____。 展开
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】_____。 展开
2个回答
展开全部
NO. 1 3
NO. 2 5 NO. 3 2 NO. 4 1 NO. 5 1
NO. 2 5 NO. 3 2 NO. 4 1 NO. 5 1
追问
为啥我运不出来
追答
程序中“c:\file1.dat”改成“c:\file1.txt”,以记事本方式打开就可以看到运行结果,或者直接在C盘下降file1.dat重命名后缀为txt。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不知道。。。
更多追问追答
追问
哈哈,没事
追答
。。。。其实我是做任务的。。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询