阅读下列FORTRAN程序：MQIUH=N （5） +N （10）WRITE（*,’（2X, 15）’）MQIUHENDFUNCTION N （K）N=0DO 10 J=1,kN=N+J10 CONTINUERETURNEND程序运行后的结果是（）

A . 由一个主程序和至少一个子程序组成 B . 由任意个（含零个）主程序和若干个子程序组成 C . 由一个主程序和任意个（含零个）子程序组成 D . 由至少一个主程序和任意个（含零个）子程序组成

A . （M／N）.NE.0 B . NOT.（MOD（M，N）.NE.0） C . MOD（M，N）.NE.0 D . INT（M／N）.NE.0

阅读下列FORTRAN程序： DIMENSION A(6) READ(*，*)(A(I)，I=1，6) DO 10 K=1，3 S=A(K) A(K)=A(7-K) A(7-K)=S 10 CONTINUE WRITE(*，20)(A(I)，I=1，6) 20 FORMAT(1X，2I) END 上述程序运行时，若由键盘输入1，2，3， 4，5，6，则输出的结果为()。 A．1 2 3 4 5 6 B．1 4 2 5 3 6 C．6 5 4 3 2 1 D．6 3 5 2 4 1

阅读下列FORTRAN程序： DO 20 K=2，5，2 S=1.0 DO 10 J=K，5 10 S=S+J 20 CONTINUE* WRITE(*，*) S END 执行上述程序后，输出的S值为()。 A．9.0 B．1.0 C．24.0 D．10.0

阅读下列FORTRAN程序： DIMENSION A(3，4) DATA A/3*+4.0，3*-3.0，3*-2.0，3*-1.0/ S=0.0 DO 20 K=1，3 D=A(K，1) DO 10J=2，4 IF(A(K，J)＜D) D=A(K，J) 10 CONTINUE S=S+D 20 CONTINUE WRITE(*，*) S END A．-15.0 B．-12.0 C．9.0 D．6.0

A．2 B．1 C．0 D．3

下列各类计算机程序设计语言中，不属于高级程序设计语言的是()。 A．Visual Basic B．Fortran语言 C．C++语言 D．汇编语言

A．7.89 B．6.78 C．4.56 D．0.67

阅读下列FORTRAN77程序： INTEGER A(4,4) DATA A/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16/ WRITE(*，100)F(A，3) 100 FORMAT(1X，F4.1) END FUNCTION F(B，N) INTEGER B(N，N) F=0.0 DO 10 K=1，N 10 F=F+B(K，K) END 上述程序运行后，输出结果为()。 A．19.0 B．9.0 C．8.0 D．18.0

阅读下列说明和C++程序，将应填入(n)处的字句写在对应栏内。 【程序1说明】 程序1中定义了数组的类模板，该模板使得对于任意类型的二维数组，可以在访问数组元素的同时，对行下标和列下标进行越界判断，并给出相应的提示信息(C++语言本身不提供对下标越界的判断)。 【程序1】 include ＜ iostream. h ＞ template ＜ class T ＞ class Array2D; template ＜ class T ＞ class Array2DBody { friend (1); T * tempBody; int iRows, iColumns, iCurrentRow; Array2DBody(int Rows,int Cols) { tempBody =(2); iRows = Rows; iColumns = Cols; iCurrentRow = -1; } public: T& operator[ ] (int j){ bool row_ error, column_ error; row_ error = column_ error = false; try { if (iCurrentRow ＜ 0｜｜iCurrentRow ＞ = iRows) row_ error = true; if(j ＜ 0｜｜j ＞ = iColumns) column_error = true; if(row_error = = true [ [ column_ error = = true) (3); } catch(char) { if (row_error = = true) cerr ＜ ＜ "行下标越界"[" ＜ ＜ iCurrentRow ＜ ＜ "]"; if(colmnn_error = = true) cerr＜ ＜"列下标越界[" ＜ ＜j＜ ＜"]"; cout ＜ ＜ "\n"; } return tempBody[ iCurrentRow * iColumns + j ]; } ~ Array2 DBody () { delete [ ] tempBody; } }; template ＜ class T ＞ class Array2D { Array2DBody ＜ T ＞ tBody; public: Array2DBody ＜ T ＞ & operalor[ ] (int i) { tBody, iCurreutRow = i; (4); Array2D(int Rows,int Cols): (5) {} }; void main() { Array2D ＜int＞ al (10,20 ); Array2D ＜double＞ a2(3,5); int bl; double b2; b1=a1[-5][10]；//有越界提示：行下标越界[-5] b1=a1[10][15]；//有越界提示：行下标越界[10] b1=a1[1][4]；//没有越界提示 b2=a2[2][6]；//有越界提示：列下标越界[6] b2=a2[10][20]；//有越界提示：行下标越界[10]列下标越界[20] b2=a2[1][4]；//没有越界提示 }

阅读下列FORTRAN77程序： DIMENSION JA(3)，JB(3，2) DATA JB/1，2，3，4，5，6/ DO 10 K=1，3 10 JA(K)=JB(K，2) WRITE(*，100)JA 100 FORMAT(1X，6I1) END 上述程序运行后，输出结果为()。 A．123 B．456 C．135 D．246

阅读下列FORTRAN程序： PARAMETER(L=3) INTEGER N(L) DATA N/3*0/ DO 20 I=1，L DO 20 J=1，L N(J)=N(1) +1 20 CONTINUE WRITE(*，*) N(L) END 上述程序运行后，输出结果是()。 A．3 B．5 C．7 D．9

阅读下列FORTRAN77程序： INTEGER A(3,3) DATA A．1,2,3,4,5,6,7,8,9/ S=0.0 DO 10 I=1.3 J=MOD(I,3)+1 S=S+A(I,J) 10 CONTINUE WRITE(*,*)S END 上述程序运行后，输出的S值为()。 A．15 B．12 C．18 D．24

阅读下列程序说明和C++代码，将应填入(n)处的字句写在对应栏内。 [说明] ①定义私有数据成员code、english分别用于表示考生的编号、英语成绩，它们都是int型的数据。 ②完成成员函数void Student::inputinformation()的定义，该函数用于用户输入一个考生对象的信息，输入格式如下： 输入编号： 英语成绩： 计算机成绩： ③利用已实现的类Student的成员函数，完成函数void firstname(Student *A[]，int uum)的定义，该函数根据考生信息A[]，输出num个考生中总分最高者的编号及其相应的总分，在此不考虑总分相同的情况。 源程序文件test1.cpp清单如下： include ＜ iostream. h ＞ class Student (1) int computer; int total; public void getinformation(); void computesum(); int getcode(); int gettotalscore(); ~Student(); }; void Student: :getinformation() { (2) cout ＜＜"英语成绩:"; cin＞ ＞english; cout ＜＜"计算机成绩:"; cin ＞ ＞ computer; void Student:: computesum () total = english + computer; cout ＜＜"编号" ＜＜ code ＜＜"总分:" ＜＜total ＜＜ endl; int Student::getcode() return code; } int Student:: gettotalscore () { return total; } void firstname(Student * A[] ,int num) { (3) tempsum = (* A[0] ). gettotalscore(); for(int i=1; i ＜num; i++) { if (((* A[i] ). gettotalscore() ) ＞ tempsum) { tempcode = (* A[i] ). getcode(); tempsum = (* A[i] ). gettotalscore(); } } cout ＜＜"总分最高者--" ＜＜ tempcode ＜＜":" ＜＜ tempsum ＜＜endl; } void main() { Student * A[3]; int i,n =3 for(i=0;i＜n;i ++) A[i] = new Student; A[i] -＞ getinformation() for(i=0;i＜n;i ++) { A[i] -＞ computesum() firstname (A,3 ); }

阅读下列FORTRAN程序： INTEGER M(3，3) DATA M/1，2，3，4，5，6，7，8，9/ DO 10 1=1，3 WRITE(*，100) (M(I，J)，J=1，I) 10 CONTINUE 10 FORMAT (1X，312) END 上述程序执行后，输出结果是()。 A．1 4 7 2 5 8 3 6 9 B．1 2 3 4 5 6 7 8 9 C．1 2 5 3 6 9 D．1 4 5 7 8 9

A．35 B．45 C．65 D．55

A．函数子程序名没有数据类型 B．不仅能通过函数名返回一个函数值，还可以通过虚实结合双向传递数据 C．只能通过虚实结合传递一个数据 D．只能返回一个函数值及一个变量值

B．10 9 73 2 1 C．7 9 2 1 3 10 D．3 1 2 9 7 10

A．4713 B．234 C．112 D．6915