更多"有FOXBASE程序如下： SET TALK OFF CLEAR ST"的相关试题:
[简答题]
有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的值为多少？
[单项选择]执行下列程序：
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
[填空题]阅读下列程序，
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】 。
[填空题]运行下列程序，其结果应该是 [15] 。
SET TALK OFF
CLEAR
STORE 2 TO X，Y
D0 WHILE.T.
Y=Y+3
DO CASE
CASE INT(Y/5)*5=Y
LOOP
CASE Y=10
EXIT
OTHERWISE
X=X+Y
ENDCASE
’X=’+STR(X，2)，’Y=’+STR(Y，2)
ENDDO
SET TALK ON．
[填空题]阅读下列程序，
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】 。
[填空题]
运行下面的程序段后,屏幕显示的运行结果是（）。
CLEAR
SET TALK OFF
STORE 3 T0 n
ss(n)
FUNCTION SS
PARAMETERS X
y=1
p=0
FoR i=1 TO x
y=y*i
p=p+y
ENDFoR
RETURN P
ENDFUNC
[单项选择]设有如下程序文件：
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 后，屏幕显示的结果应是（）。
[单项选择]程序如下：
SET TALK OFF
INPUT TO X
FOR i=1 TO 3
INPUT TO Y
IF Y＞X
X=Y
ENDIF
ENDFOR
X
RETURN
本程序的功能是( )。
A. 求3个数中的最大值
B. 求4个数中的最大值
C. 求3个数中的最小值
D. 求4个数中的最小值
[简答题]写下列程序的运行结果
SET TALK OFF
K=1
A1=10
A2=A1+5
A3=A1-5
A4=A1+A2
S=100
DO WHILE K<5
STORE "A"+STR(K,1) TO M
S=S+2*&M
K=K+2
ENDDO
S
RETURN
执行上述程序，运行结果是：_____________________
