更多"设有如下程序文件:
SET TALK OFF
CL"的相关试题:
[单项选择]设有如下程序文件:
SET TALK OFF
CLEAR
DIMENSION a(2,3)
i=1
DO WHILE i<=2
j=1
DO WHILE j<=3
a(i,)=i+j
a(i,j)
j=j+1
ENDDO
i=i+1
ENDDO
SET TALK ON
RETURN
执行此程序,程序的运行结果为( )。
A. ARCHIVE
B. CODE
C. ALT
D. ALIGN
[单项选择]设有如下程序文件:
SET TALK OFF
CLEAR
DIMENSION a(2,3)
i=1
DO WHILE i<=2
j=1
DO WHILE j<=3
a(i,)=i+j
a(i,j)
j=j+1
ENDDO
i=i+1
ENDDO
SET TALK ON
RETURN
执行此程序,程序的运行结果为
A. 2 3 4
B. 1 2 3
C. 1 2 3
D. 2 3 4
[填空题]
在Visual FoxPro中,有如下程序:
*程序名:TEST.PRG
SET TALK OFF
PRIVATEX,Y
X="数据库"
Y="管理系统"
DO sub1
X+Y
RETURN
*子程序:sub1
PROCEDU sub1
LOCALX
X="应用"
Y="系统"
X=X+Y
RETURN
执行命令DO TEST 后,屏幕显示的结果应是()。
[简答题]
有FOXBASE程序如下:
SET TALK OFF
CLEAR
STORE 1 TO X
STORE2001 TO Y
DO WHILE X<Y
IF .NOT.(INT(X/2)=X/2)
X=X^2+1
Y=Y+1
ELSE
X=X+1
ENDIF
ENDDO
X
Y
运行后X的值为Y的值为多少?
[单项选择]执行如下程序,最后s的显示值为
SET TALK OFF
s=0
i=5
x=11
DO WHILE s<=x
s=s+i
i=i+1
ENDDO
s
SET TALK ON
A. 5
B. 11
C. 18
D. 26
[单项选择]有如下一段程序:
SET TALK OFF
A=1
B=0
DO WHILE A<=100
IF.NOT.A/2=INT(A/2)
B=B+A
ENDIF
A=A+1
ENDDO
B
SET TALK ON
RETURN
该程序的功能是______。
A. 求1~100之间的累加和
B. 求1~100之间的累加和除以2的商
C. 求1~100之间的偶数之和
D. 求1~100之间的奇数之和
[填空题]设有如下程序:
SET TALK ON
X=10
M=5
N=6
DO PP2 WITH M,N
DO PP2 WITH M,N
SET TALK ON
PROCEDURE PP2
PARAMETERS M,N
X=M+10
M=M+N
X,M,N
ENDPROC
RETURN
程序执行后,显示的结果分别是 【10】 和 【11】 。
[单项选择]执行下列程序:
CLEAR
SET TALK OFF
STORE 1 TO i,a,b
DO WHILE i<=3
DO PROG1
"P("+STR(i,1)+")="+STR(a,2)+","
i=i+1
ENDDO
"b="+STR(b,2)
RETURN
PROCEDURE PROGl
a=a*2
b=b+a
SET TALK ON
RETURN
程序的运行结果为( )。
A. 非私有
B. 私有
C. public
D. protected
[单项选择]执行如下程序,最后S的显示值为( )。
SET TALK OFF
s=0
i=5
x=11
DO While s<=x
s=s+i
i=i+1
ENDDO
s
SET TALK ON
A. 5
B. 11
C. 18
D. 26
[填空题]阅读下列程序,
SET TALK OFF
STORE 3 TO X,Y,Z
DO PP1 WITH (X),Y
X,Y,Z
*****定义过程*****
PROCEDURE PP1
PARAMETER A,B
A=A+2
B=B-2
RETURN
SET TALK ON
屏幕显示的结果是 【10】 。