2023年計算機等級考試二級VisualFoxPro上機試題及解題思路匯總120

計算機等級考試二級VisｕalFoxＰｒo上機試題及解題思緒匯總1-2０一、基本操作題(共４小題，第1和２題是7分、第３和4題是8分)?注意：基本操作題為4道SQL題,請將每道題的ＳQL命令粘貼到SQL1.txt文獻,

每條命令占一行,第1道題的命令是第1行,第2道題的命令是第2行，以此類推;

假如某道題沒有做相應(yīng)行為空。

在考生文獻夾下完畢下列操作:?1.運用SQLＳELECT命令將表ｓｔoｃk_sｌ.ｄｂf復(fù)制到sｔｏck_bk.dbf;?2.運用SQＬＩＮＳＥＲT命令插入記錄("600028"，4.3６,4.6０,５500)到stoｃk_bｋ.dbf表。?３.運用SＱＬＵＰＤＡTE命令將stｏck＿bk．dbf表中"股票代碼"為６000０7的股票"現(xiàn)價"改為8.88。?４.運用SQLDELEＴE命令刪除ｓｔock＿bk.dbｆ表中"股票代碼"為６000０0的股票。?本題的重要考核點:

SQL語句的使用。?1、ＳＥLＥ*FROMstｏｃｋ＿slＩNTＯＤBFstｏｃk_bｋ

２、INSEINTOｓtocｋ_bk(股票代碼，買入價,現(xiàn)價,持有數(shù)量）VAＬＵ("６000２８"，4．36,4.6０,５５00)

３、UPDAsｔｏck_bkSET現(xiàn)價=8.８8ＷHEＲ股票代碼="6０００07＂?4、DELEFROMstoｃk_ｂｋWHEＲ股票代碼="600000"

二、簡樸應(yīng)用(２小題,每題20分,計40分)

１、在考生文獻夾下建立數(shù)據(jù)庫sc2,將考生文獻夾下的自由表scoｒｅ2添加進sｃ2中。根據(jù)scｏre2表建立一個視圖ｓcorｅ＿view，視圖中包含的字段與ｓcoｒｅ2表相同，但視圖中只能查詢到積分小于等于1500的信息。然后運用新建立的視圖查詢視圖中的所有信息，并將結(jié)果按積分升序存入表v2。

2、建立一個菜單fｉleｍeｎu，涉及兩個菜單項"文獻"和"幫助","文獻＂將激活子菜單，該子菜單涉及"打開"、＂存為＂和"關(guān)閉"三個菜單項;"關(guān)閉"子菜單項用SETSYSMENＵＴO(shè)DＥＦＡＵLT命令返回到系統(tǒng)菜單，其他菜單項的功能不做規(guī)定。?第1題,本題的重要考核點是視圖的建立。?在＂項目管理器"中選擇一個數(shù)據(jù)庫,選擇"本地視圖＂，然后選擇"新建"按鈕,打開"視圖設(shè)計器"。選擇所有字段,在"篩選"欄內(nèi)輸入條件"積分＜＝1500"，關(guān)閉并保存。在數(shù)據(jù)庫設(shè)計器中打開視圖，用soｒtoｎ積分tov2命令存入新表。

第2題，本題的重要考核點是菜單的建立。新建菜單可按下列環(huán)節(jié)：選擇"文獻"菜單中的"新建"命令,在"新建＂對話框中選擇"菜單"，單擊"新建文獻"按鈕。在"新建菜單"對話框中選擇＂菜單＂按鈕，調(diào)出"菜單設(shè)計器"。也可用CＲＥAＴEMENU命令直接調(diào)出菜單設(shè)計器。在菜單名稱中填入"文獻"、"幫助"，"文獻"結(jié)果為子菜單,單擊編輯;在子菜單的菜單名稱中輸入＂打開"、"存為＂、"關(guān)閉＂,＂關(guān)閉"結(jié)果為命令＂SETSYSＭENUTＯＤEFAULT"。?三、綜合應(yīng)用(1小題,計３0分)?在考生文獻夾下有學(xué)生成績數(shù)據(jù)庫XUEＳHENG3,涉及如下所示三個表文獻以及相關(guān)的索引文獻:?1、XS.ＤＢF(學(xué)生文獻:學(xué)號C8，姓名C８，性別C2,班級C5;另有索引文獻XS．IDＸ,索引鍵：學(xué)號)?2、CJ．DBＦ(成績文獻：學(xué)號C8，課程名Ｃ２０,成績N5.1;另有索引文獻CＪ.IDX,索引鍵：學(xué)號）

3、ＣＪB.ＤＢF(成績表文獻:學(xué)號C8，姓名C8，班級Ｃ5,課程名C１2，成績Ｎ5.1)?設(shè)計一個名為ＸS３的菜單，菜單中有兩個菜單項"計算"和＂退出"。程序運營時，單擊"計算"菜單項應(yīng)完畢下列操作：將所有選修了"計算機基礎(chǔ)"的學(xué)生的"計算機基礎(chǔ)"成績，按成績由高到低的順序填列到成績表文獻ＣＪＢ.DBＦ中(事前須將文獻中原有數(shù)據(jù)清空)。單擊"退出"菜單項,程序終止運營。

（注:相關(guān)數(shù)據(jù)表文獻存在于考生文獻夾下）?本題的重要考核點:?結(jié)構(gòu)化查詢語言(SQL)中的聯(lián)接查詢、查詢的排序、查詢的去向等知識?解題思緒：?在本題中要想得到所有選修了＂計算機基礎(chǔ)"的學(xué)生的＂計算機基礎(chǔ)"成績及學(xué)生的姓名等信息,就需要用到聯(lián)接查詢。由于學(xué)生的姓名、班級在表ＸS.DBF中，而學(xué)生的成績在表CJ.DBＦ中。而這兩個表要聯(lián)接起來可以通過"學(xué)號＂字段。?有以下兩種聯(lián)接查詢的形式:SＥLＥＣＴXS.學(xué)號,姓名，班級,課程名,成績FROMXS,CJＷHEREXS.學(xué)號=CJ.學(xué)號AND課程名=＂計算機基礎(chǔ)＂或者SELECTＸS.學(xué)號,姓名，班級，課程名，成績FＲOMＸSLEFTＪIＯNＣJONXＳ.學(xué)號＝CＪ.學(xué)號ＷHEＲE課程名＝"計算機基礎(chǔ)"

通過以上的聯(lián)接查詢便得到了所有選修＂計算機基礎(chǔ)"的學(xué)生的"計算機基礎(chǔ)"的成績及學(xué)生的姓名等信息。而題中所規(guī)定按成績的降序排序，所以應(yīng)當在以上ＳQＬ語句的基礎(chǔ)上加入：ORDＥRBY成績DESC

將查詢所得到的結(jié)果放于一個數(shù)組變量ＡFieldsＶaｌue中,要用到INTOARＲAYAFｉeldｓＶａlｕe.至此一個完整的SQL聯(lián)接查詢語句便形成了:ＳELECTXS．學(xué)號,姓名,班級,課程名,成績FROMＸS，ＣJWHＥREXS．學(xué)號=CJ.學(xué)號AND課程名="計算機基礎(chǔ)"ORＤEＲBY成績DＥSＣＩNＴO(shè)ＡＲRAYAＦieｌdsValue

清空CＪＢ.DBF

將tableName中的資料添加到已被清空的CJB.DBF中INSＥRＴINＴO(shè)ＣJBFROMARRAYAfielｄsVａlue一、基本操作題(共４小題,第1和2題是7分、第3和4題是8分)

在考生文獻夾下完畢下列操作（在＂成績管理"數(shù)據(jù)庫中完畢)：

1.為"學(xué)生"表在"學(xué)號＂字段上建立升序主索引,索引名為學(xué)號;

2.為"學(xué)生"表的"性別"字段定義有效性規(guī)則,規(guī)則表達式為性別$"男女"犯錯提醒信息是：＂性別必須是男或女"。?3.在"學(xué)生"表的"性別"和"年齡＂字段之間插入一個"出生日期"字段，數(shù)據(jù)類型為"日期型"(修改表結(jié)構(gòu)）;

4.用SQＬ的UＰDATＥ命令將學(xué)生"王三風(fēng)"的出生日期修改為198３年5月1日，并將該

語句粘貼在SQL2.TXＴ文獻中(第一行、只占一行)

本題的重要考核點：?主索引的建立、字段有效規(guī)則的建立，表結(jié)構(gòu)的更改，SQL語言的使用。?解題思緒:?１.在表設(shè)計器中的索引頁面建立索引。

2、建立有效性規(guī)則在表設(shè)計器中的字段選項卡。在"規(guī)則"欄中輸入"性別＄"男女"","提醒信息＂欄輸入"性別必須是男或女＂（不要雙引號）。?4．SQL語句的用法?UPＤA學(xué)生SET出生日期=｛＾1983／05/０1｝WHER姓名＝"王三風(fēng)"?二、簡樸應(yīng)用(2小題，每題２0分,計４0分）?１、根據(jù)考生文獻夾下的txl表和ｊsh表建立一個查詢queｒｙ2，查詢出單位是"南京大學(xué)"的所有教師的姓名、職稱、電話，規(guī)定查詢?nèi)ハ蚴潜恚砻莙ｕery2.dbf,并執(zhí)行該查詢。

２、建立表單ｅntｅrf，表單中有兩個命令按鈕，按鈕的名稱分別為cmdin和

cmdｏut,標題分別為＂進入"和"退出"。?第1題,本題的重要考核點是建立查詢。?建立查詢可以使用“文獻”菜單完畢，選擇文獻--新建--查詢-－新建文獻,將ｔxl和ｊｓh添加入查詢中，從字段中選擇姓名、職稱和電話字段，單擊查詢菜單下的查詢?nèi)ハ?，選擇表,輸入表名qｕery2．ＤＢF。最后運營該查詢。

第2題,本題的重要考核點是表單的建立。

可以用三種方法調(diào)用表單設(shè)計器：在項目管理器環(huán)境下調(diào)用；單擊“文獻”菜單中的“新建”，打開“新建”對話框，選擇“表單”;在命令窗口輸入CREＡTＥFOＲＭ命令。?打開表單設(shè)計器后,在表單控件工具欄上單擊“命令按鈕”,在表單上放置兩個按鈕。分別修改其屬性Ｎaｍe為cｍｄin和cｍdout，Cａption屬性為“進入”和“退出”。

三、綜合應(yīng)用（1小題,計３０分）

在考生文獻夾下有倉庫數(shù)據(jù)庫CK3,涉及如下所示兩個表文獻：?CK(倉庫號C（４)，城市C(8）,面積N(4))

ＺG(倉庫號C(4),職工號Ｃ（4),工資Ｎ(4))?設(shè)計一個名為ZG3的菜單,菜單中有兩個菜單項"記錄"和＂退出＂。程序運營時,單擊"記錄"菜單項應(yīng)完畢下列操作：檢索出所有職工的工資都大于1220元的職工所管理的倉庫信息，將結(jié)果保存在wｈ１數(shù)據(jù)表（WH1為自由表)文獻中，該文獻的結(jié)構(gòu)和CK數(shù)據(jù)表文獻的結(jié)構(gòu)一致,并按面積升序排序。單擊"退出"菜單項，程序終止運營。(注:相關(guān)數(shù)據(jù)表文獻存在于考生文獻夾下)本題重要考核點：?菜單的建立、結(jié)構(gòu)化查詢語言(SQL)中的嵌套查詢、查詢結(jié)果的去向等知識。?解題思緒：?運用菜單設(shè)計器定義兩個菜單項，在菜單名稱為＂記錄"的菜單項的結(jié)果列中選擇"過程"，并通過單擊＂編輯"按鈕打開一個窗中來添加"記錄"菜單項要執(zhí)行的命令。在菜單名稱為＂退出"的菜單項的結(jié)果列中選擇"命令＂,并在后面的＂選項"列中輸入以下退出菜單的命令:SETＳYSMENUTＯＤEFＡUＬＴ?"記錄"菜單項要執(zhí)行的程序:

一方面中打開數(shù)據(jù)庫文獻OＰＥNDATＡBASＥＣK3．DBC?下面我們分析所要用到的查詢語句的實現(xiàn),題面規(guī)定"檢索出所有職工的工資都大于1２２０的職工所管理的倉庫信息",所以得到滿足以上條件的倉庫號成為解答本題的關(guān)鍵。＂所有職工的工資都大于１2２0的職工所管理的倉庫＂這個條件可以將其分解為同時滿足以下兩個條件的結(jié)果＂倉庫號不存在于職工的工資小于等于1220的職工所管理的倉庫號中"并且＂倉庫號存在于表ZG中＂,而以上兩個條件我們可以運用ＳQL輕松寫出來。所以最后形成的查詢語句以下:SEＬECT*FＲOMCKＷHERE倉庫號ＮOTIN(SELECT倉庫號FＲOMZGWＨEＲＥ工資<=1220）ＡND倉庫號IN(SＥLECＴ倉庫號FRＯMZG)INTＯTＡBLEwh1.dbf．后面的INTＯTABLEwh1.dbf決定了查詢的結(jié)果是生成一個wh1.dbf文獻。

本題還考對查詢的排序和查詢的去向進行了考核．可以用ＯRDERBYoｒdeｒ_Ｉｔem[ASC|DＥＳC］來讓查詢的結(jié)果按某一列或某幾列的升序(ＡＳC)或降序(ＤＥSC）進行排列。而查詢的去向可以通過INＴO(shè)TAＢLＥsｔrTaｂleNａme而直接生成一個文獻名為strＴableＮaｍe的.DＢF表一、基本操作（共四小題,第1和2題是７分、第3和4題是8分

１、請在考生文獻夾下建立一個數(shù)據(jù)庫ＫＳ4。

2、將考生文獻夾下的自由表SＴＵＤ、CＯＵR、SCOR加入到數(shù)據(jù)庫ＫＳ4中。?３、為STUＤ表建立主索引,索引名和索引表達式均為學(xué)號

為CＯＵR表建立主索引,索引名和索引表達式均為課程編號?為SCOR表建立兩個普通索引,其中一個索引名和索引表達式均為學(xué)號;另一個索引名和索引表達式均為課程編號

4、在以上建立的各個索引的基礎(chǔ)上為三個表建立聯(lián)系。?本題的重要考核點:

數(shù)據(jù)庫的建立、將自由表添加到數(shù)據(jù)庫中、主索引和普通索引的建立,為已建立索引的表建立聯(lián)系。

解題思緒:?1．建立數(shù)據(jù)庫的常用方法有三種：

在項目管理器中建立數(shù)據(jù)庫;

通過＂新建"對話框建立數(shù)據(jù)庫;

使用命令交互建立數(shù)據(jù)庫，命令為:CREATEDATAＢＡSE[DatabaseNamｅ|?]?2．將自由表添加到數(shù)據(jù)庫中，可以在項目管理器或數(shù)據(jù)庫設(shè)計器中完畢。打開數(shù)據(jù)庫設(shè)計器,在＂數(shù)據(jù)庫"菜單中或在數(shù)據(jù)庫設(shè)計器上單擊右鍵彈出的菜單中選擇"添加表"，然后在＂打開＂對話框中選擇要添加到當前數(shù)據(jù)庫的自由表。還可用ＡDDTABLＥ命令添加一個自由表到當前數(shù)據(jù)庫中。

3．在STＵＤ表設(shè)計器中的索引選項卡建立索引名和索引表達式為學(xué)號的主索引。分別為COUR和ＳCOＲ建立主索引和普通索引。?４．在數(shù)據(jù)庫設(shè)計器中建立三個表的聯(lián)系。在數(shù)據(jù)庫設(shè)計器中,將選中STUD表中的主索引＂學(xué)號＂,按住鼠標拖動到SCOR表的普通索引"學(xué)號"上。

用同樣的方法可以建立COUR表和SCOR表的"課程編號"之間的聯(lián)系。

二、簡樸應(yīng)用(2小題，每題２0分,計４0分)?１、在考生文獻夾中有一個數(shù)據(jù)庫STＳC,其中有數(shù)據(jù)庫表STUＤENＴ、SCＯRE和

COUＲSＥ

運用ＳＱL語句查詢選修了＂網(wǎng)絡(luò)工程"課程的學(xué)生的所有信息,并將結(jié)果按學(xué)號降序存放在ＮETP.DＢF文獻中(庫的結(jié)構(gòu)同ＳTUDＥNＴ，并在其后加入課程號和課程名字段)。?2、在考生文獻夾中有一個數(shù)據(jù)庫SＴSC,其中有數(shù)據(jù)庫表SＴUＤEＮT，使用一對多報表向?qū)е谱饕粋€名為ＣJ2的報表,存放在考生文獻夾中規(guī)定：選擇父表SＴUＤＥＮT表中學(xué)號和姓名字段，從子表ＳCORE中選擇課程號和成績，排序字段選擇學(xué)號(升序),報表式樣為簡報式，方向為縱向。報表標題為＂學(xué)生成績表"。

第１題,本題的重要考核點是SＱL語句的查詢。?SELＥCTStudｅnｔ．*，Scｏrｅ．課程號,Ｃourｓｅ.課程名;

FROMｓtｓc!sｔudｅｎｔIＮNERＪＯINｓｔsc！scoｒe；?IＮNERＪＯＩNstｓc!couｒse；

ONSｃｏre.課程號=Cｏｕrsｅ．課程號；?ＯNＳtuｄent.學(xué)號=Score.學(xué)號;

WHEＲEAT(＂網(wǎng)絡(luò)工程",Courｓe.課程名）>0；

ORＤEＲBＹＳtudent．學(xué)號deｓc;

ＩNTOTＡＢLＥnetp.dbf?第2題,本題的重要考核點是使用報表向?qū)е谱鲌蟊怼?/p>

啟動報表向?qū)Э稍?文獻"菜單中選擇"新建"或者單擊工具欄上的＂新建"按鈕，打開"新建"對話框，文獻類型選擇報表,單擊向?qū)О粹o。或者在"工具"菜單中選擇"向?qū)?子菜單,選擇?＂報表",或直接單擊工具欄上的"報表向?qū)?圖標按鈕。然后按照向?qū)嵝巡僮骷纯伞?/p>

三、綜合應(yīng)用(1小題，計30分)?在考生文獻夾下有工資數(shù)據(jù)庫WAGE3,涉及數(shù)據(jù)表文獻:ZG(倉庫號C(4)，?職工號C(４),工資Ｎ(4)）?設(shè)計一個名為TJ3的菜單,菜單中有兩個菜單項"記錄"和"退出"。?程序運營時，單擊"記錄＂菜單項應(yīng)完畢下列操作:檢索出工資小于或等于本倉庫職工平均工資的職工信息，并將這些職工信息按照倉庫號升序，在倉庫號相同的情況下再按職工號升序存放到EMP1(EＭP1為自由表）文獻中,該數(shù)據(jù)表文獻和ＺG數(shù)據(jù)表文獻具有相同的結(jié)構(gòu)。單擊"退出"菜單項，程序終止運營。?（注：相關(guān)數(shù)據(jù)表文獻存在于考生文獻夾下）

本題重要考核點:

菜單的建立、結(jié)構(gòu)化查詢語言（SＱL)中的聯(lián)接查詢、查詢的排序、臨時表的概念、查詢結(jié)果的去向等知識。

解題思緒：?運用菜單設(shè)計器定義兩個菜單項,在菜單名稱為＂記錄"的菜單項的結(jié)果列中選擇"過程＂，并通過單擊"編輯"按鈕打開一個窗中來添加"記錄＂菜單項要執(zhí)行的命令。在菜單名稱為"退出"的菜單項的結(jié)果列中選擇"命令"，并在后面的＂選項"列中輸入以下退出菜單的命令:SEＴSYSMENＵTODＥFAULＴ

"記錄＂菜單項要執(zhí)行的程序:

一方面是打開數(shù)據(jù)庫文獻OＰNEDAＴABＡSEＷAGＥ３.DＢC我們應(yīng)當?shù)玫矫恳粋€倉庫的職工平均工資，并將結(jié)果放在一個臨時的表CurTable中.運用以下語句可以實現(xiàn):ＳＥLECT倉庫號,AVG（工資）ＡSAvgGZＦROＭZGGRＯUＰBY倉庫號INTＯCURSＯRCurTabｌe.這樣就生成了一個表名為CuｒTable的臨時表。表中有兩個字段：倉庫號,AvgGZ,內(nèi)容為每一個倉庫的倉庫號和所相應(yīng)的職工的平均工資。

有了臨時表CurTａble后我們可以將其與ZＧ進行聯(lián)接查詢，我們這里聯(lián)接查詢的目的不是為了得到臨時表中的內(nèi)容做為結(jié)果的一部分,而是要用其中的字段AvgＧZ做為查詢的條件.我們便可以得到"工資小于或低于本倉庫職工平均工資的職工信息＂的查詢:SＥＬECＴZG.*FRＯＭZG，ＣｕrTablｅWＨEREZG．倉庫號=ＣurTａble.倉庫號ANＤZG.工資。一、基本操作題(共四小題,第1和2題是７分、第3和４題是8分）?1、請在考生文獻夾下建立一個項目ＷY。?２、將考生文獻夾下的數(shù)據(jù)庫KS4加入到新建的項目WY中去。?3、運用視圖設(shè)計器在數(shù)據(jù)庫中建立視圖NEW＿VIEW,視圖涉及GJHＹ表的所有字段（順序同ＧJHY中的字段)和所有記錄。?4、從表HJＱK中查詢"獎級"為一等的學(xué)生的所有信息(HJQK表的所有字段）,并按分數(shù)的降序存入存入新表NEW1中。?本題的重要考核點：?項目的建立、將數(shù)據(jù)庫添加到項目中、視圖的建立、查詢并存入新表。

解題思緒:

1．建立項目WY

創(chuàng)建項目可用“文獻”菜單中的“新建”命令。

2．將數(shù)據(jù)庫加入到項目中:

在項目管理器的“數(shù)據(jù)”選項卡選擇數(shù)據(jù)庫,單擊“添加”，在“打開”對話框中選擇要添加的數(shù)據(jù)庫?3．在新建對話框中、項目管理器中、或用CRＥAＴVIEW命令打開視圖設(shè)計器，建立一個視圖。將GJHY表添加到視圖中,并將所有字段添加入視圖。不做任何篩選,則視圖涉及所有記錄。最后將視圖命名為ＮＥＷ＿ＶIＥW。?4.用SQL語句?sｅlect*fromhjqk.dbfwｈｅrｅ獎級="一等"；

intoｔabｌeｎew1ｏｒdeｒby分數(shù)desｃ

可完畢此查詢。?也可建立一個查詢完畢。在菜單中選擇文獻--新建--查詢--新建文獻，在篩選欄中選擇字段名為“hｊqk．獎級”，條件為“＝”,實例欄內(nèi)輸入“一等”，排序選擇“分數(shù)”降序,并將查詢?nèi)ハ蛟O(shè)為表ＮEW1。注意NEW１要保存到考生文獻夾下。最后運營此查詢即可。

二、簡樸應(yīng)用（2小題,每題２0分，計４0分)?1、在考生文獻夾下,有一個數(shù)據(jù)庫ＣＡＤB,其中有數(shù)據(jù)庫表ZXKＣ和ZX。?表結(jié)構(gòu)如下：?ZＸKC（產(chǎn)品編號，品名，需求量,進貨日期)

ＺX（品名,規(guī)格，單價,數(shù)量)?在表單向?qū)е羞x取一對多表單向?qū)?chuàng)建一個表單。規(guī)定：從父表zxkｃ中選取字段產(chǎn)品編號和品名,從子表zｘ中選取字段規(guī)格和單價,表單樣式選取＂陰影式"，按鈕類型使用＂文本按鈕"，按產(chǎn)品編號升序排序，表單標題為"照相機"，最后將表單存放在考生文獻夾中，表單文獻名是foｒm2。

2、在考生文獻夾中有數(shù)據(jù)庫ＣＡDＢ,其中有數(shù)據(jù)庫表ZXＫＣ和ZX。建立單價大于等于８0０，按規(guī)格升序排序的本地視圖CAＭEＬＩST，該視圖按順序包含字段產(chǎn)品編號、品名、規(guī)格和單價，然后使用新建立的視圖查詢視圖中的所有信息,并將結(jié)果存入表ｖ_cａmｅra。?第１題，本題的重要考核點是使用表單向?qū)е谱鞅韱巍?啟動表單向?qū)Э稍凇拔墨I”菜單中選擇“新建”或者單擊工具欄上的“新建”按鈕，打開“新建”對話框，文獻類型選擇表單,單擊向?qū)О粹o?；蛘咴凇肮ぞ摺辈藛沃羞x擇“向?qū)А弊硬藛?選擇“表單”,或直接單擊工具欄上的“表單向?qū)А眻D標按鈕。在“向?qū)нx取”對話框中選擇“一對多表單向?qū)А?。然后按照表單向?qū)Р僮骷纯伞?第2題,本題的重要考核點是建立視圖。?在“項目管理器”中選擇一個數(shù)據(jù)庫,選擇“本地視圖”，然后選擇“新建”按鈕，打開“視圖設(shè)計器”。將zｘkc和ｚx添加到視圖中，選擇字段產(chǎn)品編號、品名、規(guī)格和單價，在“篩選”欄內(nèi)輸入條件“單價>=8００”,關(guān)閉并保存。在數(shù)據(jù)庫設(shè)計器中打開視圖，用cｏpｙtｏv_ｃamera命令或在“文獻”菜單中選擇“導(dǎo)出”，將結(jié)果存入新表v_cａmerａ。

三、綜合應(yīng)用(1小題，計30分)

在考生文獻夾下有倉庫數(shù)據(jù)庫CHAXUN3涉及三個表文獻:?ZG（倉庫號C(4）,職工號Ｃ(4），工資N(4))?ＤGＤ(職工號Ｃ(４)，供應(yīng)商號C(4)，訂購單號C(4),訂購日期D,總金額N（1０))GYS(供應(yīng)商號C(４），供應(yīng)商名C(16）,地址C（10)）

設(shè)計一個名為ＣＸ3的菜單，菜單中有兩個菜單項"查詢"和"退出"。

程序運營時，單擊"查詢"應(yīng)完畢下列操作：檢索出工資多于１230元的職工向北京的供應(yīng)商發(fā)出的訂購單信息，并將結(jié)果按總金額降序排列存放在orｄ1文獻(和DGD文獻具有相同的結(jié)構(gòu),ｏｒd1為自由表）中。單擊＂退出"菜單項，程序終止運營。?（注：相關(guān)數(shù)據(jù)表文獻存在于考生文獻夾下)?本題重要考核點:?菜單的建立、結(jié)構(gòu)化查詢語言(SQL）中的嵌套查詢、查詢的排序、查詢結(jié)果的去向等知識

解題思緒：

運用菜單設(shè)計器定義兩個菜單項,在菜單名稱為"查詢"的菜單項的結(jié)果列中選擇"過程"，并通過單擊"編輯＂按鈕打開一個窗口來添加"查詢"菜單項要執(zhí)行的命令。在菜單名稱為＂退出"的菜單項的結(jié)果列中選擇"命令"，并在后面的"選項"列的中輸入以下退出菜單的命令：SＥTSYSMEＮUTODEFＡＵLＴ

"查詢＂菜單項要執(zhí)行的程序:

一方面打開數(shù)據(jù)庫OpｅｎdatabaｓeCＨAXUN3.dbc

我們可以通過下面的查詢得到工資多于1230的所有職工的職工號SELECT職工號ＦROMZGWHERE工資＞1２３0

可以通過下面的查詢得到地址在北京的所有供貨商的供貨商號SEＬECT供貨商號FＲOMGYSWHＥＲE地址=＂北京＂?而題面所規(guī)定的正是同時滿足以上兩個條件的訂購單信息,也就是職工號滿足第一個條件上,可用職工號ＩN(SＥLＥCＴ職工號FROMZGWHERE工資>123０)來實現(xiàn);供貨商號滿足第二個條件，可用供貨商號IN(ＳELECT供貨商號FROＭGYＳＷＨEＲE地址＝"北京"）來實現(xiàn)。因此可得到滿足條件的訂購單的ＳＱL查詢?yōu)椋篠ＥLECT*ＦRＯMDＧDWHERE職工號IＮ(SEＬECT職工號ＦRＯMＺGWHＥRE工資>1230)ANＤ供貨商號IN(SELＥCT供貨商號FRＯＭGYSWHERＥ地址="北京")OＲＤERBY總金額DESCINTＯＴＡBＬＥorｄ1

本題還考對查詢的排序和查詢的去向進行了考核.可以用ORDERBYorｄｅr_Iｔem[ＡＳC|DＥSC]來讓查詢的結(jié)果按某一列或某幾列的升序（ASC）或降序（ＤESC）進行排列。而查詢的去向可以通過ＩNTOＴABLEｓｔrTａbleName而直接生成一個文獻名為ｓtrTablｅName的.ＤBF表。一、基本操作題(共四小題,第1和２題是7分、第３和4題是８分)1、打開數(shù)據(jù)庫PROD_Ｍ及數(shù)據(jù)庫設(shè)計器，其中的兩個表的必要的索引已經(jīng)建立，為這兩個表建立永久性聯(lián)系2、設(shè)立CATEＧORY表中"種類名稱"字段的默認值為:"飲料"。３、為PＲODUＣTS表增長字段：優(yōu)惠價格Ｎ(8，2）。4、假如所有商品的優(yōu)惠價格是在進貨價格基礎(chǔ)上減少１2%,計算所有商品的優(yōu)惠價格。本題的重要考核點:為已建立索引的表建立聯(lián)系、設(shè)立字段的默認值、字段的添加、字段的替換。解題思緒：１．建立兩個表的聯(lián)系。在父表中選中主索引，按住鼠標拖動至子表相應(yīng)的普通索引上，釋放鼠標，聯(lián)系即已建立。2.在表設(shè)計器中,選中"種類名稱＂字段，在＂字段有效性＂中的默認值中填入"飲料＂,單擊擬定。3.增長字段的方法:打開ＰＲOＤＵＣＴS表表設(shè)計器,將光標移動到最后的空字段格中，輸入新的字段名、字段類型及長度。4．可以使用ＢROWSE瀏覽表,然后在菜單"表"中選擇"替換字段",字段為"優(yōu)惠價格"，＂替換為"的表達式為"Products.進貨價格*0.８8＂，作用范圍ＡLL。也可用命令ＲEPLACEALL優(yōu)惠價格ＷITＨ進貨價格*0．８8二、簡樸應(yīng)用（２小題，每題20分,計4０分)1、在考生文獻夾中有一個數(shù)據(jù)庫GCS,其中GONGＣH表結(jié)構(gòu)如下:GONGCＨ（編號Ｃ（４),姓名C（1０),姓別Ｃ(2),工資Ｎ(７,２)，年齡Ｎ(２),職稱C(1０)）現(xiàn)在要對GONＧCH表進行修改,指定編號為主索引,索引名和索引表達式均為編號；指定職稱為普通索引,索引名和索引表達式均為職稱;年齡字段的有效性規(guī)則在2５至65之間（含25和65）,默認值是45。２、在考生文獻夾中有數(shù)據(jù)庫GＣS,其中有數(shù)據(jù)庫表GONGＣH。在考生文獻夾下設(shè)計一個表單，該表單為GCS庫中GＯNGCH表窗口式輸入界面,表單上尚有一個名為cｍdＣLOSE的按鈕，標題名為＂關(guān)閉",點擊該按鈕,使用TｈisFｏrm.rｅleasｅ退出表單。最后將表單存放在考生文獻夾中。，表單文獻名是C_FＯＲＭ。提醒:在設(shè)計表單時，打開GCS數(shù)據(jù)庫設(shè)計器，將GＯNGCH表拖入到表單中就實現(xiàn)了GOＮＧCH表的窗口式輸入界面,不需要其他設(shè)立或修改。第１題,本題的重要考核點是建立索引和有效性規(guī)則。建立索引在表設(shè)計器中的索引選項卡，建立有效性規(guī)則在表設(shè)計器中的字段選項卡。在"規(guī)則"欄中輸入"年齡>＝25AＮD年齡<=65","默認值"欄輸入"４5"(不要雙引號)。第2題,本題的重要考核點是表單的設(shè)計?？梢杂萌N方法調(diào)用表單設(shè)計器:在項目管理器環(huán)境下調(diào)用;單擊"文獻"菜單中的"新建＂,打開"新建"對話框,選擇＂表單";在命令窗口輸入ＣREATＥFOＲＭ命令。打開表單設(shè)計器，在表單控件工具欄上單擊"命令按鈕",在表單上放置一個按鈕。修改其屬性Name為cmdclosｅ,Captiｏn屬性為＂關(guān)閉＂。雙擊按鈕,在打開的程序窗口輸入代碼＂ＴhisFｏrm.release＂。設(shè)計窗口式輸入界面如提醒,最后將表單保存。三、綜合應(yīng)用(１小題,計30分)在考生文獻夾下有倉庫數(shù)據(jù)庫GＺ3涉及兩個表文獻:ZG（倉庫號C(4）,職工號C(4)，工資N（4))DGＤ（職工號C(4）,供應(yīng)商號C(4),訂購單號C(４），訂購日期Ｄ,總金額Ｎ(1０)）一方面在GＺ3庫中建立工資文獻數(shù)據(jù)表:GJ3（職工號C(4)，工資N（4))設(shè)計一個名為ＹＥＷU3的菜單,菜單中有兩個菜單項"查詢"和＂退出"。程序運營時,單擊"查詢"應(yīng)完畢下列操作：檢索出與供應(yīng)商S７、S４和S6都有業(yè)務(wù)聯(lián)系的職工的職工號和工資,并按工資降序存放到所建立的GJ3文獻中。單擊"退出"菜單項，程序終止運營。（注:相關(guān)數(shù)據(jù)表文獻存在于考生文獻夾下)本題重要考核點:表結(jié)構(gòu)的建立、菜單的建立、結(jié)構(gòu)化查詢語言(SＱL)中的聯(lián)接查詢、查詢的排序、臨時表的概念、查詢結(jié)果的去向、HAVIＮＧ子句、聚合函數(shù)CＯＵＮT（)等的使用等知識。解題思緒:第一步：運用菜單設(shè)計器定義兩個菜單項，在菜單名稱為"查詢"的菜單項的結(jié)果列中選擇"過程",并通過單擊"編輯"按鈕打開一個窗口來添加"查詢"菜單項要執(zhí)行的命令。在菜單名稱為"退出＂的菜單項的結(jié)果列中選擇"命令＂，并在后面的＂選項"列中輸入以下退出菜單的命令：ＳETＳYSMEＮUTODEＦAULＴ第二步：在單擊"計算"菜單項后面的"編輯"按鈕所打開的窗口中添加如下的過程代碼:ＳＥTTALKOFF&&在程序運營時關(guān)閉命令結(jié)果的顯示OPENＤAＴＡＢASEGZ3&&打開數(shù)據(jù)庫文獻GＺ3USEDＧD&&打開表DGDCRＥATETABＬEGJ3(職工號C(４）,工資N（4))ＳELＥCT職工號FROMDGDWHERE供應(yīng)商號IN("S４","S6",＂S7"）;GROUＰBY職工號;HAVＩNGCOUNT（ＤISTINCＴ供應(yīng)商號）=3;INTOCURSOＲCurTabｌe&＆SELECTＳＱＬ語句中的GROＵＰBY子句可以用來指定結(jié)果集的組,&&要得到"供應(yīng)商號"是"S4"、"S6"或"S7"的訂購單，同時以訂購單所在的職工員進行分組&&并且保證每個分組里面供應(yīng)商號有三個（也就是三個供應(yīng)商都應(yīng)有訂購單);這樣就得到了滿&&足條件的職工號,將返回的結(jié)果集放于一個臨時表CurTable中：IＮTOＣURSOＲCuｒＴａbleSELEＣTZG.職工號,工資FROMＺG,CurTableＷHERＥＺＧ.職工號＝ＣurTaｂle．職工號;OＲDERBＹ工資DESC;INTＯARRAＹＡFieldsＶaluｅ＆&將生成的臨時表與DGＤ表進行聯(lián)接查詢,便可以得到滿足條件的職工號和工資&＆返回的結(jié)果集放入數(shù)組AFｉｅldsＶａlue中:IＮTOARＲAＹAFiｅｌdsValuｅINＳEＲＴＩNTOGJSFRＯMARRＡYＡＦielｄsValuｅ&&在新建的表中追加記錄ＣLOSEALL&&關(guān)閉打開的文獻SETTALＫＯＮ&&恢復(fù)命令結(jié)果的顯示設(shè)立第三步:以文獻名YＥWU３.MＮＸ保存菜單源文獻，并生成菜單，運營菜單。一、思考題1、創(chuàng)建報表的基本方法涉及哪三種?其重要區(qū)別何在?２、在報表設(shè)計器中，共有幾個帶區(qū)?各有什么作用?３、總結(jié)在報表設(shè)計中,各個不同的控件用于什么場合?4、如何運用“數(shù)據(jù)環(huán)境”為報表設(shè)立數(shù)據(jù)源?二、選擇題1、運用報表生成器快速生成報表，應(yīng)選取菜單命令。A.數(shù)據(jù)→報表B.文獻→快速報表C.報表→報表Ｄ．報表→快速報表２、建立打印報表的命令是。A.ＣREATEB．CREATEＳCREEＮC.CRＥATEWIＮDOＷD.CREATEREPOＲＴ3、選取和設(shè)計報表中字段內(nèi)容,應(yīng)選取工具欄中的工具是。A.字段B．圖像解決C.文本D．畫矩形4、快速報表默認的基本帶區(qū)是。A.標題、總結(jié)、列注腳B.頁標頭、細節(jié)、頁注腳Ｃ.頁標頭、細節(jié)、列注腳D.標題、細節(jié)、頁注腳５、在“報表設(shè)計器”中可以使用的控件有。A.標簽、域控件和圖片B.標簽、列表和域控件C.文本框、圖片和線條D.組合框、線條和標簽６、在一個報表中可以基于選擇的表達式進行數(shù)據(jù)分組,對分組操作方法有。A．從“報表”菜單中選擇“數(shù)據(jù)分組”菜單項B.單擊“報表設(shè)計器”工具欄中的“數(shù)據(jù)分組”按鈕C.右擊報表設(shè)計器,在彈出的快捷菜單中選擇“數(shù)據(jù)分組”菜單項D.以上都可以7、下列不屬于報表的布局類型的是。Ａ.列報表Ｂ.行報表C．一對多報表D.多對多報表８、在報表設(shè)計中,通常對每個字段作一個說明性文字，完畢這種說明文字的報表控件是。Ａ.標簽控件B.域控件Ｃ.線條控件Ｄ.矩形控件9、設(shè)計報表的標題是在報表的設(shè)立。A.頁標頭區(qū)Ｂ.細節(jié)區(qū)C.標題區(qū)Ｄ.頁注腳區(qū)10、下列選項中不屬于域控件的數(shù)據(jù)類型的是。A.字符型Ｂ.備注型C.數(shù)值型D．日期型三、填空題1、設(shè)計報表就是根據(jù)報表的和來設(shè)計報表的布局。２、在報表設(shè)計中，進行報表頁布局的設(shè)計,應(yīng)當選取新增添的菜單項“報表”下的。3、使用報表向?qū)гO(shè)計報表，一方面要打開報表的數(shù)據(jù)源，數(shù)據(jù)源可以是數(shù)據(jù)庫中的,也可以是或臨時表。4、在報表設(shè)計器中,域控件用于打印表或視圖中的、和的計算結(jié)果。5、與報表設(shè)計有關(guān)的工具欄重要涉及工具欄和工具欄。6、生成標簽文獻時,在窗口中可以選取標簽的格式，涉及標簽的代號、高度、寬度、每行輸出的標簽數(shù)目等信息。7、在報表中,打印輸出內(nèi)容的重要區(qū)是帶區(qū)。8、對于報表的標題,每張報表在開頭僅僅打印次。9、對報表進行數(shù)據(jù)分組時,報表會自動包含和兩個帶區(qū)。10、報表可以在打印機上輸出，也可以通過游覽。答案一、略二、選擇題DDABAＤDAAB三、填空題1、數(shù)據(jù)源、應(yīng)用需求２、數(shù)據(jù)分組3、自由表、視圖４、字段、變量、表達式5、報表設(shè)計器、報表控件６、打印設(shè)立7、細節(jié)８、一9、組標頭,組注腳10、屏幕程序控制結(jié)構(gòu)1、求出下列表達式的值(x、y的值從鍵盤輸入)：程序代碼：ＳEＴTALＫOffCLEARINPUT＂X=＂TOＸIＮPUＴ"Y＝"TＯYZ=(X*Y+EＸP（Ｘ+Y）)／（(X/Y）＾3*LＯG10（ABS(X-Y）))？"X＝",X，＂Ｙ＝",Ｙ,＂Ｚ=",ZSEＴTＡLKON2、給定一個年份(從鍵盤輸入)，判斷它是否閏年。閏年的條件是：能被4整除但不能被１００整除，或能被100整除且能被4０0整除。程序代碼:SETＴＡＬKOffCLEARINPＵＴ"Ｙear="ＴＯＹｅarｉf(yｅar%4＝0aｎdyear％1０0!=0)or(ｙear%10０=0andｙｅaｒ%４00=０)?yｅａr,"是閏年＂else?yｅar,"不是閏年"eｎdifSＥＴＴALKOＮ3、從鍵盤輸入數(shù)據(jù)A(可以是Ｃ、D、N、L、Y和U型等)，通過類型判斷,輸出其數(shù)據(jù)類型的漢字說明(如A的值為“ＯK！”，那么輸出應(yīng)為:OＫ！——字符型數(shù)據(jù))。程序代碼:SEＴTALKOffＣＬＥARINPUT"A="TOadoｃasecasetype('ａ＇)="C＂？ａ,"——字符型數(shù)據(jù)"caｓetyｐｅ('ａ＇）=＂D"?a，"——日期型數(shù)據(jù)"cａsｅtｙpｅ（'ａ＇)="Ｎ"?a,"——數(shù)值型數(shù)據(jù)"cａsｅtype('a＇)="L"？a，"——邏輯型數(shù)據(jù)＂casetypｅ(＇ａ＇)=＂Y"?a，＂——貨幣型數(shù)據(jù)＂ｃasetyｐe('a＇)="U"?ａ，"——未定義＂endcaｓeSＥＴＴAＬKON4、從鍵盤輸入Ａ、B、C三個數(shù)值，將它們從小到大排列后輸出。程序代碼：SETTALKOffCLＥARINＰUＴ"Ａ="TOAINPUT＂B=＂TＯBＩNＰＵＴ"Ｃ="TＯCiｆbｄ=aa=bb＝ｄｅndifｉfｃd=aa=cc＝deｎdififｃd=bｂ=cc=denｄｉｆ?ａ,b,cSETTALKＯN5、從鍵盤輸入一個數(shù)值(０~9),規(guī)定輸出其相應(yīng)的中文大寫數(shù)字(零~玖)。程序代碼：SＥTTＡLＫOffCLEAＲC＝"零壹貳叁肆伍陸柒捌玖"ＩNPUT＂N=＂ＴO(shè)Ｎ?N，＂---＞"+SＵBSTR(C,2*N+1,2)ＳETＴAＬKON6、將前面的1到５題，加上循環(huán)，使之被調(diào)用執(zhí)行一次，并可以反復(fù)對不同的輸入值完畢相同的操作。提醒：只要在需要反復(fù)執(zhí)行的語句序列外加上循環(huán)控制結(jié)構(gòu)即可。下面以第2小題循環(huán)3次,第5小題循環(huán)任意次為例說明。(6.2)循環(huán)３次程序代碼:SETTＡLKＯｆｆCＬEARＦＯRI＝1TＯ3INPＵＴ"Year="TOYｅaｒif（year%4=0anｄｙｅar%10０!=０)or(ｙeａr％１０0=0andyeａr％400＝0)？year，"是閏年＂else?year,"不是閏年"endifENDＦＯRSETＴALKON（６．5）循環(huán)任意次程序代碼：ＳEＴＴＡLＫOffＣLEＡR？＂PRESSESCＴＯEXIＴ---"C="零壹貳叁肆伍陸柒捌玖"DOWHILE.T.INPUT"N＝"TON?N,"--->"＋SUBSTR(Ｃ,2*N+1,2)IFINKＥY(0)=27EＸＩTENDIＦENDDOSETTALＫON程序閱讀題。閱讀下列程序，寫出運營結(jié)果。1、注：字符＂A＂的ASＣII碼為65。程序代碼:ＳETTAＬＫOFFCLＥARC＝"一二三四五六七八九十"B＝"ABＣD"R=0L=LEN(B)FＯRI＝1TOLＷ=ＳUＢSTR(B,Ｉ,1)D＝ASC(W)+Ｒ-65Ｓ=""IFＤ＜10Ｓ=SＵBSTR（C，2＊D+1,２)ELSES=ＳUBSTＲ(C,２*MOD(D，1０)+1,２）ENDIF?W+"－－－－->"＋SＲ=R+11ENDFORSETＴALKON參考答案:A－-－->一B--－－>三C-－-－＞五D-－--＞七２、設(shè)Ａ的值為：ABCDEF程序代碼:ＳETTＡLKOFFＣＬＥAＲAＣCEＰT＂A=＂TＯAL=LEN（A)Ｐ=SPＡＣE(0)I=1DＯWＨILEIP=P+SＵBSTR（A,L－I,2）I=I+２EＮDDO?A＋"---－-->"＋ＰSETTALＫON參考答案：AＢＣDEＦ------>ＥＦCＤAＢ計算機等級考試二級VｉsuａlFoxPrｏ上機試題及解題思緒（12）來源:青年人(Ｑnr.Ｃn)

2023-9－179:31:25

【青年人:中國教育考試第一門戶】

HYPＥRＬINＫ＂"資料下載

HYPEＲLINK"＂＼t"_bｌaｎk＂教材購買3、寫出運營結(jié)果程序代碼：ＳETTALKOFＦＭ=3DOWHILEM＜１0N=２DOWHIＬENIFINT（M/N)=Ｍ／NEXIＴENＤIFN＝N+1ENDＤOIFN=M?MENＤＩFM=M+1ENＤDOSETTALKON參考答案:3５74、寫出運營結(jié)果程序代碼：SETTAＬＫＯFFＣLEＡRINＰUＴ＂M＝＂TOMIFINT（Ｍ）!=MORAＢS(M)!＝M？"輸入的數(shù)值不符合題目規(guī)定!"LOＯPENDIF?ALLTRIＭ(SＴＲ(M,1９))+"的質(zhì)數(shù)因子有："I=2DＯＷHILEI＜=ＭIＦM%I＝0??STR(Ｉ，６）M=INＴ(M/Ｉ)LＯＯPEＮＤIFＩ＝I+1ENDDOSETTALKONＳETEＳCＡPEON設(shè):M的輸入值為１２。參考答案:１2的質(zhì)數(shù)因子有:2２３5、寫出運營結(jié)果程序代碼:SEＴＴＡＬＫOFFCLEAR？"*123４5"A=1DＯWHIＬEA<＝５?ＡLＬTRIＭ(SＴR(A))＋SPAＣ(2）B=１ＤOWHILEＢ＜=AS＝A＊B??ＳTＲ(Ｓ,2)+SPAC（2)B＝Ｂ＋1ENDDOＡ＝Ａ+1ENDＤOＳEＴTＡLＫＯN參考答案:＊123451122433694481２5510１520256、寫出運營結(jié)果程序代碼:ＳETTＡＬKOFFCＬEARDIMENSIONA(６，6)FＯRI=1ＴO(shè)6FＯRJ＝1TＯ6ＩFI＜＞JA(I，J)=0ELSEＡ(I，J)=-1ENDIFＥＮＤＦOＲENDＦORＦORI=1TO6?FORＪ＝1TO6??Ａ(I,Ｊ)ＥＮDFORＥＮDFORSETTＡLＫON參考答案:-10０0０00-1000000-10０００0-10000０0-1000０00０-15、寫出運營結(jié)果程序代碼:SEＴTALKOFFCLEAR？＂*12３45＂A=１DOＷHIＬEＡ<=５?ALLTRIM（STR(Ａ))＋SＰＡC(2)B=１DOWHＩLＥＢ＜＝AＳ=A*B？？ＳTR（Ｓ,2)+SＰAC(2)B=B+1ENDＤOＡ=A＋1ＥＮDDＯSETＴALＫON參考答案:*123451１2243369448１2551０15202５6、寫出運營結(jié)果程序代碼:SEＴTALKOFFCLEARDIMＥＮSIＯNA(６,6)FORI＝1TO6FＯRＪ=１ＴO(shè)6ＩFI<>ＪA（I,J)=０ELSEA(Ｉ，Ｊ)=-1ENDIＦENＤFORENDFOＲFORＩ=1TＯ６?FORJ=1TO6??Ａ(I,J)EＮDFＯREＮDＦORＳETＴALKＯＮ參考答案:-100０000－1000000-１000０0－10０0000-1０000０00-1綜合編程題。根據(jù)題目規(guī)定,編寫相應(yīng)的程序。１、求Ｘ+X２+X３+X４+?＋Ｘｎ的值。N，X從鍵盤輸入。程序代碼:SETＴALＫＯFFclｅarINPUT"X="ＴO(shè)ＸＩＮPUT"N="ＴO(shè)NS=0I＝1DOWHIＬEI<=NS=S+Ｘ^IＩ=I+1ENDDO?＂Ｘ+X＾２+X^3+．..+Ｘ^N=",SSEＴTALKON2、求S=2/1+3／2+5/３＋8/５+13/8+…．.前２0項之和。程序代碼:ＳEＴTALＫOFＦclearS=0Ｎ=１X=１Y＝2DOＷＨILEN<＝20Ｓ=S＋Y/XT=XX=YY=Ｙ+TN=Ｎ+１ENDDO?＂2／1+3/２+5／3+..．＋1771１/1０946=",S＆＆共有N＝20項累加SETTALＫOＮ3、從鍵盤輸入一個正整數(shù),判斷其所含5的個數(shù)。(如：輸入數(shù)值2３４51０５，其中包含５的個數(shù)為2)程序代碼：SＥＴTALＫOFFcｌearINPUT"請輸入一個正整數(shù)Ｘ:"TOＸＳ=0DOWHILE.T.N=MOD（X,1０）＆&第一次求Ｘ的個位數(shù)Ｎ,第二次求X的十位數(shù)N，…IFN=5Ｓ=S＋1ENDＩFX=INT（X／10）IFX=0ＥXＩTEＮDIFEＮDDO?＂Ｘ中５的個數(shù)為:",SSETＴAＬKON4、從鍵盤輸入20個數(shù),去掉20個數(shù)中的最大值和最小值，然后求平均值。程序代碼:ＳETＴAＬKＯFFCLEARS＝0N=1SＴO(shè)RE0TOMAＸ,ＭIＮDＯWHILＥN<=２0ＩＮPＵＴ＂B="TＯＢS=S+BIＦMＡXMAＸ=BENＤIFIFMIＮ＞ＢＭIＮ=ＢENＤIFN=N+1ENDDO?"ＡVEＲＡGE=＂+STR((S-ＭAX-MＩN)/1８，19,2）SETTALKON５、求２～1000之間完數(shù)的個數(shù)。（完數(shù)：一個數(shù)假如恰好等于它的因子之和，因子不涉及自身且不能反復(fù)。如:6=1+2+3,8<＞１+2+4，所以6是完數(shù),８不是完數(shù))程序代碼:ＳＥＴTＡＬKOFFCLＥＡRSN=0?"２~100０之間的完數(shù)為:"ＦORN=2TO100０M=NＩ＝1S=0ＤOWHILＥＩＩFINＴ(Ｍ/I)＝Ｍ/ＩS=S+IENＤIFI=I＋１EＮDＤOIFN＝SＳN＝SN+1??NENDIFENDFOR?"完數(shù)的個數(shù)為:",SNＳETTAＬKON6、本程序一方面對矩陣按行讀入數(shù)據(jù)，并將它轉(zhuǎn)置。程序代碼:SETTＡＬKOＦFＩＮPUT'N=＇TONＤIMＥA(N,N)FＯＲI=1ＴO(shè)ＮFＯRＪ=１ＴＯNINPUT'A('＋STＲ(I，1）＋＇,'+STR(J,1)+')=＇TＯAＩ,J)ＥNＤＦＯRＥＮＤFORFORI=1ＴO(shè)NFORJ＝１TOIT＝A(I，J)Ａ(I,Ｊ)=A（J，Ｉ)A(Ｊ，I)=TENＤＦＯRＥNDFOＲSETＴALKON７、從鍵盤任意輸入N個數(shù)，去掉其中最大值和最小值，然后求平均值。程序代碼：SEＴTＡLKＯFFCLEAＲS=0IＮＰUT"N="ＴO(shè)NSTOＲEＮＴＯMＡX,MＩNFORI=1TＯNＩNPUT＂B＝＂TOBS=S+BIＦMAXＭAＸ=BENＤIFIFMIＮ>ＢMIＮ=BENDＩＦENDFOＲ?"AVERAGＥ=＂+ＳTR(（Ｓ-MAX-MＩN)/(N-2）,19,2)SETＴALKON８、運用參數(shù)傳遞和過程文獻,求(M!+Ｎ!)/(M-N）!程序代碼:SETＴAＬKOFFＣＬEＡRSＥＴPROCＴO(shè)程序2０ＩＮPUT"M="TOMIＮＰUT"Ｎ＝"TONSＴO(shè)RE０ＴO(shè)SM,SＮDOＪC2WＩTHM，SMDOＪC2WITHN,SNDＯMC２WITHM－N,N？"表達式結(jié)果為S="＋SＴR((ＳM+SN)／N，１0,2)SETＰRＯCTOＳETTALKONPROＣＪC2PＡRAX,YI＝1T=１DOWHＩLEＩ<=XT=T*II=Ｉ+1EＮDDOY=TREＴUＲNPROＣMC2ＰARAＹ,ＸI＝1T＝1DＯWHILEI＜=XＴ=T*YI=Ｉ＋1EＮDＤOX=TＲETURN9、編程求1~100０之內(nèi)的同構(gòu)數(shù)。(同構(gòu)數(shù)：若Ａ是同構(gòu)數(shù),則A出現(xiàn)在A的