FOXBASE 程序问题 答对了 有赏分50

来源：百度知道 编辑：UC知道 时间：2024/05/28 08:29:12
set talk off
set stat off
clear
input to x
do while x>100
if x-int(x/3)*3=1
else
x=x+1
endif
?x
set stat on
set talk off
canc
这个程序是对的还是错的，如果是错的请您更正一下．
还有一个：
set talk off
set stat off
clear
Y=-1
WAIT TO X
@3,10 GET Y
IF X="YES"
? SQRT(Y)
ENDIF
READ
set stat on
set talk off
canc
还有一个：
set talk off
set stat off
clear
x=100
do while x<=100
? if (mod(x,3)=0,x,xstr(x,3+"no"))
x=x-1
enddo
set stat on
set talk off
canc
不用考虑什么任务，只要纠正一下，这个程序的结构就行了～！

每个程序要完成的任务是什么，不明确！
set talk off
set stat off
clear
input to x
do while x>100
if x-int(x/3)*3=1
else
x=x+1
endif
?x
EndDo && Do......EndDo 要配对
set stat on
set talk off
Return && 用Return 好
*canc
这个程序是对的还是错的，如果是错的请您更正一下．
还有一个：
set talk off
set stat off
clear
Y=-1
WAIT TO X
@3,10 GET Y
READ && 读入 y, 原放在? SQRT(Y)后，就无y值
IF X="Y" && Wait 只能读入一个字
? SQRT(Y)
ENDIF
set stat on
set talk off
canc
还有一个：
set talk off
set stat off
clear
x=100
do while x<=100
? iif (mod(x,3)=0,x,xstr(x,3+"no")) && 原if错
x=x-1
enddo
set stat on
set talk off
canc