UC知道高分求解几道数据库题·满意答案继续追加分数
来源：百度知道 编辑：UC知道 时间：2024/09/21 19:08:56
刚开始学数据库，马上要考试了，希望有高手能给出题目的详细思路，每一步的意思和运算过程，，满意答案继续追加分数200分，决不食言，小弟在线=
1．不数据库文件AB.DBF，有如下记录：
RECORD# XM XB ZF
1 张明 男 861
2 孙悦 女 1542
3 刘欢 男 280
4 祖英 女 1880
程序如下：
USE AB
DO WHILE .NOT.EOF()
IF XB=“女”.AND.ZF＜900
W=ZF
ELSE
W=XF+1
ENDIF
SKIP
ENDDO
？W
运行后输出W的值为
给出详细解答，运算过程与解释。
2．有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的值为 。
大家帮个忙，小弟在线=，我一共还有1000分，最佳答案的人我会再发两道题帮忙解答，送完1000分也在所不惜，机会难得，摆脱大家了。
1．不数据库文件AB.DBF，有如下记录：
RECORD# XM XB ZF
1 张明 男 861
2 孙悦 女 1542
3 刘欢 男 280
4 祖英 女 1880
程序如下：
USE AB
DO WHILE .NOT.EOF()
IF XB=“女”.AND.ZF＜900
W=ZF
ELSE
W=XF+1
ENDIF
SKIP
ENDDO
？W
运行后输出W的值为
给出详细解答，运算过程与解释。
2．有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的值为 。
大家帮个忙，小弟在线=，我一共还有1000分，最佳答案的人我会再发两道题帮忙解答，送完1000分也在所不惜，机会难得，摆脱大家了。
USE AB //使用AB数据库
DO WHILE .NOT.EOF() //选择语句
IF XB=“女”.AND.ZF＜900 //选择XB为女，ZF<900的
W=ZF //此时W=ZF
ELSE //不然
W=XF+1 //W=XF+1
ENDIF //结束选择
SKIP
ENDDO
？W //输出W
解题思路，选择XB为女，ZF<900的，显然没有符合此条件的，则W=XF+1
所以W=XF+1，此处你XF没有定义
SET TALK OFF
CLEAR
STORE 1 TO X //从1到x
STORE2001 TO Y //从1到y
DO WHILE X＜Y //当x<y时
IF .NOT.(INT(X/2)=X/2) //如果x是奇数
X=X^2+1
Y=Y+1
ELSE //否则,也就是x是偶数
X=X+1
ENDIF
ENDDO
?X //输出x
?Y //输出y
解题思路：
x=1,x=x^2+1=2;y=y+1=2001+1=2002
x=2,x=x+1=2+1=3
x=3,x=x^2+1=10;y=y+1=2002+1=2003
x=10,x=x+1=10+1=11
x=11,x=x^2+1=101;y=y+1=2003+1=2004
x=101,x=x^2+1=10201,y=y+1=2004+1=2005,此时x>y,循环终止
输出x=10201,y=2005