- 注册时间
- 2004-11-27
- 最后登录
- 1970-1-1
|
发表于 2005-6-24 22:01:00
|
显示全部楼层
不行
保存,假设有10个数据:
10 OPEN "TEMP" FOR OUTPUT AS#1:TOT=10 IM INP(TOT)
15 WRITE #1,TOT:FOR I=1 TO TOT
20 INPUT INP(I):WRITE #1,INP(I)
30 NEXT :CLOSE #1
40 CLS RINT "COMPLETE!"
读取
10 OPEN "TEMP" FOR INPUT AS#1:INPUT #1,TOT
20 DIM INP(TOT)
30 FOR I=1 TO TOT
40 INPUT #1,DA(I)
50 NEXT:CLOSE #1
60 INPUT "INPUT THE DATA NUMBER:";NU
70 PRINT NU;" ";DA(NU)
80 END
有事请或问题点下面我的QQ ,不要版聊。
|
|