S=S+T ENDDO
***********found*********** ?\?\
a. t=t*n b. ?\6. set talk off clea
input\input\s1=jiech(m) s2=jiech(n) s3=jiech(m-n) s=(s1+s2)/s3
?\func jiech
******found******* para x p=1
for j=1 to i p=p*j endfor
******found******* retu endfunc
a. para i b. retu p 7. set talk off clear
use 学生表 do while .t.
accept \请输入要查询的字段名：\if type(zdm)<>\
?\输入的字段类型错误，请重新输入\ loop endif
accept \请输入查询字段所对应的查询内容：\******found******* locate for zdm=nr do while !eof() disp wait continue enddo
wait \还要继续查询吗(y/n)\
if upper(yn)=\******found******* loop endif enddo
a. locate for &zdm=nr b. exit 8. set talk off clear
input to x
******found****** d=type(x) do case
******found****** case d=c
dd=\为字符型数据\ case d=\
dd=\为数值型数据\ case d=\
dd=\为日期型数据\ case d=\
dd=\为逻辑型数据\ case d=\
dd=\为货币型数据\ otherwise
dd=\未定义\endcase ?dd set talk on
a. d=vartype(x) b. cased=\9. set talk off clear
x=120030056000 y=0 s=0
do while .t.
*******found******* n=mod(x/10) if n=y s=s+1 endif
x=int(x/10)
*******found******* if x!=0 exit
endif enddo ? s
set talk on
a. n=mod(x,10) b. if x=0 10. SET TALK OFF SET SAFETY OFF USE MODIIN6
DO WHILE .NOT. EOF()
***********found*********** KH=SUBS(考号,4,3) IF MOD(KH,8)=1
REPL 考场 WITH '001' ELSE
REPL 考场 WITH '002' ENDIF
***********found*********** LOOP ENDDO USE
SET TALK ON RETURN
a. kh=val(subs(考号,4,3)) b. skip
11. SET TALK OFF CLEAR USE 学生表 ACCEPT \请输入学生学号:\ *******found*******
SEEK 学号=XH IF !EOF()
*******found******* REPLACE ALL 奖学金 WITH 10 ?学号,姓名,奖学金 ELSE ?\没有找到!\ ENDIF USE SET TALK ON
a. locate for学号=xh b. replace 奖学金 with 奖学金+10 12. set talk off clear
input \input \
?\最大公约数为:\
?\最小公倍数:\set talk on func gybs
*******found******* para m,n if x do while .t. r=mod(x,y) if r=0 *******found******* return x exit else x=y y=r endif enddo endfunc a. para x,y b. return y 13. CLEA SET TALK OFF S=0 T=1 INPUT\ INPUT\ *******found******* FOR I=1 TO N A=X^I T=T*(1/I) *******found******* S=S+1/T*A ENDF ?\泰勒展开式的和为：\ SET TALK ON a. for i=1 to n-1 b. s=s+t*a 14. SET TALK OFF CLEAR INPUT \ INPUT \ ?A+B ******found****** IF MOD(A/2)=0 AND MOD(B/2)=0 ******found****** ?AB ENDIF SET TALK ON a. if mod(a,2)=0 and mod(b,2)=0 b. ? alltrim(str(a))+alltrim(str(b)) 15. CLEAR ***********found*********** I=0 do while i<=3 ACCEPT \请输入您的用户名：\ TO IF 用户名=\ ?\欢迎使用本系统！\ WAIT ***********found*********** LOOP ELSE ?\用户名错误！\ i=i+1 ENDIF ENDDO ?\结束\ SET TALK ON RETURN a. i=1 b. exit 16. SET TALK OFF CLEAR INPUT \ TO A INPUT \ TO B INPUT \ TO C D=B*B - 4*A*C if D<0 ?\复根\ELSE ***********found*********** IF D>0 ?\ ELSE ***********found*********** D1=ABS(D) ?\ ?\ 用户名