你可能感兴趣的试题
OPEN(UNIT=3,FILE=‘QW’) OPEN(3,FILE=QW) OPEN(FILE=‘QW’,3,STATUS=OLD) OPEN(3,FILE=QW,STATUS=UNKNOWN)
有格式顺序存取文件 无格式顺序存取文件 有格式随机存取文件 无格式随机存取文件
在Open语句中的文件名前添加路径 把程序中各处的“20”改为“1” 把Print ch语句改为Print #20,ch 把Open语句中的Output改为Input
OPEN(8) OPEN(8,FORM=‘UNFORMATTED’) OPEN(8,ACCESS=‘DIRECT’) OPEN(8,FILE=‘AA’)
Open "Datdat" For OutputAs #1 Open "Datdaf' For InputAs #1 Open Datdat For OutputAs #I Open Datdar For Append As #1
Open"text.dat"For Write As #1 Open"text.dat"For Binary As #1 Open"text.dat"For Input As #1 Open"text.dat"For Random As #1
A.OPEN(UNIT=3,FILE= ADAT,STATUS=NEW) B.OPEN(UNIT=3,FILE=ADAT,STATUS=OLD) C.OPEN(3,FILE='ADAT',STATUS='NEW') D.OPEN(D,FILE='ADAT',STATUS='OLD')
Open "file l .dat" For lnpu't As#1 Open”file l .dat" For Append As#1 Open”file1.dat" For Output As#1 Open”file1.dat" For Random As#1 Len=20
Open"texdat" For Write As#1 Open"texdat"For Binary As#1 Opcn"texdat"For lnput As#1 Open"texdat"For Random As#1
OPEN(UNIT=3,FILE=ADAT,STATUS=NEW) OPEN(UNIT=3,FILE=ADAT,STATUS=OL OPEN(3,FILE='ADAT',STATUS='NEW') OPEN(D,FILE='ADAT',STATUS='OLD')
Open"texdat"For Write As #1 Open"texdat"For Binary As #1 Open"texdat"For Input As #1 Open"texdat"For Random As #1
OPEN(8) OPEN(8,FORM=‘UNFORMATTED') OPEN(8,ACCzongS=‘DIRECT') OPEN(8,FILE=‘AA')
Open "texdar"For Write As #1 Open "texdat"For Binary As #1 Open "texdat"For Input As #1 Open "texdat"For Random As #1
OPEN(UNIT=3,FILE=ADAT,STATUS=NEW) OPEN(UNIT=3,FILE=ADAT,STATUS=OL OPEN(3,FILE=′ADAT′,STATUS=′NEW′) OPEN(D,FILE=′ADAT′,STATUS=′OLD′)
有格式顺序存取文件 无格式顺序存取文件 有格式随机存取文件 无格式随机存取文件
OPEN(UNIT=3,FILE=AA.DAT,STATUS=OLD) OPEN(3,FILE=′AA.DAT′,STATUS=′NEW′) OPEN(UNIT=3,FILE=AA.DAT,STATUS=NEW) OPEN(D,FILE=′AA.DAT′,STATUS=′OLD′)
Open "texdat" For Write As#1 Open "texdar" For Binary As#1 Open "texdat" For Input As#1 Open "texdat" For Random As#1