PrivateSubForm_click()DimaAsInteger,bAsInteger,cAsInteger,kAsInteger．PrivateSubForm_click()DimaAsInteger,bAsInteger,cAsInteger,kAsIntegerOpen"c:file1.dat"ForOutputAs#1a=3:b=5Print#1,"NO.";1,a
1人问答
问题描述：
PrivateSubForm_click()DimaAsInteger,bAsInteger,cAsInteger,kAsInteger
．PrivateSubForm_click()
DimaAsInteger,bAsInteger,cAsInteger,kAsInteger
Open"c:file1.dat"ForOutputAs#1
a=3:b=5
Print#1,"NO.";1,a
Print#1,"NO.";2,b
Fork=3To5
c=b-a
Print#1,"NO.";k,c
b=a
a=c
Nextk
Close#1
EndSub写出文件file1.dat的最终结果______【2】_____。
其它推荐
其它推荐
最新更新
精品分类
优秀其它推荐
热门其它
邮箱： 