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)
?\ ?\
ENDIF ENDIF
SET TALK ON RETURN
a. if d=0 b. d1=sqrt(d) 填空题
1. SET TALK OFF CLEAR
INPUT \请输入数据个数：\INPUT \
STORE X TO MAXI,MINI SUM=X P=M-2
FOR I=1 TO M-1 INPUT \SUM=SUM+X ******found****** ______(1)______ MAXI=X ENDIF IF X R=SUM-MAXI-MINI ?R/P SET TALK ON a. if x>maxi b. mini=x 2. CLEAR FOR I=1 TO 5 ?SPACE(5-I) ******found****** FOR J=1 TO ________(1)________ ******found****** ________(2)________ ENDFOR ENDFOR a. for j=1 to 2*i-1 b. ?? chr(64+i) 3. set talk off clear input \请输入一个正整数m:\?alltrim(str(m,19))+\的质数因子有:\i=2 do while i<=m ******found****** if ________(1)________ ??str(i,6) m=int(m/i) ******found****** ________(2)________ endif i=i+1 enddo set talk on a. if mod(m,i)=0 b. loop 4. Set talk off Clear Accept \请输入一个汉字字符串： \******found****** s2=________(1)________ ?s1+\ -> \set talk on func zfcdz para s m=len(s) ch=space(0) do while m>0 c=subs(s,m-1,2) ch=ch+c m=m-2 enddo ******found***** ________(2)________ endfunc a. s2=zfcdz(s1) b. return ch 5. Clear Do while .t. Input \ If num_x<100 or num_x>=1000 or int(num_x)<>num_x messagebox(\ loop Else num_y=int(num_x/10) *******found******* result=num_y-(_____(1)_____) ?result *******found******* _____(2)_____ Endif Enddo a. result=num_y-(int(num_y/10)*10) b. exit 6. Set talk off Clear Select 1 Use student exclusive Index on number tag number Select 2 Use score exclusive *******found******* Set relation to ____(1)_____ *******found******* Replace degree with degree+2 for ____(2)____ List number, a->name,degree Set relation to Close all Set talk on a. number into a b. year(date())-year(a->birthday)=18 7. set talk on clear input \ s=1 i=2 do while i *******found******* if ____(1)_____ s=s+i endif i=i+1 enddo *******found******* if ____(2)____ ?M,\是完数\else ?M,\不是完数\endif set talk on a. if m%i=0 b. if s=m 8. SET TALK OFF USE STD8 GO 2 ******found****** ______(1)______ HOW=0 DO WHILE I<=8 IF 性别=\男\ HOW=HOW+1 ENDIF I=I+2 ******found****** ______(2)______ ENDDO ?HOW USE SET TALK ON a. i=2 b. skip 2 9. set talk off clear input \ input \ k=a*b do while k>=a ******found****** if mod(k,a)=0 and ___(1)_____ x=k endif ******found****** ____(2)_____ enddo ?\两数的最小公倍数是:\set talk on a. if mod(k,a)=0 and mod(k,b)=0 b. k=k-1 10. set talk off clear c=\ for i=1 to 3 accept c+\请输入口令：\ psw if psw=\ ?\欢迎使用本系统！\*******found******* ______(1)_______ endif ******found****** ________(2)_______ ?\口令三次错误，无权使用本系统！再见！\ else ?\口令错！再试一次。\ endif endfor set talk on a. exit b. if i>=3 11. SET TALK OFF CLEAR USE 成绩表 ACCEPT\请输入学生的学号：\*******found******* ________(1)________ IF !FOUND() ?\查无此人!\ELSE *******found******* ________(2)________ DO CASE CASE CJ>=90 DC=\优\ CASE CJ>=80 DC=\良\ CASE CJ>=70