下面程序的输出为( )。 INTEGERA(10) DATAA/1,2,3,4,5,6,7,8,9,10/ D0 10 K=1,10M=A(K)+1 A(K)=A(10-K+1)+1 A(10-K+1)=M 10 CONTINUEWRITE(*，*)A(5) END

A:5 B:6 C:7 D:8

在BASIC源程序中，要求READ与DATAA语句个数相同。（）

有程序：INTEGERA（3）DATAA／3*1／N=2DO10I=1．NDO10J=1，N10A（I）=A（J）+1WRITE（*，*）A（N）END此程序的运行结果为：（）

A:1 B:2 C:3 D:4

程序gramtraparea
dataa,b/10,5/
y(x)=1*x+1
S=(y
B．+yA．)*abc(b-a)/2
write(*,*)’S=’,S
end
执行程序后,最接近S的值为（　）

A:80.1 B:-80.0 C:90.5 D:70.1

下列DATA语句中正确的是( )。

A:DATA/A，B/-1.0，-1.0/ B:DATAA，B/2*(-1.0)/ C:DATAA，B/2*-1.0/ D:DATAA/-1.0，B/-1.0/

对于下列给定的FORTRAN77说明和赋初值语句：
INTEGERA（2，2）
DATAA/3，4，5，6/
数组元数A（2，1）的初值为（）。

A:3 B:5 C:4 D:6

阅读下列FORTRAN77程序：INTEGERA（4，5）DATAA/5*1，5*2，5*3，5*4/M=0DO10K=1，410M=M+A（K，K+1）WRITE（*，*）MEND上述程序运行后，输出的M值为（）。

A:8 B:9 C:10 D:11

在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。 现有如下事件过程： Private Sub Text1_Change（　） Text2.Text=Mid(Text1,1,1) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（　　）。

A:DataA B:DataB C:aData D:aBase

在BASIC源程序中，要求READ与DATAA语句个数相同。