[单项选择]
阅读下列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 10K=1，N 10 F=F+B(K，K)
END
上述程序运行后，输出结果为（）。

A. 19.0
B. 9.0
C. 8.0
D. 18.0

更多"阅读下列FORTRAN77程序： INTEGER A(4，4) DAT"的相关试题:

[单项选择]

阅读下列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

查看答案

[单项选择]阅读下列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

查看答案

[单项选择]

阅读以下FORTRAN程序：
INTEGER X(7) DATA X/10,20,45,70,80,15,14/ M=X(1) DO 10 I=2.7 IF(X(I),GT,M) THEN M=X(I) K=I 10 CONTIMUE N=X(K) X(K)=X(1) X(1)=N WRITE(*.100)(X(1),1=1,7) 100 FORMAT(2X,713)
程序运行的结果是（）。

A. 10 20 45 70 80 15 14
B. 14 20 45 70 80 15 10
C. 80 20 45 70 10 15 14
D. 20 45 70 80 15 14 10

查看答案

[单项选择]阅读下列FORTRAN程序： INTEGER X(7) DATA X/4，5，7，8，10,12,11/ DO 10K=1，7 IF(MOD(X(K)，2).NE.0)THEN S=S+X(K) N=N+1 END IF 10 CONTINUE T=S/N WRITE(*．20)S，T 20 FORMAT(2X，3F6.1) END 程序运行后的输出结果是：
A. (A) 23.0 7.7
B. (B) 47.0 6.7
C. (C) 34.0 8.5
D. (D) 57.0 11.4

查看答案

[单项选择]阅读下列FORTRAN程序 INTEGER X(3，3)，A DATA X/1，2，3，4，5，6，7，8，9，/ DO 10 I=1，3 DO 10 J=I+1，3 A=X(I，J) X (I，J)=X (J，I) X (J，I)=A 10 CONTINUE WRITE(*，20)((X(I，J)，J=1，3)，I=1，3) 20 FORMAT (1X，312) END 运行上述程序后，其输出是；
A. (A)1 4 7 2 5 8 3 6 9
B. (B)1 2 3 4 5 6 7 8 9
C. (C)9 6 1 8 5 2 7 4 3
D. (D)9 8 7 6 5 4 3 2 1

查看答案

[单项选择]阅读程序： Function Fun(a As Integer) Static c， b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Command1_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

查看答案

[单项选择]阅读程序： Function Fun(a As Integer) Static C 　　b=0：b=b+2：c=c+2 　　F=a*b*c End Function Private Sub Command1_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

查看答案

[单项选择]执行以下程序段　　　　 Dim x As Integer，i As Integer 　　　　 x＝0 　　　　 For i=20 To 1 Step-2　　　　　　 x＝x+i/5 　　 Next i 后,x的值为
A. 16 D，17
B. 18
C. 19

查看答案

[单项选择]执行以下程序段 Dim x As Integer， i As Integer x=0 For i=20 To Step -2 x=x+i/5 Next i 后，x的值为
A. 16
B. 17
C. 18
D. 19

查看答案

[单项选择]程序段如下： Dim i As Integer，s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s，i执行的结果是( )。
A. 10 0
B. 9 1
C. 10 1
D. 9 0

查看答案

[单项选择]

执行以下程序段 Dim i As Integer,X As Integer x=0 For i=20 To 1 Step -2 x=x+i/5 Next Print x 后,x的值为（）。

A. 16
B. 17
C. 18
D. 19

查看答案

[单项选择]执行以下程序段后，x的值为( )。 Dim x As Integer,i As Integer x=0 For i=20 To 0 Step -2 　　x=x+i/5 Next i
A. 16
B. 17
C. 18
D. 19

查看答案

[单项选择]以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a
A. 100
B. 9 1
C. 10 1
D. 90

查看答案

[单项选择]由如下程序： Type Student Num As Integer Name As String * 13 End Type Dim stu(30)As Student 该程序段定义了两个程序成分，它们分别是 ______。
A. 记录类型和记录数组
B. 记录类型和记录变量
C. 显示类型和记录数组
D. 记录变量和记录数组

查看答案

[单项选择]有如下程序，该程序的执行结果为______。 Dim k As Integer n=5 m=1 k=1 Do While k ＜= n m=m*2 k=k+1 Loop Print m
A. 1
B. 5
C. 32
D. 40

查看答案

[简答题] 阅读下列程序段，注释指令中计算符LENGTA的取值. DATA SEGMENT A DW 10 DUP（？）， 1234H， 20 DUP（？） B DB ‘ABCDEF’，6 DUP（？） C DW 10， 20 DPU（？） D DW 5 DUP（3 DUP（2），5） DATA ENDS ┆ ① MOV AX， LENGTH A ② MOV BX ，LENGTH B ③ MOV CX ，LENGTH C ④ MOV DX ，LENGTH D

查看答案

[单项选择]执行以下程序段 Dim i As Integer, x As nteger x = 0 For i = 20 To 1 Step -2 Next x = x + i / 5 Print x 后，x的值为______。
A. 16
B. 17
C. 18
D. 19

查看答案

我来回答:

提交