2002年4月二级VF笔试试题

一、选择题（（1）-（40）题每小题1分，（41）-（50）题每小题2分，共和60分）
　　下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
(1) 在计算机中,一个字长的二进制位数是（ 　）。
A) 8 　　B) 16　　 C) 32 　　D) 随CPU的型号而定

(2)计算机网络的突出优点是（ 　）。
A) 速度快　　 B) 资源共享　　 C) 精度高 　　D) 容量大

(3) 计算机网络能传送的信息是:（ 　）。
A) 所有的多媒体信息 　　　　B) 只有文本信息
C) 除声音外的所有信息 　　　D) 文本和图像信息

(4)切断计算机电源后,下列存储器中的信息会丢失的是: （ 　）。
A) RAM 　　B) ROM 　　C) 软盘　　 D) 硬盘

(5)十进制数127转换成二进制数是（ 　）。
A) 11111111 　　B) 01111111　　 C) 10000000　　 D) 11111110

(6) 要想打印存放在当前盘当前目录上所有扩展名为.TXT 的文件内容, 应该使用的DOS命令为 （ 　）。
A) DIR *.TXT>PRN　　　　 B) TYPE *.TXT>PRN
C) COPY *.TXT PRN　　　　D) COPY *.TXT>PRN

(7) 将当前盘当前目录及其子目录中的全部文件 (总量不足1.2MB)复制到一张空的A盘的根目录下,应该使用的DOS命令为
（ 　）。
A) XCOPY *.*A:\ /M　　 B) XCOPY *.*A:\ /S
C) XCOPY *.*A:\ /P　　 D) XCOPY *.*A:\ /A

(8) 在C盘根目录下执行PROMPT$p$g命令之后,DOS的提示符变为 （ 　）。
A) C:> 　　B) C:\> 　　C) C> 　　D) C:\

(9)DOS命令 "COPY CON DISP"中的CON代表 （ 　）。
A) 子目录　　 B) 磁盘文件　　 C) 键盘　　 D) 显示器

(10) 结构化程序设计所规定的三种基本控制结构是 （ 　）。
A) 输入、处理、输出　　 B) 树形、网形、环形
C) 顺序、选择、循环　　 D) 主程序、子程序、函数

(11) 要把高级语言编写的源程序转换为目标程序,需要使用 （ 　）。
A) 编辑程序 　　B) 驱动程序　　 C) 诊断程序 　　D) 编译程序

(12) 英文小写字母d的ASCII码为100,英文大写字母D的ASCII码为 （ 　）。
A) 50　　 B) 66 　　C) 52 　　D) 68

(13) Windows环境下,PrintScreen键的作用是 （ 　）。
A) 复制当前窗口到剪贴板　　　　 B) 打印当前窗口的内容
C) 复制屏幕到剪贴板　　　　　　 D) 打印屏幕内容

(14) 在Windows环境下,为了终止应用程序的运行,应 （ 　）。
A) 关闭该应用程序窗口　　　　　　 B) 最小化该应用程序窗口
C) 双击该应用程序窗口的标题栏 　　D) 将该应用程序窗口移出屏幕

(15) 下列各带有通配符的文件名中,能代表文件XYZ.TXT的是（ 　）。
A) *Z.?　　 B) X*.* 　　C) ?Z,TXT 　　D) ?.?

(16) 在MS-DOS环境中生成一个FORTRAN77程序的可执行文件的顺序应该是（ 　）。
A）编辑、连接、编译 　　　B）编辑、编译、连接
C）编译、连接、编辑　　　 D）编译、编辑、连接

(17) 关于编译一个FORTRAN77源程序文件，下列说法中错误的是 （ 　）。
A) 允许编译只有一个主程序而没有子程序的源文件
B) 允许编译有多个子程序的源文件
C) 允许编译只有一个子程序而没有主程序的源文件
D) 允许编译有多个主程序的源文件

(18) 下列关于FORTRAN77源程序编辑规则的叙述中，正确的是 （ 　）。
A) 每一行都必须从第7列开始
B) 主程序第一行必须是PROGRAM语句
C) 每个源程序块的最后一行必须是END语句
D) 每个子程序中必须有一个RETURN语句

(19) 在FORTRAN77源程序中，续行标志符必须放在（ 　）。
A) 第1列 　　B) 第1-6列　　 C) 第6列　　 D) 第5列

(20) 下列关于"SUBROUTINE MAP(X，Y)"语句行的叙述中，不正确的是（ 　）。
A) 这是子程序的第一个语句 　　B) 字符串"MAP"是子程序名
C) 变量X是子程序的形参　　　　D) 子程序执行后，MAP将返回整型数据

(21) FORTRAN77表达式"2/4+0.5"的值是 （ 　）。
A) 0.5 　　B) 1　　 C) 1.0　　 D) 0

(22) 若在FORTRAN77中一个整型变量占2个字节，则该变量可以存放的数据值范围是 （ 　）。
A) -32768～32767 　　B) -32768～32768
C) -65536～65535　　 D) -65536～65536

(23) 阅读下列FORTRAN77程序：
PI=3.14159265
WRITE(*,'(F7.4) ')PI
END
程序运行后输出结果是 （ 　）。
A) 3.142 　　B) 3.1415　　 C) 0.31416　　 D) 3.1416

(24) 圆的直径存放在整型变量K之中，下列计算圆面积的表达式中正确的是 （ 　）。
A) 3.1415926*K*K/4　　　　　B) 3.1415926*(K*K/4)
C) 3.1415926*(K/2)**2 　　　D) 3.1415926*(K/2)*(K/2)

(25) 要判断"月收入M在2000元以上(含2000元)且5000元以下)不含5000元)"的职工，应该使用的逻辑表达式是（ 　）。
A) M .GE. 2000 .AND. M .LE. 5000
B) M .GE. 2000 .OR. M .LE. 5000
C) M .GE. 2000 .AND. M .LT. 5000
D) M .GE. 2000 .OR. M .LT. 5000

(26) 设FORTRAN77子程序如下：
SUBROUTINE SUB(I，X)
B=I+1
X=X+B
END
若主程序中的变量M，B已按I-N规则赋值，则调用上述子程序的语句中正确的是（ 　）。
A) CALL SUB(M，M)　　 B) CALL SUB(M+4，B)
C) CALL SUB(B，B) 　　D) CALL SUB(M，B+4)

(27) 下列不是FORTRAN77常量的是 （ 　）。
A) (3.0,4.0)　　 B) 3.1416D+00　　 C) 2/3　　 D) 'Very good!'

(28) 阅读下列FORTRAN77程序：
F=1.0
DO 20 K=3, 7, 3
DO 20 L=K-1, K
20 WRTTE(*,'(I3, F8.1)'K, F*K
END

程序运行结果的最后一行是 （ 　）。
A) 3 6.0 　　B) 6 6.0 　　C) 6 180.0 　　D) 7 180.0

(29) 在FORTRAN77中，下列运算符的优先顺序是（ 　）。
A) 逻辑运算，关系运算，算术运算　　 B) 关系运算，逻辑运算，算术运算
C) 算术运算，关系运算，逻辑运算　　 D) 关系运算，算术运算，逻辑运算

(30) 使用FORTRAN77内部函数时，所给的自变量（ 　）。
A) 只能是常量 　　　　　　B) 只能是变量
C) 只能是常量或者变量 　　D) 可以是常量、变量或者表达式

(31) 设X=2.0, Y=8.0, Z=6.0, L=.TRUE.,则下列FORTRAN77表达式中值为.TRUE.的是 （ 　）。
A) X+Z.GT.Y.AND.L　　　　　　　　　　 B) .NOT.(Y.LT.Z+X).NEQV..NOT.L
C) .NOT.L.OR.(L.EQV.Y+X.EQ.Z) 　　　　D) Y+X.GE.Z+X.AND.(L.AND..FALSE.)

(32) 下列输出语句行中正确的是 （ 　）。
A) WRITE(*，*)(A(K，L)，K=1，3，L=1，3)
B) WRITE(*，*)A(K，L)，K=1，3，L=1，3
C) WRITE(*，*)((A(K，L)，K=1，3，)L=1，3)
D) WRITE(*，*)(A(K，L)，K=1，3)，L=1，3

(33) 给定下列FORTRAN77子程序如下：
SUBROUTINE SUB(K，A)
A=SQRT(K*K+1.0)
END
下列调用语句中正确的是 （ 　）。
A) CALL SUB(N,N) 　　　　B) CALL SUB(X,X)
C) CALL SUB(N,X*X) 　　　D) CALL SUB(11,X)

(34) 阅读下列FORTRAN77程序:
INTEGER AA(2,3)
DATA AA/1,2,3,4,6/
CALL S2D19(AA)
CALL S2D19(AA(1,2))
END
SUBROUTINE S2D19(BB)
INTEGER BB(2,2)
WRITE(*,'(1X,2I3)') BB(1,1),BB(2,2)
END
程序运行结果是 （ 　）。
A) 1 4 　　　B) 1 5 　　C) 1 4　　 D) 1 2
　　3 6 　　　　2 6　　　　2 5　 　　　3 4

(35) 阅读下列FORTRAN77程序:
INTEGER A(3,3)
DO 10 K=1,3
DO 10 L=1,3
10 A(K,L)=K*10+L
WRITE(*,'(1X,3I3)')A
END
程序运行结果是: （ 　）。
A) 11 21 31 　　　B) 11 12 13 　　　C) 31 32 33 　　　D) 33 32 31
12 22 32 　　　　　　21 22 23　　　　　21 22 23 　　　　　32 22 21
13 23 33　　　　　　 31 32 33　　　　　11 12 13 　　　　　31 21 11

(36) 阅读下列FORTRAN77程序:
WRITE(*,10)'YEAR:', 1996
10 FORMAT(/3X,A,I4)
END
程序运行结果是(^代表空格,下同) （ 　）。
A) ^^^^^YEAR:1996 　　　B) ^^YEAR:1996
C) 空白行 　　　　　　　D) 空白行
^^^^^YEAR:1996 　　　　　^^YEAR:1996

(37)某函数子程序中使用了IMPLICIT、READ、COMPLEX和FUNCTION四种语句,其中属于可执行语句的是:（ 　）。
A)FUNCTION 　　B) READ　　 C) COMPLEX　　 D) IMPLICIT

(38)要想成功地打开名为"QW"的输出文件,应该使用语句 （ 　）。
A)OPEN(UNIT=3,FILE='QW')
B)OPEN(3,FILE=QW)
C)OPEN(FILE='QW',3,STATUS='OLD')
D)OPEN(3,FILE=QW,STATUS=UNKNOWN)

(39) 阅读下列FORTRAN77程序:
INTEGER F
F(X,Y)=X+Y
A=-2.5
B=4.0
B=1.0+F(A,B)
WRITE(*,20)B
20 FORMAT(1X,F4.1)
END

程序运行的结果是: （ 　）。
A) 2.0 　　B) -1.5　　 C) -1.0 　　D) 3.0

(40) 阅读下列FORTRAN77程序:
X=0
DO 15 L=10, 5, 15
15 X=X+1.0
END

程序运行时执行循环体的次数是: （ 　）。
A) 0 　　B) 1　　 C) 2　　 D) 无穷

(41) 阅读下列FORTRAN77程序:
DIMENSION M(4,4)
DATA M/1,2,3,4,5,6,7,8,9，0,1,2,3,4,5,6/
DO 10 I=1,4
WRITE (*,100)(M(I,J),J=1,I)
10 CONTINUE
100 FORMAT(1X,4I2)
END

程序运行的结果是 （ 　）。
A) 1 2 3 4　　 B) 1 5 9 3 　　C) 1　　 D) 1
　　6 7 8 　　　　6 0 4 2　　　 6 5　　　 6
　　1 2 1 　　　　　5 3 　　　　7 1 　　9 0 1
　　6 　　　　　　　6 4　　　　　8 2 　6 3 4 5 6

(42) 阅读下列FORTRAN77程序:
CHARACTER*10 A, B*6
DO 10 I=1,10
A(I:I)=' '
10 COUNTINUE
A(1:5)='ABCDE'
B='FGHIJK'
A(4:9)=B
WRITE(*,100) A
100 FORMAT(1X,A)
END

程序运行结果是： （ 　）。
A) ABCDEFGHIJ　　 B) ABCDEGHIJK 　　C) ABCFGHIJK　　 D) BCDEFGHIJK

(43) 阅读下列FORTRAN77程序：
INTRINSIC SIN， COS
WRITE(*，*)FUN(SIN，30.0)/FUN(COS,30.0)
END
FUNCTION FUN(F,X)
X=X*3.14159/180
FUN=F(X)
END

程序运行结果是 （ 　）。
A) sin30°的值　　 B) cos30°的值　　 C) tg30°的值　　 D) ctg30°的值

(44)阅读下列FORTRAN77程序：
X=0.0
Y=2.0
CALL SUB(X,Y,Z,3.0)
WRITE(*,'(1X,3F5.1)')X,Y,Z
END
SUBROUTINE SUB(A,B,X,Z)
A=A+1
B=B+2.0
Y=1.0
X=X+Y
END

程序运行结果是: （ 　）。
A) 2.0 5.0 4.0　　 B) 2.0 1.0 2.0
C) 1.0 4.0 4.0 　　D) 4.0 2.0 4.0

(45) 阅读下列FORTRAN77程序:
CHARACTER A(5,5)
DO 100 K=1,5
DO 100 J=1,5
N=K*(2-K)+(J-3)*(J-3)
IF(N.LT.0)A(K,J)='$'
IF(N.EQ.0)A(K,J)='0'
IF(N.GT.0)A(K,J)='*'
100 CONTINUE
WRITE(*,200)(（A(K,J), J=1,5） K=1,5)
200 FORMAT(1X,5A2)
END

程序运行的结果是 （ 　）。
A)$$$$$ 　B)***$$ C)　$$$$$ D)　*****
　**0** 　　**$$$ 　　$$0$$ 　　**0**
　*$$$* 　　*0$$$　　 $***$ 　　*$$$*
　$$$$$　　 **$$$ 　　***** 　　$$$$$
　$$$$$ 　　***$$ 　　***** 　　$$$$$

(46)阅读下列FORTRAN77程序:
DIMENSION N(20)
DO 10 M=1,20
N(M)=0
10 CONTINUE
K=5
DO 20 M=1,K
DO 20 J=1,K
N(J)=N(M)+1
20 CONTINUE
WRITE(*,*)N(K)
END

程序运行的结果是: （ 　）。
A) 8 　　B) 9 　　C) 18　　 D) 10

(47) 阅读下列FORTRAN77程序:
COMMON /COM/M(5),N(4)
CALL FIB
WRITE(*,'(1X,4I3)')N
END
SUBROUTINE FIB
COMMON /COM/J(5),K(4)
DO 10 I=1,4
K(I)=J(I+1)-J(I)
10 CONTINUE
END
BLOCK DATA
COMMON /COM/K(5),L(4)
DATA K/8,7,10,4,13/
END

程序运行的结果是: （ 　）。
A) 1 -3 6 -9　 B) 7 10 4 13
C) -1 3 -6 9 　D) -9 3 -6 9

(48) 阅读下列FORTRAN77程序:
INTEGER P(3,4)
DATA P/1,2,3,4,5,6,7,8,9,10,11,12/
CALL SUB(P)
WRITE(*,*)P(2,2)
END
SUBROUTINE SUB(A)
INTEGER A(12)
DO 10 K=1,12
M=A(K)
A(K)=A(12-K+1)
A(12-K+1)=M
10 CONTINUE
END

程序运行结果是：（ 　）。
A) 5　 B) 6 　C) 7　 D) 8

(49)阅读下列FORTRAN77程序：
N=0
DO 10 K=30，0，-2
DO 10 L=-10，10，1
10 N=N+1
WRITE(*，*)N
END

程序运行结果是：（ 　）。
A) 316　 B) 326　 C) 306 　D) 336

(50) 阅读下列FORTRAN77程序：
COMMON A，B，C，D
A=1.0
B=2.0
C=3.0
D=4.0
CALL ABCD(2)
WRITE(*,*)A,C
END
SUBROUTINE ABCD(N)
COMMON B,C,D,A
IF(N.LE.0) THEN
B=A
C=D
ENDIF
END

程序运行结果是 （ 　）。
A) 1.0 3.0　 B) 1.0 4.0 　C) 4.0 3.0 　D) 4.0 2.0

二、填空题(每空2分，共40分)

　　请将每一个空的正确答案写在答案卡【1】至【20】序号的横线上，答在试卷上不得分。

(1)为了要将当前盘目录中的可执行程序ABC.EXE的输出结果存放到当前盘当前目录中的文件OUT.TXT中,则应使用的DOS命令为【1】 。

(2)计算机网络分为广域网和局域网,因特网属于【2】 。

(3)要想在当前目录下方便地执行C盘\UCDOS目录中的程序,就应该先执行预设搜索路径的命令,该DOS命令为【3】 。

(4)要查看当前目录中扩展名为.DAT的所有文件目录,应该使用的DOS 命令为【4】 。

(5)在Windows环境下,当进行复制操作时,其复制的内容将存放在【5】中

(6)下列FORTRAN77子程序的功能是用以下公式计算一组数据Z1,Z2,…,Zn的标准差σ：
σ2=(Z12 +Z22+…+Zn2)/n-[(Z1+Z2,+…+Zn)/n]2
请在程序中的下划线处填入合适的内容。
【6】 SIGMA(Z，N)
REAL Z(N)
SUMX=0.0
SUMX2=0.0
DO 10 K=1,N
【7】
SUMX=SUMX+X
SUMX2=SUMX2+X*X
10 CONTINUE
AV=SUMX/N
AV2=SUMX2/N
S2=AV2-AV*AV
SIGMA=【8】
END
(7) 下列FORTRAN77程序的功能是将30个学生的考试成绩读入数组A,然后统计并且输出最高的分数以及小于60分、60～80分与大于80分的三个分数段的学生数。请在程序中的下划线处填入合适的内容。
【9】 A(30), B, C(3)
DATA C/3*0/
READ(*,*)A
【10】
DO 10 K=2,30
IF(A(K).GT.B) B=A(K)
10 CONTINUE
DO 30 K=1,30
IF (A(K).LT.60)C(1)=C(1)+1
IF (A(K).GT.80)C(3)=C(3)+1
IF(A(K).LE.80 【11】 A(K).GE.60)C(2)=C(2)+1
30 CONTINUE
WRITE(*,*) B,C
END
(8)

下列FORTRAN77程序的功能是用对分法求出方程4.1x3-5.2x=11.8在区间(1，5)中的一个实数根，要求输出根的近似值和对分次数。请在程序中的下划线处填入合适的内容。
【12】 =4.4*X**3-5.2*X-11.8
DATA XL,XR,N/1.0,N/1.0,5.0,0/
10 N=N+1
X=(XL+XR)/2.0
FX=FUN(X)
IF (ABS(FX).LT.1E-6.OR.N.GE.1000)THEN
WRITE(*,'(1X,A2,F12.7,A5,I4)')'X=',X,'N=', N
ELSE
IF(FUN(XR)*FX.GE.0.0) THEN
XR=X

【13】
XL=X
ENDIF

【14】
ENDIF
END
(9) 下列FORTRAN77程序的功能是计算多项式y=2+2.1x+3.2x3+5.4x5 在x=1.7时的值。主程序调用了函数子程序POLY。请在程序中的下划线处填入合适的内容。
PROGRAM PVALUE
REAL A(6)
DATA A/【15】 /
DATA N，X/6， 1.7/
Y=POLY(A,N,X)
WRITE(*,'(1X,A5,6F5.1)')'a(k)=',A
WRITE(*,'(1X,A2,F5.1,A6,F8.2)')'X=',X,'; Y=',Y
END
FUNCTION POLY(B,M,V)
【16】
POLY=B(1)
FV=1.0
DO 10 K=2, M
FV=FV*V
10 POLY=POLY+【17】
END
(10) 下列FORTRAN77程序的功能是使用筛法筛选出N以内的所有素数并输出。其算法如下：
在N 以内的自然数列中先筛除2的倍数(不包括2)；在2之后未筛去的第一个数是3,于是再筛除3的倍数；在3之后未筛去的第一个数是5,于是再筛除5的倍数；如此重复下去，直到遇见筛剩下的第一个数是最接近N的平方根的那个数为止。请在程序中下划线处填入合适的内容。
PARAMETER (N=100)
【18】 A(N),P(N)
A(1)=0
DO 10 K=2,N
10 A(K)=K
DO 20 K=3,N
20 IF(MOD(A(K),2).EQ.0)A(K)=0
ISR=SQRT(FLOAT(N))
DO 30 M=3,ISR,2
DO 30 K=M+2, N
30 IF(A(K).NE.0.AND.MOD(A(K),M).EQ.0)【19】
M=1
DO 40 K=1,N
IF(A(K).NE.0)THEN
P(M)=【20】
M=M+1
ENDIF
40 CONTINUE
WRITE(*,'(1X,10I8)')(P(K),K=1,M-1)
END
〖完〗