¡¶Visual FoxPro¡·×ۺϸ´Ï°×ÊÁÏ(2)

2025-06-29

SET TALK ON RETURN

2¡¢ÓÐÈçϳÌÐò¶Î£¬Æä¹¦ÄÜÊÇÏÔʾºº×Ö¡°2008Äê±±¾©Éê°Â³É¹¦£¡¡±´ÓÆÁÄ»µÄ¶¥²¿ÒÆÖÁµ×²¿£¬ÉèÆÁÄ»¹²24ÐС£ÇëÌî¿Õ²¹³ä¸Ã³ÌÐò¡£ CLEAR

CH=¨”2008Äê±±¾©Éê°Â³É¹¦£¡¨• R=1

DO WHILE __ R<=24__

@___ R ____ , 26 SAY CH T=INKEY(0.2) ___ R=R+1__ ENDDO RETURN

3¡¢±íÎļþ¡°xs.dbf¡±ÖмǼÈçÏ ѧºÅ ÐÕÃû ÐÔ±ð ³É¼¨ S101 Õžü ÄÐ 90 S102 ÁÖÆ½ ÄÐ 66 S103 ÈÎÌÎ ÄÐ 50 S104 ºÎÏþºì Å® 76 S105 Ðì¾² Å® 82 S106 Áõάº£ ÄÐ 86 S107 ÀîÃô Å® 92 S108 Âí»ªÔ¶ ÄÐ 60 S109 ÀîÄÈ Å® 76 S110 ÕÔ·Æ Å® 78 ÔĶÁÏÂÁгÌÐò£º CLEAR USE XS

INDEX ON ¨C³É¼¨ TO CJ1 GO TOP

DISP ÐÕÃû£¬³É¼¨ N=0

LOCATE FOR ÐÔ±ð£½Å® AND ³É¼¨>=80 DO WHILE .NOT. EOF() IF FOUND() N=N+1 CONTINUE ENDIF ENDDO ? N

CLOSE ALL RETURN

£¨1£©³ÌÐòµÚÁùÐС°DISP ÐÕÃû£¬³É¼¨¡±Ö´Ðнá¹ûÏÔʾÊÇ__________

£¨A£© Õžü 90 (B)ÕÔ·Æ 78 (C)ÈÎÌÎ 50 (D)ÀîÃô 92

£¨2£©³ÌÐòÔËÐÐÍê±Ïºó£¬NµÄֵΪ______________

£¨A£© 2 (B)3 (C)4 (D)5 £¨3£©¹ØÓÚÑ­»·ÖеÄCONTINUE£¬Ëµ·¨ÕýÈ·µÄÊÇ_________________ £¨A£© ¿ÉÒÔÓÃSKIPÓï¾ä´úÌæ£¬²»Ó°Ïì³ÌÐòÖ´Ðнá¹û £¨B£© ¿ÉÒԷŵ½Ñ­»·Í⣬²»Ó°Ïì³ÌÐòÖ´Ðнá¹û £¨C£© È¥µôCONTINUE£¬³ÌÐò½«½øÈëËÀÑ­»· £¨D£© È¥µôCONTINUE£¬²»Ó°Ïì³ÌÐòÖ´Ðнá¹û 4¡¢Êý¾Ý¿âÐÅÏ¢.DBC ÖÐÓÐÊý¾Ý¿â±íÖ°¹¤.DBF£¬ÓÃSELECT ÃüÁî²éѯְ¹¤±íÖÐÄêÁ䲻СÓÚ25Ëê¡¢¡°Ö°Îñ¡±×Ö¶ÎΪ¡°ÏúÊÛÔ±¡±µÄÖ°¹¤µÄÐÅÏ¢£¬½á¹û°´¡°²¿Ãźš±×Ö¶ÎÖµ½µÐòÅÅÁУ¬ÇëÌî¿Õ£º

SELECT ²¿Ãźţ¬Ö°¹¤ºÅ£¬ÐÕÃû£¬Ö°Îñ£¬ÄêÁ䣻 FROM ÈËÊ£¡Ö°¹¤

WHERE ÄêÁä>=25 AND Ö°Îñ£½¡°ÏúÊÛÔ±¡± ORDER BY ²¿ÃźŠdesc 5¡¢ÓÐͼÊé±íTS.DBF£¬ÆäÄÚÈÝÈçÏÂ

¼Ç¼ºÅ ÊéÃû ³ö°æµ¥Î» µ¥¼Û 1 VFPÊý¾Ý¿â µç×Ó¿Æ´ó 20.00 2 ¼ÆËã»ú»ù´¡ ËÄ´¨´óѧ 25.00 3 ÐźÅÓëϵͳ µç×Ó¿Æ´ó 28.00 4 ¼ÆËã»úÍøÂç µç×Ó¿Æ´ó 27.00 5 ¼ÆËã»úÔ­Àí ËÄ´¨´óѧ 21.00 6 ÏÖ´úººÓï ËÄ´¨Ê¦´ó 23.00 7 ²Ù×÷ϵͳ Î÷ÄϽ»´ó 24.00 ÔĶÁÏÂÁгÌÐò£º

UPDATE TS SET µ¥¼Û=µ¥¼Û+8 WHERE ³ö°æµ¥Î»=¡¯ËÄ´¨Ê¦´ó¡¯

SELECT ³ö°æµ¥Î»£¬AVG£¨µ¥¼Û£© AS µ¥¼Û FROM TS GROUP BY ³ö°æµ¥Î»£»

INTO DBF ABC

SELECT * FROM ABC WHERE µ¥¼Û<28 ORDER BY µ¥¼Û DESC; INTO DBF ABC1 USE ABC1 ? ³ö°æµ¥Î»

(1) бíABCµÄ¼Ç¼ÊýÓÐ______________¸ö

£¨A)7 (B) 5 (C)4 (D)3 (2) ×îºóÏÔʾµÄ³ö°æµ¥Î»ÊÇ____________

(A)µç×Ó¿Æ´ó (B)ËÄ´¨´óѧ (C)Î÷ÄϽ»´ó (D)ËÄ´¨Ê¦´ó (4)бíABC1µÄ¼Ç¼ÊýÓÐ_____________¸ö

(A)3 (B)4 (C)5 (D)6

Îå¡¢³ÌÐòÉè¼ÆÌâ

1¡¢¼ÙÉèÔ¼¶¨ÄêÁä²»³¬¹ý35ËêµÄÖ°¹¤ÎªÇàÄêÖ°¹¤£»ÄêÁäÔÚ36ËêÖÁ45ËêµÄÖ°¹¤ÎªÖÐÄêÖ°¹¤£»ÄêÁ䳬¹ý45ËêµÄÖ°¹¤ÎªÀÏÄêÖ°¹¤¡£´Ó¼üÅÌÊäÈëÈÎÒ»Ö°¹¤ÐÕÃûÔÚSTUD±íÖвéÕÒ£¬ÏÔʾÆäÐÕÃû¡¢ÄêÁäÒÔ¼°ËùÊôµÄÖ°¹¤ÀàÐÍ¡£

2¡¢±à³ÌÏÔʾSTUD±íÖÐËùÓÐÄÐѧԱµÄÐÕÃû¡¢¹¤Áä¼°¹¤×Ê¡£ 3¡¢´Ó¼üÅÌÊäÈëN¸öÊý´æÈëÊý×éAÖУ¬ÕÒ³öÆäÖеÄ×î´óÊý¡£

4¡¢´ò¿ªSTUD±í£¬·Ö±ðͳ¼ÆËùÓÐÐÕ¡°ÕÅ¡±Ñ§Ô±µÄƽ¾ùÄêÁäºÍËùÓÐÐÕ¡°Íõ¡±Ñ§Ô±µÄƽ¾ùÄêÁä¡£

5¡¢ÓÐÈçÏÂÊÛÊéÊý¾Ý±íBOOK.DBF£¬BOOK.DBFÖеļǼÈçÏ£º ÊéºÅ µ¥¼Û ÊýÁ¿ ×Ü¼Æ B0168 19.8 3 B6915 12.6 36 B9023 40.0 100 B4682 18.0 40 B6329 28.0 56 B8127 2.0 20

ÒªÖðÌõ¼ÆËã×ܼƲ¢ÌîÈë¡°×ܼơ±×Ö¶ÎÖ®ÖУ¬¼ÆËã°´ÕÕÈçϹæÔò£º ÈôÊýÁ¿Ð¡ÓÚµÈÓÚ10£¬×ܼƵÈÓÚ¡°µ¥¼Û*ÊýÁ¿¡± ÈôÊýÁ¿´óÓÚ50£¬×ܼƵÈÓÚ¡°µ¥¼Û*ÊýÁ¿*(1-5/100)¡± ÈôÊýÁ¿ÔÚ11Óë50Ö®¼ä£¬×ܼƵÈÓÚ¡°µ¥¼Û*ÊýÁ¿(1-10/100)¡± 6¡¢´Ó¼üÅÌÊäÈëÈÎÒ»×ÔÈ»ÊýN£¬ÇóСÓÚµÈÓÚNµÄ×ÔÈ»ÊýÖ®ºÍ¡£

7¡¢¸ù¾Ý±íSCORE£¨Ñ§ºÅ£¬¿Î³ÌºÅ£¬³É¼¨£©ÖеÄÊý¾Ý£¬Í³¼ÆÑ¡Ð޿γ̺ŷֱðΪ¡°000002¡±¡¢¡°000005¡±ºÍ¡°000008¡±¿Î³ÌµÄÈËÊýÒÔ¼°ÕâЩ¿Î³ÌµÄƽ¾ù·Ö¡£

8¡¢ÉèÓÐÒ»³É¼¨±íscore.dbf£¬ËüÓÉÒÔÏÂ×Ö¶Î×é³É£ºÐÕÃû£¨C£¬8£©¡¢Æ½Ê±³É¼¨£¨N£¬6.2£©¡¢ÆÚÄ©³É¼¨£¨N£¬6.2£©¡¢×ܳɼ¨£¨N£¬6.2£©¡¢µÈ¼¶£¨C£¬6£©¡£ÆäÖÐǰ3ÏîÒÑÓÐÊý¾Ý£¬ÓÃSCANÑ­»·±àд³ÌÐò¼ÆËã²¢Ìîдÿһ¼Ç¼µÄ¡°×ܳɼ¨¡±ºÍ¡°µÈ¼¶¡±×ֶΣ¬ËûÃǵļÆËã·½·¨·Ö±ðΪ£º

1£©×ܳɼ¨¼ÆËã·½·¨£º×ܳɼ¨=ƽʱ³É¼¨¡Á30%+ÆÚÄ©³É¼¨¡Á70% 2£©µÈ¼¶¼ÆËã·½·¨£º

×ܳɼ¨¡Ý90 ¡°µÈ¼¶¡±Îª¡°ÓÅÐ㡱£» 75¡Ü×ܳɼ¨<90 ¡°µÈ¼¶¡±Îª¡°Á¼ºÃ¡±£» 60¡Ü×ܳɼ¨<75 ¡°µÈ¼¶¡±Îª¡°ºÏ¸ñ¡±£» ×ܳɼ¨<60 ¡°µÈ¼¶¡±Îª¡°²»ºÏ¸ñ¡±¡£

9¡¢´Ó¼üÅÌÊäÈëÈÎһСÓÚ10µÄ×ÔÈ»ÊýN£¬ÇóNµÄ½×³Ë¡£

10¡¢±àд³ÌÐò£¬ÔÚSTUDENTÊý¾Ý¿âµÄSTUD±íÖвéÕÒ²¢ÏÔʾÈÎÒâÒ»¸öѧÉúѧºÅ¡¢ÐԱ𡢰༶Ãû¡¢µØÖ·µÈ»ù±¾Çé¿ö¡£

11¡¢ÔÚSTUDENTÊý¾Ý¿âµÄSTUD±íÖÐÈÎÒâ²éÕÒһͬѧ£¬ÓдËÈ˾ÍÏÔʾ¸ÃÉúµÄÐÕÃû¡¢ÐԱ𡢳öÉúÈÕÆÚµÈÐÅÏ¢£¬ÎÞ´ËÈ˾ÍÏÔʾ¡°²éÎÞ´ËÈË¡±¡£

12¡¢ÖðÌõÏÔʾÔÚSTUDENTÊý¾Ý¿âµÄSTUD±íÖÐÐÔ±ðΪ¡°ÄС±µÄËùÓмǼ¡£

¡¶Visual Foxpro¡·×ۺϸ´Ï°×ÊÁϲο¼´ð°¸

Ò»¡¢µ¥ÏîÑ¡ÔñÌâ

1 - 5¡¢B A B D A 6 -10¡¢D B B B D 11-15¡¢C C C C A 16-20¡¢C D B B A 21-25¡¢D C D A B 26-30¡¢A B C D B 31-35¡¢D B A B C 36-40¡¢B D D A A

¶þ¡¢ÅжÏÌâ

1 - 5¡¢¡Ì¡Ì¡Á¡Á¡Á 6-10¡¢¡Ì¡Á¡Á¡Á¡Ì

Èý¡¢Ìî¿ÕÌâ

1¡¢¹ØÏµÄ£ÐÍ 2¡¢×ֶαäÁ¿ 3¡¢true

4¡¢¡±123456¡± 5¡¢.t.

6¡¢È¥µôÖØ¸´¼Ç¼ 7¡¢6

8¡¢Í¨ÓÃÐÍ 9¡¢¹ØÏµ

10¡¢²éѯÌõ¼þ

11¡¢ÐÔ±ð=¡±Å®¡± and Ãñ×å=¡±»Ø×塱 12¡¢input

13¡¢age is null 14¡¢exit

15¡¢display all 16¡¢distinct 17¡¢having 18¡¢insert

19¡¢where Ö°¹¤.Ö°¹¤ºÅ=¹¤×Ê.Ö°¹¤ºÅ 20¡¢±¸×¢

ËÄ¡¢³ÌÐòÌî¿ÕÌâ

1¡¢use ¹©Ó¦ÉÌ.db¡¢¡±123¡±$µç»°¡¢skip 2¡¢R<=24¡¢R¡¢R=R+1 3¡¢D¡¢A¡¢C

4¡¢FROM¡¢AND¡¢²¿ÃźŠdesc 5¡¢C¡¢B¡¢A

Îå¡¢³ÌÐòÉè¼ÆÌâ

1¡¢¼ÙÉèÔ¼¶¨ÄêÁä²»³¬¹ý35ËêµÄÖ°¹¤ÎªÇàÄêÖ°¹¤£»ÄêÁäÔÚ36ËêÖÁ45ËêµÄÖ°¹¤ÎªÖÐÄêÖ°¹¤£»ÄêÁ䳬¹ý45ËêµÄÖ°¹¤ÎªÀÏÄêÖ°¹¤¡£´Ó¼üÅÌÊäÈëÈÎÒ»Ö°¹¤ÐÕÃûÔÚSTUD±íÖвéÕÒ£¬ÏÔʾÆäÐÕÃû¡¢ÄêÁäÒÔ¼°ËùÊôµÄÖ°¹¤ÀàÐÍ¡£

SET TALK OFF CLEAR USE STUD

ACCEPT 'ÇëÊäÈëËù²éµÄÐÕÃû: ' TO XM LOCATE FOR ÐÕÃû=XM IF .NOT. FOUND()

?¡±²éÎÞ´ËÈË¡± ELSE

NL=YEAR(DATE())-YEAR(³öÉúÈÕÆÚ) DO CASE

CASE NL<=35

?ÐÕÃû,NL,¡±ÇàÄêÖ°¹¤¡± CASE NL>35 .AND. NL<=45 ? ÐÕÃû,NL,¡±ÖÐÄêÖ°¹¤¡± OTHERWISE

? ÐÕÃû,NL,¡±ÀÏÄêÖ°¹¤¡±

ENDCASE

ENDIF USE

SET TALK ON RETURN

2¡¢±à³ÌÏÔʾSTUD±íÖÐËùÓÐÄÐѧԱµÄÐÕÃû¡¢¹¤Áä¼°¹¤×Ê¡£

SET TALK OFF USE STUD SCAN

IF ÐÔ±ð=¡±ÄС±

? ÐÕÃû,YEAR(DATE())-YEAR(¹¤×÷ʱ¼ä),¹¤×Ê ENDIF ENDSCAN USE

SET TALK ON RETURN

3¡¢´Ó¼üÅÌÊäÈëN¸öÊý´æÈëÊý×éAÖУ¬ÕÒ³öÆäÖеÄ×î´óÊý¡£

SET TALK OFF CLEAR

INPUT ¡°N=?¡± TO N DIMENSION A(N) FOR I=1 TO N

INPUT \ÊäÈëÒ»¸öÊý\ TO A(I) ENDFOR

MAX=A(1) &&¸ø´æ·Å×î´óÊýµÄ±äÁ¿MAX¸³³õÖµ


¡¶Visual FoxPro¡·×ۺϸ´Ï°×ÊÁÏ(2).doc ½«±¾ÎĵÄWordÎĵµÏÂÔØµ½µçÄÔ ÏÂÔØÊ§°Ü»òÕßÎĵµ²»ÍêÕû£¬ÇëÁªÏµ¿Í·þÈËÔ±½â¾ö£¡

ÏÂһƪ£ºÃÀÊõÉçÍŻ·½°¸

Ïà¹ØÔĶÁ
±¾ÀàÅÅÐÐ
¡Á ÓοͿì½ÝÏÂÔØÍ¨µÀ£¨ÏÂÔØºó¿ÉÒÔ×ÔÓɸ´ÖƺÍÅŰ棩

ÏÂÔØ±¾ÎĵµÐèÒªÖ§¸¶ 7 Ôª

Ö§¸¶·½Ê½£º

¿ªÍ¨VIP°üÔ»áÔ± ÌØ¼Û£º29Ôª/ÔÂ

×¢£ºÏÂÔØÎĵµÓпÉÄÜ¡°Ö»ÓÐĿ¼»òÕßÄÚÈݲ»È«¡±µÈÇé¿ö£¬ÇëÏÂÔØÖ®Ç°×¢Òâ±æ±ð£¬Èç¹ûÄúÒѸ¶·ÑÇÒÎÞ·¨ÏÂÔØ»òÄÚÈÝÓÐÎÊÌ⣬ÇëÁªÏµÎÒÃÇЭÖúÄã´¦Àí¡£
΢ÐÅ£ºxuecool-com QQ£º370150219