有程序：WRITE（*，400）876．345400FORMAT（1X，E8．0）此程序段的正确执行结果是：（）

有程序：CHARACTER*4A，B*6A=‘ABCD’B=A∥‘EFGH’WRITE（*，*）BEND此程序执行后的输出结果为：（）

单选题查看答案

有程序：F（X，Y）=X／Y+XY=-2．0X=4．0X=1．0*F（Y，X）WRITE（*，*）XEND此程序的运行结果是：（）

单选题查看答案

有程序：INTEGERFF（X，Y）=X+YA=-2．0B=4．0B=1．0+F（A，B）WRITE（*，‘（1X，F3．1）’）BEND此程序的运行结果是：（）

单选题查看答案

有程序：CHARACTER*6SS=‘ABCDEF’CALLSS（S）ENDSUBROUTINESS（S1）CHARACTERS1*3WRITE（*，*）S1END此程序执行后的输出结果为：（）

单选题查看答案

有程序：READ（*，100）A100FORMAT（3x，F6．2）WRITE（*，200）A200FORMAT（1x，F8．2）END当执行此程序时，从键盘输入1234567890↙，则程序的运行结果是：（）

单选题查看答案

有程序：F（C，D）=A*C+B／DA=1．0B=2．0WRITE（*，*）F（A，B）+F（B，A）END此程序的运行结果是：（）

单选题查看答案

有程序：INTEGERPP=0DO10I=0，10，3DO10J=5，100，20DO10K=-10，-5，-110P=P+1WRITE（*，*）PEND此程序的运行结果是：（）

单选题查看答案

有程序：INTEGERB（3，3）DATAB／3*2，3*3，3*4／DO10I=1，310WRITE（*，‘（1X，3I2）’）（B（I，J），J=1，3）END此程序的运行结果是：（）

单选题查看答案

有程序：DATAI，M，N／2，1，4／10M=M*II=I+1IF（I．GT．N）GOT020GOTO1020WRITE（*，*）MEND执行此程序后，输出结果为：（）

单选题查看答案