[单选题]有程序：CHARACTER*4STR1，STR2，STR3OPEN（UNIT=15，FILE=‘INPUT．DAT’，STATUS=‘OLD’）READ（15，10）STR1，STR2，STR310FORMAT（A6，1x，A5，1x，A4）WRITE（*，’（1x，3A）’）STR1，STR2，STR3CLOSE（15）END用此程序从文件INPUT．DAT中读出字符串’FORMATANEWDISK&rsquo
[单选题]有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的运行结果是：（）A . 5B . 10C . 20D . -10
[单选题]有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的运行结果是：（）A . 2；2；2；3；3；3；4；4；4B . 2；3；4；2；3；4；2；3；4C . 3；3；3；3；3；3；3；3；3D . 4；3；2；4；3；2；4；3；2
[单选题]有程序：LOGICALA，B，C，DINTEGERX，YDATAX，Y，A，B／1，-1，2*．FALSE．／C=．NOT．A．AND（B．OR．XGE．Y）D=．NOT．（A．AND．B．OR、X．GE．Y）WRITE（*，*）C，DEND上面程序的运行结果是：（）A . TTB . FFC . TFD . FT
[单选题]有程序：DIMENSIONA（2，2）INTEGERA，YY=0DO20I=1，2D020J=1，2A（I，J）=I*I+J*JY=Y+A（I，J）20CONTINUEWRITE（*，*）YEND此程序运行的结果为：（）A . 16B . 20C . 27D . 30
[单选题]有程序：INTEGERM（5，5）L=0DO40J=1，5DO40K=1，5M（J，K）=K40CONTINUEDO10I=1，5N=1IF（MOD（I，2）．EQ．0）N=2DO10J=N，5，2L=L+M（I，J）10CONTINUEWRITE（*，20）L20FORMAT（2X，‘L=’，I3）END此程序运行的结果为：（）A . L=36B . L=39C . L=54D . L=42
[单选题]有程序：DIMENSION（4，4）READ（*，*）AWRITE（*，10）A10FORMAT（1x，6E9．2）END此程序执行后的输出结果的记录数为：（）A . 2B . 3C . 4D . 16
[单选题]有程序：F1（x）=2．0／（1．0+x）F2（Y）=F1（Y）*Y+1．0A=F1（1．0+F2（1．0）WRITE（*，10）A10FORMAT（1x，E8．2）END此程序执行后的输出结果为：（）A . 3.00B . 3.0C . 3.00E+00D . 30E+01
[单选题]有程序：INTEGERM（3，4）DATAM／4*-1，4*-2，4*-3／S=0DO10I=1．310S=S+M（I，I+1）DO20I=4，2，-120S=S-M（I-1，I）WRITE（*，*）SEND上面程序的运行结果为：（）A . 0.0B . -1.0C . -2.0D . -6.0
[单选题]有程序：INTEGERFF（X，Y）=X+YA=-2．0B=4．0B=1．0+F（A，B）WRITE（*，‘（1X，F3．1）’）BEND此程序的运行结果是：（）A . ***B . -1.5C . -1.0D . 3.0
[单选题]有程序：DO10I=1，5，3DO10J=I，310K=I+JWRITE（*，*）KEND此程序的运行结果是：（）A . 8B . 4C . 7D . 10
[单选题]下列程序执行时，需输入数据的记录个数必须为：DIMENSIONA（4，4）READ（*，*）A………………END（）A . 1个B . 4个C . 16个D . 不超过16个
[单选题]有程序：DIMENSIONA（4，3）DATAA／3*-1．0，3*-2．0，3*-3．0，3*-4．0／S=0．0DO10K=1，4D=ABS（A（K，1））DO20J=2，3IF（ABS（A（K，J））．GT．D）D=ABS（A（K，J））20CONTINUES=S+D10CONTINUEWRITE（*，*）SEND此程序执行后的结果为：（）A . 15.0B . 12.0C . 9.0D . 10.0
[单选题]有程序：INTEGERM（3，3）DATAM／1，2，3，4，5，6，7，8，9／DO10I=1．3DO10J=1，3K=M（I，J）M（I，J）=M（J，I）M（J，I）=K10CONTINUEWRITE（*，100）（（M（I，J），J=1，3），I=1，3）100FORMAT（1x，3I2）END此程序执行后的结果为：（）A . 1；4；7；2；5；8；3；6；9B . 1；2；3；4；5；6；7；8；9C . 9；6；3；8；5；2；7；4；1D . 7；8；9；4；5；6；1；2；3
[单选题]有程序：READ（*，50）SWRITE（*，100）S50FORMAT（1X，F7．3）100FORMAT（1X，F8．3）END执行此程序，由键盘输入123456789，则输出S的值为：（）A . 1234.576B . 2345.678C . 345.678D . *******
[单选题]有程序：INTEGERPP=0DO10I=0，10，3DO10J=5，100，20DO10K=-10，-5，-110P=P+1WRITE（*，*）PEND此程序的运行结果是：（）A . 0B . 24C . 120D . 144
[单选题]有程序：READ（*，10）IA，IIF（IA．GE．125）THENI=I+10，ELSEI=I-10ENDIFWRITE（*，*）I10FORMAT（I2，I1）END执行上面的程序时，从键盘输入365，2，则运行后结果I的值是：（）A . 15B . -8C . 12D . -5
[单选题]有程序：DATAI，M，N／2，1，4／10M=M*II=I+1IF（I．GT．N）GOT020GOTO1020WRITE（*，*）MEND执行此程序后，输出结果为：（）A . 6B . 24C . 120D . 720
[单选题]有程序：N=0DOK=6，2，-2N=N+KM=2*N10CONTINUEWRITE（*，*）MEND上面程序的运行结果是：（）A . 12B . 20C . 24D . 不定值
[单选题]有程序：CHARATERX*2，Y*3，Z*4DATAX，Y，Z／‘AB’，‘CDE’，‘FGHI’／WRITE（*，100）X，Y，Z100FORMAT（1X，A1，A2，A3）END此程序的运行结果是：（）A . ABCDEFB . ACDFGHC . ******D . ABCDEFGHI
[单选题]有程序：CHARACTER*4A，B*6A=‘ABCD’B=A∥‘EFGH’WRITE（*，*）BEND此程序执行后的输出结果为：（）A . ABCDEFGHB . ABCDEFC . ABCDD . EFGH
[单选题]有程序：LOGICALLL=．TRUE．READ（*，*）xIF（x．LT．0）THENL=．FALSE．ELSEWRITE（*，*）xENDIFIF（．NOT．L）WRITE（*，*）-xEND执行两次以上程序，若运行中的输入值分别为2．5和-1．0，则两次运行结果分别是：（）A . 2.5和1.0B . -2.5和1.0C . 2.5和-1.0D . -2.5和-1.0
[单选题]有程序：READ（*，100）A100FORMAT（3x，F6．2）WRITE（*，200）A200FORMAT（1x，F8．2）END当执行此程序时，从键盘输入1234567890↙，则程序的运行结果是：（）A .4567.89B .1234.56C .******D . D.1234.5
[单选题]有程序：INTEGERA（3）DATAA／3*1／N=2DO10I=1．NDO10J=1，N10A（I）=A（J）+1WRITE（*，*）A（N）END此程序的运行结果为：（）A . 1B . 2C . 3D . 4
[单选题]有程序：WRITE（*，400）876．345400FORMAT（1X，E8．0）此程序段的正确执行结果是：（）A . ['['8.E+02B . 1.E+03C . 格式错误D . 1.0000E+03
[单选题]有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序执行后的输出结果为：（）A . ABCB . BCDC . CDED . DEF
[单选题]有程序：M=2N=MD010I=1，N+1，NN=N*NM=M*N10CONTINUEWRITE（*，*）MEND此程序的运行结果是：（）A . 8B . 32C . 128D . 16
[单选题]有程序：DATAA，B，C／4．0，-8．0，3．0／P=B*B-4*A*CIF（P．GE．0．0）THENS=（-B+SQRT（P））／（2*A）T=C／（A*S）P=（S+T）／2ELSES=0T=0ENDIFWRITE（*，*）PEND执行此程序，则运行的结果是：（）A . 0.0B . 1.0C . 2.0D . 3.0
[单选题]有程序：DIMENSIONx（3，3）READ（*，*）xCALLSSl（x（1，2））ENDSUBROUTINESSl（x）DIMENSIONx（3）WRITE（*，*）x（2）END当输入1、2、3、4、5、6、7、8、9时，此程序执行后的输出结果为：（）A . 3B . 4C . 5D . 6
[单选题]有程序：ADD（X，Y）=X**2+YOPEN（8，FILE=‘F’，STATUS=‘NEW’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTED’，REAL=16DO10I=1，4D=ADD（REAL（I），2、0）WRITE（8，REC=I）D10CONTINUECLOSE（8）OPEN（2，FILE=‘F’，STATUS=‘OLD’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTFED’，REAL=6DO20I=2，4，2READ（2，REC=I）CWR