有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的運(yùn)行結(jié)果是：（）

有程序：ADD（X，Y）=X**2+YOPEN（8，F(xiàn)ILE=‘F’，STATUS=‘NEW’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTED’，REAL=16DO10I=1，4D=ADD（REAL（I），2、0）WRITE（8，REC=I）D10CONTINUECLOSE（8）OPEN（2，F(xiàn)ILE=‘F’，STATUS=‘OLD’，ACCESS=‘DIRECT’，*FORM=‘UNFORMATTFED’，REAL=6DO20I=2，4，2READ（2，REC=I）CWRITE（*，30）C20CONTINUE20FORMAT（1x，F(xiàn)4．1）CLOSE（2）END執(zhí)行此程序的結(jié)果是：（）

有程序：N=0DOK=6，2，-2N=N+KM=2*N10CONTINUEWRITE（*，*）MEND上面程序的運(yùn)行結(jié)果是：（）

有程序：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執(zhí)行此程序，則運(yùn)行的結(jié)果是：（）

有程序：DIMENSIONx（3，3）READ（*，*）xCALLSSl（x（1，2））ENDSUBROUTINESSl（x）DIMENSIONx（3）WRITE（*，*）x（2）END當(dāng)輸入1、2、3、4、5、6、7、8、9時，此程序執(zhí)行后的輸出結(jié)果為：（）

有程序：I=5J=10K=20M=-10IF（I．GT．M）M=IIF（J．GT．M）M=JIF（K．GT．M）M=KWRITE（*，*）MEND此程序的運(yùn)行結(jié)果是：（）

有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序執(zhí)行后的輸出結(jié)果為：（）

有程序：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上面程序的運(yùn)行結(jié)果是：（）

有程序：CHARACTER*4A，B*6A=‘ABCD’B=A∥‘EFGH’WRITE（*，*）BEND此程序執(zhí)行后的輸出結(jié)果為：（）

有程序：M=2N=MD010I=1，N+1，NN=N*NM=M*N10CONTINUEWRITE（*，*）MEND此程序的運(yùn)行結(jié)果是：（）