hs=¡¾?¡¿
***********SPACE********** if hb*3+hm*2+¡¾?¡¿=100
? \´óÂíÓУº\ÖÐÂíÓУº\СÂíÓУº\ endif endf endf
set talk on canc hb
100-hb-hm hs/2
*¡¾³ÌÐòÌî¿Õ¡¿
*-------------------------------------------------------
*ÌâÄ¿: ´Ó¶ÁÈëµÄÕûÊýÊý¾ÝÖУ¬Í³¼Æ´óÓÚÁãµÄÕûÊý¸öÊý * ºÍСÓÚÁãµÄÕûÊý¸öÊý¡£ÓÃÊäÈëÁãÀ´½áÊøÊäÈ룬 * ³ÌÐòÖÐÓñäÁ¿iͳ¼Æ´óÓÚÁãµÄÕûÊý¸öÊý£¬Óñä * Á¿jͳ¼ÆÐ¡ÓÚÁãµÄÕûÊý¸öÊý¡£
* ÇëÔÚ¡¾¡¿´¦ÌíÉÏÊʵ±µÄÄÚÈÝ£¬Ê¹³ÌÐòÍêÕû¡£
*-------------------------------------------------------
SET TALK OFF clear
input \ÊäÈëÕûÊý£º\
***********SPACE********** store ¡¾?¡¿ to i,j
***********SPACE********** do while ¡¾?¡¿ if n>0 i=i+1 endif if N<0 j=j+1 endif
input \ÊäÈëÕûÊý£º\
***********SPACE********** ¡¾?¡¿ ? \? \set talk on retu 0
n<>0 enddo
*------------------------------------------------------- *¡¾³ÌÐòÌî¿Õ¡¿
*-------------------------------------------------------
*ÌâÄ¿: ½«×Öĸת»»³ÉÃÜÂ룬ת»»¹æÔòÊǽ«µ±Ç°×Öĸ±ä³ÉÆäºó
* µÄµÚËĸö×Öĸ£¬µ«W±ä³ÉA¡¢X±ä³ÉB¡¢Y±ä³ÉC¡¢Z±ä³ÉD¡£ * Сд×ÖĸµÄת»»¹æÔòͬÑù¡£
* ÇëÔÚ¡¾¡¿´¦ÌíÉÏÊʵ±µÄÄÚÈÝ£¬Ê¹³ÌÐòÍêÕû¡£
*-------------------------------------------------------
SET TALK OFF clear
accept \ÇëÊäÈëÒ»¸ö×Ö·û´®£º\? pp p=\
***********SPACE********** for i=1 to ¡¾?¡¿ m=asc(subs(pp,i,1))
***********SPACE**********
if m<=ASC(\¡¾?¡¿ m>=asc(\ do case
case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ case m=asc(\ m=asc(\ otherwise
***********SPACE********** ¡¾?¡¿ endcase
p=p+chr(m) endif endfor ? p
set talk on canc len(pp) or
m=m+4
*------------------------------------------------------- *¡¾³ÌÐòÌî¿Õ¡¿
*-------------------------------------------------------
*ÌâÄ¿: ÒÑÖªX¡¢Y¡¢Z·Ö±ð±íʾ0~9Öв»Í¬µÄÊý×Ö£¬±à³ÌÇó³öʹËãʽ
* XXXX+YYYY+ZZZZ=YXXXZ³ÉÁ¢Ê±X¡¢Y¡¢ZµÄÖµ£¬²¢ÒªÇó´òÓ¡¸Ã * Ëãʽ¡£
* ÇëÔÚ¡¾¡¿´¦ÌíÉÏÊʵ±µÄÄÚÈÝ£¬Ê¹³ÌÐòÍêÕû¡£
*-------------------------------------------------------
SET TALK OFF for x=0 to 9 for y=0 to 9
***********SPACE********** if ¡¾?¡¿ for z=0 to 9
if z!=x and z!=y
***********SPACE********** if 1111*(x+y+z)=10000*y+ ¡¾?¡¿ ? \
? 1111*x,'+',1111*y,'+',1111*z,'=',10000*y+1110*x+z endif endif
***********SPACE********** ¡¾?¡¿ endi endf endf
set talk on cancel y!=x
1110*x+z endfor
¡¾³ÌÐò¸Ä´í¡¿
*-------------------------------------------------------
*ÌâÄ¿£ºÔÚѧÉúÐÅÏ¢.DBFÖÐ,ʹÓÃSELECTÓï¾ä²éѯËùÓÐÅ®ÉúÖÐÈëѧ³É¼¨ *×î¸ßµÄÈýÃûͬѧµÄËùÓÐ×Ö¶ÎÐÅÏ¢.
*ѧÉúÐÅÏ¢.DBF(ѧºÅ,ÐÕÃû,ÐÔ±ð,°à¼¶ºÅ,³öÉúÈÕÆÚ,Èëѧ³É¼¨??£©
*-------------------------------------------------------
*×¢Ò⣺²»¿ÉÒÔÔö¼Ó»òɾ³ý³ÌÐòÐУ¬Ò²²»¿ÉÒÔ¸ü¸Ä³ÌÐòµÄ½á¹¹¡£ *-------------------------------------------------------
CLEAR
***********FOUND********** SELECT TOP 3 FROM ѧÉúÐÅÏ¢ ; ***********FOUND**********
WHERE ÐÔ±ð=Å® ORDER BY Èëѧ³É¼¨ Sele * top 3 from ѧÉúÐÅÏ¢;
Where ÐÔ±ð=¡°Å®¡± ORDER BY Èëѧ³É¼¨
*------------------------------------------------------- *¡¾³ÌÐò¸Ä´í¡¿
*-------------------------------------------------------
*ÌâÄ¿£ºÔÚѧÉúÐÅÏ¢.DBFºÍ°à¼¶±í.DBFÖÐ,ʹÓÃSELECTÓï¾äͳ¼Æ¸÷°à¼¶ *ÈËÊý,ÒªÇóÊä³ö°à¼¶ºÅ,°à¼¶Ãû³Æ,ÈËÊýµÈÐÅÏ¢.
*ѧÉúÐÅÏ¢.DBF(ѧºÅ,ÐÕÃû,ÐÔ±ð,°à¼¶ºÅ,³öÉúÈÕÆÚ,Èëѧ³É¼¨??£© *°à¼¶±í.DBF(°à¼¶ºÅ,°à¼¶Ãû³Æ,ËùÊôԺϵ)
*-------------------------------------------------------
*×¢Ò⣺²»¿ÉÒÔÔö¼Ó»òɾ³ý³ÌÐòÐУ¬Ò²²»¿ÉÒÔ¸ü¸Ä³ÌÐòµÄ½á¹¹¡£ *-------------------------------------------------------
***********FOUND**********
SELE °à¼¶ºÅ,°à¼¶Ãû³Æ,SUM(*) AS ÈËÊý FROM ѧÉúÐÅÏ¢,°à¼¶±í; ***********FOUND**********
WHERE ѧÉúÐÅÏ¢.ѧºÅ=°à¼¶±í.°à¼¶ºÅ ORDER BY °à¼¶ºÅ
SELE °à¼¶ºÅ, °à¼¶Ãû³Æ, count(*) as ÈËÊý from ѧÉúÐÅÏ¢ £¬°à¼¶±í£» Where ѧÉúÐÅÏ¢.°à¼¶ºÅ =°à¼¶±í.°à¼¶ºÅ group by °à¼¶ºÅ
¡¾³ÌÐò¸Ä´í¡¿
*-------------------------------------------------------
*ÌâÄ¿£ºÍ¨¹ý×Ö·û´®±äÁ¿²Ù×÷ÏÈÊúÏòÏÔʾ\ΰ´ó׿¹ú\£¬ÔÙºáÏòÏÔʾ