[单项选择]
阅读下列FORTRAN77程序：
EXTERNALPP
INTEGER P，PP，Q(4，4)
DATAQ/1，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16/
WRITE(，)P(Q，4，PP)
END
INTEGER FUNCTION PP(B，N)
INTEGERB(N，N)
PP＝0
D010K＝1，N
10PP＝PP+B(K，K)
END
INTEGER FUNCTIONP(B，N，S)
INTEGER S，B(N，N)
P＝0
D（　）10K＝1，N
10P＝P+S(B，K)
END
运行上述程序后，输出的结果为（）。

A. 55
B. 56
C. 57
D. 58

更多"阅读下列FORTRAN77程序： EXTERNALPP INTEGER"的相关试题:

[单项选择]阅读下列FORTRAN77程序：
PARAMETER(L=3)
INTEGER N(L)
DATA N/3*0/
DO 20 I=1，L
DO 20 J=1，L
N(J)=N(I)+1
20 CONTINUE
WRITE(*，*)N(L)
END
上述程序运行后，输出的值为（）。
A. 3
B. 5
C. 7
D. 9

查看答案

[单项选择]阅读下列程序：
Function func(n As Integer)As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1)* i
Next i
func = Sum
End Function.
Private Sub Command1_Click （　）
Dim a As Integer
a= 5
s = func (
A. 60
B. 70
C. 15

查看答案

[单项选择]阅读程序： 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

查看答案

[单项选择]阅读程序：
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

查看答案

[单项选择]阅读程序： 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 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 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后，单击窗体，输入结果为______。
A. 21
B. 13
C. 8
D. 25

查看答案

[单项选择]阅读程序： 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

查看答案

[单项选择]阅读程序：
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
arr(i，j)=i*2+j
Next
Next
ReDim Preserve arr(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

查看答案

[单项选择]阅读程序：
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
f=a+ b+ c
End Function
Private Sub Command1_Click（　）
Dim S As Integer
a=2
For i=1 To 3
Print P(
A. 4
B. 4
C. 4

查看答案

[单项选择]阅读程序：
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Command1_Click（　）
Dim a As Integer
a=2
For i=1 To 3
Print F(
A. 4 5 6
B. 4 6 8
C. 4 7 9

查看答案

[单项选择]阅读程序
SUB P(B( ) AS INTEGER)
FOR I=1 TO 4
B(I) =2*I
NEXT I
END SUB
PRIVATE SUB COMMAND1_CLICK( )
DIM A( 1 TO 4) AS INTEGER
A(1)=5
A(2) =6
A(3) =7
A(4) =8
P A( )
FOR I = 1 TO 4
MSGBOX A(I)
NEXT I
END SUB
运行上面的程序，单击命令按钮COMMAND1后，消息框4次输出的内容分别是( )。
A. 出错
B. 10, 12, 14, 16
C. 5, 6, 7, 8
D. 2, 4, 6, 8

查看答案

我来回答:

提交