更多"阅读下列FORTRAN程序：DIMENSIONA（6）READ（*，*"的相关试题:
[单项选择]阅读下列FORTRAN77程序： DIMENSIONA(4，3) COMMON/P/A P＝0.0 D010K＝1，3 D010J＝1，3 1F(P.LE.5.0)P＝P+A(J，K) 10CONTINUE WRITE(*，*)P END BL（ ）CKDATAABC DIMENSIONB(4，3) COMMON/P/B DATAB/4*4.0，4*-3.0，4*2.0/ END 运行上述程序后，输出的P值为( )。
A. (8.0
B. (7.0
C. (5.0
D. (4.0
[单项选择]阅读下列FORTRAN77程序：
DIMENSIONA(3，3)
D0100K＝1，3
D0100J＝1，3
100A(K，J)＝K+J
S＝P(A，2，8)
WRITE(*，*)S
END
FUNCTIONP(B，M，N)
DIMENSIONB(N)
P＝0.0
D010K＝M，N
10P＝P+B(K)
END
运行上述程序后，输出的S值为（）。
A. 20.0
B. 24.0
C. 28.0
D. 32.0
[单项选择]
阅读下列FORTRAN77程序：
DIMENSIONA(4，3)
COMMON/P/A
P＝0.0
D010K＝1，3
D010J＝1，3
1F(P.LE.5.0)P＝P+A(J，K)
10CONTINUE
WRITE(*，*)P
END
BL（ ）CKDATAABC
DIMENSIONB(4，3)
COMMON/P/B
DATAB/4*4.0，4*-3.0，4*2.0/
END
运行上述程序后，输出的P值为（）。
A. 8.0
B. 7.0
C. 5.0
D. 4.0
[简答题]以下是某C程序，此程序根据输入的学生成绩得出成绩的等级，请仔细阅读程序并完成要求。
int scorelevel(int score)
int level;
if(score＞100||score＜0) level=-1;
else if(score＞=90) level=1;
else if(score＞=90) level=2;
else if(score＞=90) level=3;
else if(score＞=90) level=4;
else level=5;
return level;
给出满足基本路径覆盖的路径集合。
[简答题]
以下是某C程序，此程序根据输入的学生成绩得出成绩的等级，请仔细阅读程序并完成要求。
int scorelevel(int score)
int level;
if(score＞100||score＜0) level=-1;
else if(score＞=90) level=1;
else if(score＞=90) level=2;
else if(score＞=90) level=3;
else if(score＞=90) level=4;
else level=5;
return level;
画出上面程序的控制流图。
[填空题]阅读程序，填空补充程序。
#define 【15】 30
main（ ）
【16】 ;
num=10;
total=num*PRICE;
printf("total=%d,num=%d/n", 【17】 );
[单项选择]阅读程序：
Option Base 1
Private Sub Form_Click( )
Dim arr Sum
Sum=0
arr=Array(1，3，5，7，9，11，13，15，17，19)
For i=1 TO 10
If arr(i)/3=arr(i)/3 Then
Sum=Sum+art(i)
End If
Next i
Print Sum
End Sub
程序运行后，单击窗体，输出结果为
A. 13
B. 14
C. 27
D. 15
[单项选择]请阅读下面程序
publicclassExampleStringBuffer
publicstaticvoidmain(String[]args)
StringBuffersb=newStringBuffer("test")；
System.out.println("buffer-，"+sb)；
System.out.println("longth="+sb.1ength（ ）)；
程序运行结果中在“length”后输出的值是( )。
A. 10
B. 4
C. 20
D. 30
[单项选择]请阅读下面程序
publicclassThreadTest
publicstaticvoidmain(Stringargs[])throwsException
inti=0；
Hellot=newHello（ ）；
______，
while(true)
System.out.println("GoodMoming"+i++)；
if(i==2&&t.isAlive（ ）)
System.out.println("MainwaitingforHello!")；
t.join（ ）；//等待t运行结束
if(i==5)break；
classHelloextendsThread
inti；
publicvoidrun（ ）
while(true)
System.out.println("Hello"+i++)；
if(i==5)break；
为使该程序正确执行， 下划线处的语句应是( )。
A. sleep()
B. yield()
C. interrupt()
D. start()
[单项选择]阅读FORTRAN77程序：
READ(*，100)A，B，C，D
WRITE(*，*)D
100FORMAT(F2．1，3(1X，F3.1))
END
运行上述程序时，如果从键盘输入
1234567890123456＜回车＞
则最后输出的X值为（）。
A. 1.2
B. 12.3
C. 2.3
D. 23.4
[单项选择]阅读程序：
Option Base 1
Dim arr( )As Integer
Private Sub Form_Click( )
Dim i AsInteger，j As Integer
ReDim arr(3，2)
For i=1 To 3
Forj=1 To 2
arr(i，j)=i*2+j
Next j
Next i
ReDim Preserve arr(3，4)
For j=3 To 4
arr(3，j)=j+9
Nextj
Print arr(3，2)+arr(3，4)
End Sub
程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序： Function Fun( a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click( ) Dim a As Integer a=2 For i = 1 To 2 Print Fun (a); Next End Sub 运行上面的程序，单击命令按钮，输出结果为
A. 8 16
B. 9 18
C. 10 20
D. 7 14
[单项选择]阅读以下FORTRAN程序：
READ(“，”)M
IF(M.LT.100.ND.M.GT.999)STOP
K=M/100
L=(M-K*100)/10
N=M-K*1001-L*10
MM=K+N
WRITE(*，’(2X，13)’)MM
END
键盘输入600，则程序的输出结果是（）。
A. 8
B. 3
C. 7
D. 6
[单项选择]
阅读以下FORTRAN程序：
READ(*，*)X
IF(X，LE，0)RHEN
Y=0.0
ELSEIF(X，LT，5，0)，AND，(X，NE，2，0)THEN
Y=1/X
ELSEIF(X，LE，10，0)THEN
Y=1/(X+2)
ELSE
Y=10.0
ENDIF
WRITE
WRITE(*，*)Y
END
运行上述程序时，若由键盘输入：2，则程序输出结果为（）。
A. 0.0
B. 0.5
C. 0.25
D. 10.0
[单项选择]阅读以下FORTRAN程序：READ（”，”）MIF（M.LT.100.ND．M.GT.999）STOPK=M／100L=（M-K*100）/10N=M-K*100-L*10MM=K+NWRITE（*，’（2X，I3）'）MMEND键盘输入600，则程序的输出结果是（）。
A. 8
B. 3
C. 7
D. 6
[单项选择]阅读程序： Option Base 1 Dim art（ ）As Integer Private Sub Form_Click（ ） Dim i As Integer，j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve ale(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
[单项选择]阅读程序：
Option Base 1
Dim arr（ ） As Integer
Private Sub Form_Click（ ）
Dim i As Integer，j As Integer
ReDim arr(3,2)
For i=1 To 3
For j=1 To 2
an(i,j) =i*2+j
Next
Next
ReDim Preserve an(3,4)
For j=3 To 4
an(3,j) =j+9
Next
Print arr(3,2) +air(3,4)
End Sub
程序运行后，单击窗体，输出结果为
A. 21
B. 13
C. 8
D. 25
