首頁 考試吧論壇 Exam8視線 考試商城 網(wǎng)絡(luò)課程 模擬考試 考友錄 實(shí)用文檔 求職招聘 論文下載
2011中考 | 2011高考 | 2012考研 | 考研培訓(xùn) | 在職研 | 自學(xué)考試 | 成人高考 | 法律碩士 | MBA考試
MPA考試 | 中科院
四六級 | 職稱英語 | 商務(wù)英語 | 公共英語 | 托福 | 雅思 | 專四專八 | 口譯筆譯 | 博思 | GRE GMAT
新概念英語 | 成人英語三級 | 申碩英語 | 攻碩英語 | 職稱日語 | 日語學(xué)習(xí) | 法語 | 德語 | 韓語
計(jì)算機(jī)等級考試 | 軟件水平考試 | 職稱計(jì)算機(jī) | 微軟認(rèn)證 | 思科認(rèn)證 | Oracle認(rèn)證 | Linux認(rèn)證
華為認(rèn)證 | Java認(rèn)證
公務(wù)員 | 報(bào)關(guān)員 | 銀行從業(yè)資格 | 證券從業(yè)資格 | 期貨從業(yè)資格 | 司法考試 | 法律顧問 | 導(dǎo)游資格
報(bào)檢員 | 教師資格 | 社會工作者 | 外銷員 | 國際商務(wù)師 | 跟單員 | 單證員 | 物流師 | 價格鑒證師
人力資源 | 管理咨詢師考試 | 秘書資格 | 心理咨詢師考試 | 出版專業(yè)資格 | 廣告師職業(yè)水平
駕駛員 | 網(wǎng)絡(luò)編輯
衛(wèi)生資格 | 執(zhí)業(yè)醫(yī)師 | 執(zhí)業(yè)藥師 | 執(zhí)業(yè)護(hù)士
會計(jì)從業(yè)資格考試會計(jì)證) | 經(jīng)濟(jì)師 | 會計(jì)職稱 | 注冊會計(jì)師 | 審計(jì)師 | 注冊稅務(wù)師
注冊資產(chǎn)評估師 | 高級會計(jì)師 | ACCA | 統(tǒng)計(jì)師 | 精算師 | 理財(cái)規(guī)劃師 | 國際內(nèi)審師
一級建造師 | 二級建造師 | 造價工程師 | 造價員 | 咨詢工程師 | 監(jiān)理工程師 | 安全工程師
質(zhì)量工程師 | 物業(yè)管理師 | 招標(biāo)師 | 結(jié)構(gòu)工程師 | 建筑師 | 房地產(chǎn)估價師 | 土地估價師 | 巖土師
設(shè)備監(jiān)理師 | 房地產(chǎn)經(jīng)紀(jì)人 | 投資項(xiàng)目管理師 | 土地登記代理人 | 環(huán)境影響評價師 | 環(huán)保工程師
城市規(guī)劃師 | 公路監(jiān)理師 | 公路造價師 | 安全評價師 | 電氣工程師 | 注冊測繪師 | 注冊計(jì)量師
繽紛校園 | 實(shí)用文檔 | 英語學(xué)習(xí) | 作文大全 | 求職招聘 | 論文下載 | 訪談 | 游戲
您現(xiàn)在的位置: 考試吧(Exam8.com) > 計(jì)算機(jī)等級考試 > 計(jì)算機(jī)二級 > VF > 模擬試題 > 正文

計(jì)算機(jī)等級考試二級VFP習(xí)題及答案:第七章

考試吧提供了“計(jì)算機(jī)等級考試二級VFP教材部分習(xí)題及答案”,幫助考生查漏補(bǔ)缺。更多資料請?jiān)L問考試吧計(jì)算機(jī)等級考試網(wǎng)(1glr.cn/computer/djks/)

  5、求2~1000之間完數(shù)的個數(shù)。

  (完數(shù):一個數(shù)如果恰好等于它的因子之和,因子不包括本身且不能重復(fù)。如:6=1+2+3,8<>1+2+4,所以6是完數(shù),8不是完數(shù))

  程序代碼:

  SET TALK OFF

  CLEAR

  SN=0

  ?"2~1000之間的完數(shù)為:"

  FOR N=2 TO 1000

  M=N

  I=1

  S=0

  DO WHILE I

  IF INT(M/I)=M/I

  S=S+I

  ENDIF

  I=I+1

  ENDDO

  IF N=S

  SN=SN+1

  ??N

  ENDIF

  ENDFOR

  ?" 完數(shù)的個數(shù)為:",SN

  SET TALK ON

  6、本程序首先對矩陣按行讀入數(shù)據(jù),并將它轉(zhuǎn)置。

  程序代碼:

  SET TALK OFF

  INPUT 'N=' TO N

  DIME A(N,N)

  FOR I=1 TO N

  FOR J=1 TO N

  INPUT 'A('+STR(I,1)+','+STR(J,1)+')=' TO AI,J)

  ENDFOR

  ENDFOR

  FOR I=1 TO N

  FOR J=1 TO I

  T=A(I,J)

  A(I,J)=A(J,I)

  A(J,I)=T

  ENDFOR

  ENDFOR

  SET TALK ON

上一頁  1 2 3 4 5 6 7 8 9 10 11 下一頁
  相關(guān)推薦:2010年9月計(jì)算機(jī)等級考試精華備考資料匯總
       2010年計(jì)算機(jī)等級考試二級公共基礎(chǔ)知識教程
       考試吧:2010年計(jì)算機(jī)等考二級VB預(yù)測題匯總
       2010年全國計(jì)算機(jī)等級考試全攻略(一至四級)
文章責(zé)編:licong108  
看了本文的網(wǎng)友還看了
文章搜索
版權(quán)聲明:如果計(jì)算機(jī)等級考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益,請與我們聯(lián)系800@exam8.com,我們將會及時處理。如轉(zhuǎn)載本計(jì)算機(jī)等級考試網(wǎng)內(nèi)容,請注明出處。