帮忙回答几个VF程序题
vf \u7a0b\u5e8f\u9898 \u6c42\u89e3\u7b54 \u7a0b\u5e8f\u5982\u4e0b\uff1a\u53d8\u91cf\u4e0a\u5e26\u62ec\u53f7\u662f\u503c\u4f20\u9012\uff08\u5355\u5411\u4f20\u9012\uff09\uff0c\u53d8\u91cf\u4e0d\u5e26\u62ec\u53f7\u662f\u5730\u5740\u4f20\u9012\uff08\u53cc\u5411\u4f20\u9012\uff09
CLOSE ALL
CLEAR ALL
CLEAR
cGetLenth_a = ""
nMaxLenth_n = 09 &&& n \u7684\u6700\u5927\u6570\u3002
*** \u56e0 VFP \u6570\u5b57\u53d6\u503c\u8303\u56f4\u4e3a\uff1a-2 147 483 647 \u5230 2 147 483 646\uff0c\u5373\uff1a
*** \u6b63\u6574\u6570\u6700\u5927\u53ea\u80fd\u662f\u5341\u4e2a\u4f4d\uff0c\u4e14\u82e5\u5341\u4e2a\u4f4d\u65f6\uff0c\u7b2c\u4e00\u4e2a\u4f4d\u7684\u6570\u5b57\u6700\u5927\u53ea\u80fd\u662f\uff1a2\u3002
*** \u8fd8\u52a0\u4e0a\u8981\u7d2f\u52a0\u8ba1\u7b97\uff0c\u6240\u4ee5\u6b64\u6700\u5927\u503c\u53ea\u80fd\u53d6\u4e5d\u4e2a\u4f4d\uff01
cMaxLenth_n = ALLTRIM(STR(nMaxLenth_n))
DO WHILE .T.
INPUT "\u8bf7\u8f93\u5165a\uff1a" TO nGetLenth_a
IF TYPE("nGetLenth_a") = "N"
IF BETWEEN(nGetLenth_a, 1, 9)
cGetLenth_a = ALLTRIM(STR(nGetLenth_a))
EXIT
ELSE
MESSAGEBOX("\u6570\u5b57\u5df2\u9650\u5b9a\u5728 1-9 \u4e4b\u95f4\uff01", 0 + 64, "")
ENDIF
ELSE
MESSAGEBOX("\u8f93\u5165\u7684\u5b57\u7b26\u4e0d\u662f\u6570\u5b57\u578b\u7684\u5b57\u7b26\uff01", 0 + 16, "Warning")
ENDIF
ENDDO
DO WHILE .T.
INPUT "\u8bf7\u8f93\u5165n\uff1a" TO nGetLenth_n
IF TYPE("nGetLenth_n") = "N"
cGetLenth_n = ALLTRIM(STR(nGetLenth_n))
IF nGetLenth_n >= 1 AND nGetLenth_n <= nMaxLenth_n
EXIT
ELSE
MESSAGEBOX("\u6570\u5b57\u5df2\u9650\u5b9a\u5728 1-&cMaxLenth_n. \u4e4b\u95f4\uff01", 0 + 64, "")
ENDIF
ELSE
MESSAGEBOX("\u8f93\u5165\u7684\u5b57\u7b26\u4e0d\u662f\u6570\u5b57\u578b\u7684\u5b57\u7b26\uff01", 0 + 16, "Warning")
ENDIF
ENDDO
cShowStr = ""
nTotal = nGetLenth_a
cShowStr = cShowStr + "S(&cGetLenth_n.) = &cGetLenth_a."
FOR nLoop_02 = 2 TO nGetLenth_n
cShowStr = cShowStr + " + " + REPLICATE(cGetLenth_a, nLoop_02)
nTotal = nTotal + VAL(REPLICATE(cGetLenth_a, nLoop_02))
NEXT
cShowStr = cShowStr + "\uff08\u5176\u4e2d\u6709 &cGetLenth_n. \u4e2a &cGetLenth_a.\uff09"
?
?cShowStr
??" = " + ALLTRIM(STR(nTotal))
?
RETURN
*** \u8fd9\u53ef\u80fd\u662f\u4eca\u5e74\u7684\u6700\u540e\u4e00\u8d34\u4e86\uff0c\u6ca1\u65f6\u95f4\u5f04\uff01
*** \u795d\u8fd9\u4f4d\u53ef\u7231\u7684\u7f51\u53cb\u4f60\u65b0\u5e74\u5feb\u4e50\uff01
绛旓細3銆佸湪绋嬪簭璁捐涓粡甯镐娇鐢ㄥ摢浜涜緭鍏 / 杈撳嚭鍛戒护 ? 璇曟瘮杈冨叾寮傚悓鐐 銆俰nput 杈撳叆鍛戒护鍜 print 杈撳嚭鍛戒护鎴栵紵杈撳嚭鍛戒护 浠栦滑涓涓富瑕佽礋璐ｆ暟鎹殑閲囬泦锛屽彟涓涓礋璐ｇ粨鏋滅殑鏄剧ず鎴栨墦鍗 4銆佸啓鍑虹紪鍒剁▼搴忔枃浠跺拰杩愯绋嬪簭鏂囦欢鐨勫懡浠ゃ俶odi comm aa.prg 缂栧埗绋嬪簭鍛戒护 do aa.prg 涓夈侀夋嫨棰 1銆佷笅闈㈠叧浜庢暟鎹簱绯荤粺鐨...
绛旓細1. 鏁版嵁搴撴枃浠剁殑鎵╁睍鍚嶆槸 B A銆丏BF B銆丏BC C銆 DBT D銆丗PT 2.涓涓叧绯绘槸涓寮犱簩缁磋〃銆傚湪Foxpro涓紝涓涓叧绯诲搴斾竴涓 A A銆佸瓧娈 B銆佽褰 C銆佹暟鎹簱鏂囦欢 D銆佺储寮曟枃浠 3. 褰撳墠鎵撳紑鐨勬暟鎹簱鏂囦欢缁撴瀯涓猴細鍟嗗搧鍚嶏紙C锛5锛夛紝鍗曚环锛圢锛6锛2锛夛紝搴撲腑鍏辨湁100鏉¤褰曪紝璇ユ暟鎹簱鏂囦欢涓瘡鏉¤褰曞崰鐢ㄧ殑...
绛旓細绗3棰锛歴et talk off s2=100 j=1 for i=1 to 100 h=(3/4)^i*100 s2=s2+2*h j=j+1 if s2>678 exit endif endfor ? "绗",j,"娆"set talk on 绗4棰橈細set talk off n=0 for x=10 to 100 if mod(x,7)=0 and mod (x,9)=0 绗竴涓敊璇 and 鍥犺鏄 or n=n+x...
绛旓細璐㈠ぇvf绠绛旈 鎴戞潵绛 2涓鍥炵瓟 #鐑# 宸插濂虫у氨搴旇鎵挎媴瀹堕噷澶ч儴鍒嗗鍔″悧?甯呮皵鐨勭ぞ闀 2011-07-07 鐭ラ亾绛斾富 鍥炵瓟閲:1 閲囩撼鐜:0% 甯姪...涓夎呭畾涔夌殑鏍煎紡鍚勬湁涓嶅悓,瀛绋嬪簭鍜岃繃绋嬪潎閫氳繃DO鍛戒护璋冪敤,鑰岃嚜瀹氫箟鍑芥暟鍒欎富瑕佸湪琛ㄨ揪寮忎腑璋冪敤銆9. 绋嬪簭璋冭瘯鐨勭洰鐨勬槸浠涔?绋嬪簭涓父瑙佺殑閿欒鏈夊摢鍑犵?绛旈瑕佺偣...
绛旓細D.鏌ヨ鍦ㄦ枃妗ｏ紝瑙嗗浘鍦ㄦ暟鎹 鍦VF涓紝鐢ㄤ簬杩愯鍛戒护绋嬪簭鐨勫懡浠ゆ槸锛 B 锛堿.RUN B.DO C.USE D.CLOSE 鍦╒F涓紝鐢ㄤ簬寤虹珛鍜屼慨鏀瑰懡浠ゆ枃浠剁殑鍛戒护鏄紙 B 锛堿.MODIFY STRUCTURE B.MODIFY COMMAND C.MODIFY PROCEDURE D.涓婇潰B鍜孋閮藉 VF鍙傜収瀹屾暣鎬ц鍒欎笉鍖呮嫭 (B )A.鏇存柊瑙勫垯 B.鏌ヨ瑙勫垯 C.鍒犻櫎瑙勫垯 D...
绛旓細锛6锛夌粺璁″鐢熻〃涓叡鏈澶氬皯涓瀛︾敓 select count(*) as 鎬讳汉鏁 from 瀛︾敓琛 锛7锛夋绱㈠嚭鏈灏忓勾榫 select min(骞撮緞) as 鏈灏忓勾榫 from 瀛︾敓琛 锛8锛夋绱㈢粡绠′簩绯荤殑瀛︾敓璁板綍 select * from 瀛︾敓琛 where 闄㈢郴="缁忕浜岀郴"锛9锛夋绱㈢帇娑涘拰鏉庨鐨勮褰 select * ...
绛旓細涓銆侀夋嫨棰 1锛庝笅鍒楀睘浜庡唴瀛樺彉閲忔枃浠剁殑鎵╁睍鍚嶆槸锛欴锛.MEM 2锛庝竴涓暟鎹〃涓湁2涓娉ㄥ瀷瀛楁锛岃繖浜涘瓧娈电殑鍐呭瀛樻斁鍦細B锛夊悓涓涓.FPT鏂囦欢涓 3锛庢暟鎹〃鏂囦欢涓殑瀛楁鏄竴绉嶏細B锛夊彉閲 4锛庡湪鏁版嵁琛ㄤ腑锛岄昏緫鍨嬨佹棩鏈熷瀷鍜屽娉ㄥ瀷瀛楁鐨勫搴﹀垎鍒绯荤粺瀹氫箟涓猴細C锛1锛8锛屼换鎰 5锛庝竴涓暟鎹〃鏂囦欢鐨勬暟鍊煎瀷...
绛旓細鍥涳紟鎿嶄綔棰 鍓3閬撻瑕佸湪浣犺嚜宸辩殑鐢佃剳涓婃墠鑳藉畬鎴愩4锛庢煡璇㈠鐢熺殑鎴愮哗缁撴灉涓寘鍚鍚嶃佹垚缁┿佸鍙枫佽绋嬪彿瀛楁锛屽懡鍚嶄负锛歝x銆绋嬪簭璁捐 1锛庣紪鍒朵竴娈电▼搴忚绠桽=1+2+3+4+5+鈥︹+N 鍏朵腑N涓鸿緭鍏ョ殑鍊 clear s=0 input "璇疯緭鍏鐨勫硷細" to n for i=1 to n s=s+i endfor ?"S=1+2+3+4...
绛旓細"鏂囦欢"38銆佺粺璁″コ鐢熶汉鏁板苟灏嗙粨鏋滃瓨鏀句簬鍙橀噺X涓殑鍛戒护鏄紙A锛夛紙A锛 COUNT FOR .NOT. 鎬у埆=鈥濈敺鈥 TO X 锛圔锛 COUNT FOR ( 鎬у埆=鈥濆コ鈥)=.T. TO X 锛圕锛 SUM FOR ( 鎬у埆<>鈥濈敺鈥)=.T. TO X 锛圖锛 SUM FOR 鎬у埆=鈥濆コ鈥 TO X 鎴戜笉澶細锛岄敊浜嗕笉璐熻矗锛屾垜灏卞彧绛旇繖涔堝浜 ...
绛旓細绗竴棰锛氱敤浜岀淮琛ㄦ潵琛ㄧず瀹炰綋涓庡疄浣撲箣闂磋仈绯荤殑鏁版嵁妯″瀷绉颁负( )銆傞夛紙B)鍏崇郴妯″瀷 绗簩棰橈細鍦ㄦ暀瀛︾鐞嗕腑锛屼竴鍚嶅鐢熷彲浠ラ夋嫨澶氶棬璇剧▼锛屼竴闂ㄨ绋嬪彲浠ヨ澶氬悕瀛︾敓閫夋嫨锛岃繖璇存槑瀛︾敓璁板綍鍨嬩笌璇剧▼璁板綍鍨嬩箣闂寸殑鑱旂郴鏄( )銆傞 (C)澶氬澶 绗笁棰橈細鏌愪釜.DBF鏂囦欢鐨勪竴涓暟鍊煎瓧娈佃姹4浣嶆暣鏁帮紝2浣嶅皬鏁帮紝鍒欏叾瀹藉害...
