1數據庫應用考試題型與試題樣例2考試題型與試題樣例考試題型3考試題型單項選擇（每小題1分，共10分）填空（每空1分，共10分）SQL（每小題5分，共30分）數據庫設計分析（每小題5分，共10分）編程（每小題6分，共24分）程序閱讀(運行結果，每小題4～6分，共16分)4課程成績構成期末閉卷筆試實驗平時(考勤)合計實驗十五(綜合)實驗四實驗五實驗十其他60151231010030特別提示要求認真完成綜合實驗，堅決杜絕抄襲實驗報告！允許部分實驗內容未達到要求（沒有完成調試），但需要充分說明你的設計（包括對象名稱、屬性名稱和屬性的設置值、對象的事件及功能），記錄所有事件代碼和運行的結果（全部正確或部分正確的窗體視圖）。5考試題型與試題樣例主要內容6涉及范圍第1、3、7、8、9章主要內容7數據與信息的概念、特點與關系數據庫、數據庫管理系統、數據庫系統的概念及其之間的關系數據庫系統的組成數據庫的基本特點數據庫的三要素關系數據庫的基本數據結構數據模型第1章8關系、關系模型的概念實體、實體之間的聯系關系數據庫中常見的關系運算(選擇、投影、自然連接)數據管理技術的發展過程等E-R圖的分析、設計與繪制完整性約束的定義與說明第1章9數據查詢（Select）的運用：包括單表查詢、多表查詢、子查詢（帶in）插入（Insert）、更新（Update）、刪除（Delete）等數據操縱語句的運用SQL語句中的條件（Where）And、or、not的使用排序（OrderBy）、分組（GroupBy與Having）、通配符（like）以及distinct、between…and等的使用第3章10常用聚合函數sum()，avg()，count()，max()，min()等的使用在sql中使用mid和year函數查詢視圖種類（窗體視圖種類、查詢視圖種類）第3章11基本數據類型，常量的書寫，變量的定義及賦值，常用函數、運算符的運用，表達式的正確書寫等注意：=(兩種含義：賦值和關系運算)主要函數數值函數：sin,cos,sqr,rnd,abs,int,fix字符及其轉換函數：len,mid(left,right),trim(ltrim,rttim),val,str,日期時間函數：date,now,year(month,day)輸入輸出函數：msgbox,inputbox其他：typename()第7章12主要運算符賦值運輸符：=算術運算符：(),^,+|-,*|/,\,+|-,mod字符運算符：+,&日期運算符：+,-關系運算符：>,>=,<,<=,=,<>,like(,*,#)邏輯運算符：and,or,not對象運算符：!,.？的使用第7章13流程控制三種結構的掌握和運用兩種類型的分支：if和case，重點if類型的雙分支和多分支循環語句：dowhile和for，要求會用exitdo和exitfor循環的嵌套（最多3層）數組，利用數組進行排序掌握給定范圍內隨機整數的生成方法第8章14程序閱讀（求程序運行結果）單循環循環嵌套分支循環嵌套循環（有3層，并嵌套分支）第8章15編程題(以教材習題8第172頁4編程題例)單分支結構：(1)、(2)、(3)、(4)單循環結構(如有規律數列求和、打印圖形等)：(5)、(7)、(11)、(12)、(14)單循環嵌套單分支結構(如一定范圍內滿足某些條件等有規律數的數、總個數、累計和等)：

(3)、(6)、(8)、(9)、(10)、(13)循環嵌套循環結構(如打印規則圖形等，其中圖形可能是上下或左右對稱的，或由若干部分構成，有規則的部分，也有不規則的部分)：：4(7)、4(9)、4(10)第8章16面向對象程序設計的基本思想類與對象的定義類或對象的特性：繼承性的概念、封裝的概念面向對象程序設計的基本步驟常用圖形化界面控件元素Access對象的層次關系及對象屬性的引用方法：集合對象的引用、me引用根據圖形化界面及其對應的功能用表描述功能的實現第9章17常用控件命令按鈕CommandButton文本框TextBox標簽Label復選框CheckBox選項按鈕OptionButton列表框ListBox組合框ComboBox第9章窗體forms18常用屬性NameCaptionEnabledValueMoveableVisible第9章19常用事件LoadOpenClickDblClickChangeAfterUpdate第9章常用方法SetFocusAddItemRemoveItem20考試題型與相關章節主要內容題型選擇填空SQL數據庫設計分析編程程序閱讀第1章√√√第3章√√√第7章√√√√第8章√√√√第9章√√小題數10106243小題分115564～6大題分10103010241621考試題型與試題樣例試題樣例(一)221、在數據庫中能夠唯一地標識一個元組的屬性（或者屬性的組合）稱為（

）。A、字段 B、記錄C、主鍵 D、域2、作為一種數據管理技術，數據庫具有許多重要特征，其中不包括（

）。A、數據庫實現了數據共享B、數據庫減少了數據冗余C、數據庫減少了數據獨立性D、數據庫提高了數據的安全性單項選擇

√√233、對于關系的描述中，正確的是（

）A、在一個關系中，關鍵字一定是其中的某個屬性B、同一個關系中允許存在完全相同的元組C、同一個關系中可以交換任意兩列或者任意兩行的數據D、

在一個關系中，同一行數據的數據類型通常是相同的4、關系數據庫管理系統的3種基本關系運算不包括（

）。A、比較 B、選擇C、投影 D、聯接單項選擇

√√245、VBA對象的3個基本要素是（

）。A、屬性、代碼和事件B、屬性、方法和事件C、類、方法和事件D、屬性、語句和事件6、下列符號中，僅（

）是合法的VBA變量名。A、y26B、26yC、EndD、xy-2[1]單項選擇

√√257、判斷整型變量X是否能被3整除，錯誤的條件表達式為（

）。A、X\3=X/3B、XMod3=0C、INT(X/3)=X/3D、XMod3=INT(X/3)8、一個關系型數據庫管理系統所應具備的三種基本關系操作是（

）。A、篩選、投影與自然連接B、編輯、瀏覽與替換

C、插入、刪除與修改D、排序、索引與查詢單項選擇

√√269、代數式

對應的VBA表達式是（

）。A、Sqr(a*a+b*b)/(sin(a)-cos(b))B、Sqr(a*a+b*b)/sin(a)-cos(b)C、Sqr(a*a+b*b)/(sina-cosb)D、Sqr(a*a+b*b)/sina-cosb單項選擇

√2710、設a=2，b=3，c=4，d=5，則表達式NOTa<=cOR4*c=b^2ANDb<>a+c的值是（

）。A、－1B、1C、TrueD、False單項選擇

√a<=cTrueNota<=cFalse4*a=b^2Falseb<>a+cTrue4*c=b^2AND

b<>a+cFalse2811、"6234"Like"624"的結果為（）。A、FalseB、62C、TrueD、"62"12、數學表達式6≤x≤9在VBA中表示為（）。A、X>=6ORX<=9B、X>=6AND<=9C、X>=6ANDX<=9D、X≥6ANDX≤9單項選擇

√√2913、執行以下程序段后，a值為（

）。a=600b=80a=a+bb=a-ba=a-bA、680

B、600C、80D、520單項選擇

√3014、關系完整性約束中，參照完整性是指（

）A、通過關系中的主關鍵字來實現，且不能取空值。B、一個關系R中的主關鍵字與另一個關系K的外部關鍵字相同，且關系K中外部關鍵字的取值須為關系R中的主關鍵字存在的值。C、一個或多個屬性列必須滿足的約束條件。D、針對某種具體業務規則提出的關系數據庫必須滿足的約束條件。單項選擇

√3115、表達式（a=0）是（

）。A、算術表達式B、關系表達式

C、字符串表達式D、非法表達式16、常量“9834.56”屬于（

）數據類型。A、日期型B、雙精度型C、整型D、布爾型單項選擇

√√3217、數據模型的三要素是（

）、數據操作和數據的約束條件。A、數據存儲B、數據處理C、數據結構D、

數據查詢18、

對于關系的描述中，正確的是（

）A、同一個關系中允許存在完全相同的元組B、同一個關系中元組的次序無關緊要C、在一個關系中，屬性可以再分割D、在一個關系中，同一行數據的數據類型通常是相同的單項選擇

√√3319、結構化程序設計的三種基本邏輯結構是（

）A、順序結構、循環結構和選擇結構B、選擇結構、循環結構和嵌套結構

C、選擇結構、循環結構和模塊結構D、順序結構、循環結構和遞歸結構20、Access

數據庫的數據模型是（

）A、層次型B、網狀型C、關系型D、混合型單項選擇

√√3421、"5834"like"58#4"的結果為（

）。A、FalseB、58C、TrueD、"58"22、數據庫完整性有（

）。A、實體完整性、參照完整性、域完整性、數據完整性B、實體完整性、參照完整性、域完整性、用戶定義完整性C、實體完整性、參照完整性、域完整性、規劃完整性D、實體完整性、參照完整性、域完整性、設計完整性單項選擇

√√3523、使用SQL語句查詢時，可使用（）謂詞確定范圍。A、INB、NOTINC、BETWEEN…AND…D、都不可以24、下列命令中可以顯示"財經"是（）。A、mid("江西財經大學",3,4)B、mid("江西財經大學",3,2)C、mid("江西財經大學",4,4)D、mid("江西財經大學",4,2)單項選擇

√√361、表達式包含了賦值運算符（=），試問對還是錯？______。2、SQL語句中求和、求平均、求最大值、求最小值的聚合函數英文名稱分別為________、________、_______和________。3、兩種常見數據庫系統應用模式為客戶/服務器（C/S）模式和______________________。4、兩個數據表實現自然連接操作的約束條件是兩個數據表間存在__________。填空

錯SumAvgMaxMin瀏覽器/服務器（B/S）模式外鍵約束375、表達式(8+2*3^2)\(12/3)-7mod2的結果為_______。6、關系數據庫中PK表示_____，FK表示_____。7、常見的邏輯運算包括：____、____和____。8、寫出2012年12月20日15時32分50秒的日期型常量_______________________。9、二維表中的每一行在關系中稱為_______。10、在關系運算中，查找滿足一定條件的元組的運算稱之為__________。填空

5主鍵外鍵NotAndOr#2012-12-2015:32:50#元組選擇運算26413812、二維表中的每一列在關系中稱為______。12、在Access中，屬性對應表中的______。13、對某個關系進行選擇，投影或聯接運算后，運算的結果是一個_____。14、設XY="56"，X=5，Y=6，則表達式VAL(XY)MODX*Y的值是_____。15、表達式

mid("2008BEIJINGOLYMPICGAMES",6,7)

的值是_________。填空

字段屬性關系26BEIJING3916、在VBA環境中，在立即窗口先后輸入A="6"B="9"A=A+BB=B+AB等命令后，顯示的結果是＿＿＿。填空

9694017、在VBA環境中，在立即窗口先后輸入A=6B=9A=A+BB=B+AB等命令后，顯示的結果是＿＿＿。填空

244118、若N=32，

則表達式N/(NMOD5)的值是＿＿。19、若系統是現今的日期和時間，

則YEAR(DATE)的值為＿＿＿＿＿。20、執行下面的程序段后，立即窗口輸出的（K的值）是＿＿＿。ForK=9To1Step-2NextDebug.PrintK填空

162012-142SQL操作431、輸出家庭成員表中所有的“與學生關系”字段的值，要求去除重復的記錄。2、使用SQL通配符求籍貫是江蘇各地或浙江個地的同學總人數。3、求所有信息管理學院學生的學號、姓名、性別、出生日期和入學成績。SQL操作44輸出家庭成員表中所有的“與學生關系”字段的值，要求去除重復的記錄。Selectdistinct與學生關系

from家庭成員表;45使用SQL通配符求籍貫是江蘇各地或浙江各地的同學總人數。Selectcount(*)as總人數

from學生表

where籍貫like"江蘇*"or籍貫like"浙江*";46求所有信息管理學院學生的學號、姓名、性別、出生日期和入學成績。Select學號,姓名,性別,出生日期,入學成績

from學生表,班級表

where學生表.班號=班級表.班號

and學院="信息管理學院";474、查詢獲得總學分在30分以上的同學學號、姓名、班號和總學分。5、查詢選修了《數據庫應用》的學生的學號、姓名和該課程成績。6、查詢未選修《數據庫應用》的學生的學號、姓名、性別和班號，并按學號升序輸出。SQL操作48查詢獲得總學分在30分以上的同學學號、姓名、班號和總學分。Select學生表.學號,姓名,班號,sum(學分)as總學分

from學生表,課程表,成績表

where課程表.課程號=成績表.課程號

and學生表.學號=成績表.學號

and成績>=60groupby學生表.學號,姓名,班號

havingsum(學分)>=30;49查詢選修了《數據庫應用》的學生的學號、姓名和該課程成績。Select學生表.學號,姓名,成績

from學生表,課程表,成績表

where課程表.課程號=成績表.課程號

and學生表.學號=成績表.學號

and課程名="數據庫應用";50查詢未選修《數據庫應用》的學生的學號、姓名、性別和班號，并按學號升序輸出。Select學號,姓名,性別,班號

from學生表

where學號notin

(Select學號from課程表,成績表where課程表.課程號=成績表.課程號

and課程名="數據庫應用")orderby學號;517、求是少數民族且1990年至1992年出生的同學人數。8、求姓張或姓王的同學的學號、姓名、性別、出生日期和入學成績。9、查詢李小明同學的成績單，具體內容包括：課程號、課程名、學分和成績。SQL操作52求是少數民族且1990年至1992年出生的同學人數。Selectcount(*)as人數

from學生表

where民族<>"漢族"

andyear(出生日期)>=1990andyear(出生日期)<=1992;53求姓張或姓王的同學的學號、姓名、性別、出生日期和入學成績。Select學號,姓名,性別,出生日期,入學成績

from學生表

where姓名like"張*"or姓名like"王*";54查詢李小明同學的成績單，具體內容包括：課程號、課程名、學分和成績。Select成績表.課程號,課程名,學分,成績

from學生表,課程表,成績表

where學生表.學號=成績表.學號

and課程表.課程號=成績表.課程號and姓名="李小明";5510、查詢獲得學分30分以上的同學學號、姓名、獲得學分的課程號、課程名、學分、成績。11、查詢“李曉”所在班“數據庫應用”課程的成績，要求由高分到低分顯示姓名、性別、成績。12、查詢與“陳小平”同學同班的學生所獲得的學分數，要求列示班號、學號、姓名、獲得學分。SQL操作56查詢獲得學分30分以上的同學學號、姓名、獲得學分的課程號、課程名、學分、成績。Select學生表.學號,姓名,課程表.課程號,課程名,學分,成績

from學生表,課程表,成績表

where課程表.課程號=成績表.課程號

and學生表.學號=成績表.學號

and學生表.學號in(Select成績表.學號from課程表,成績表where課程表.課程號=成績表.課程號

and成績>=60groupby成績表.學號

havingsum(學分)>=30);57查詢“李曉”所在班“數據庫應用”課程的成績，要求由高分到低分顯示姓名、性別、成績。Select姓名,性別,成績

from學生表,課程表,成績表

where課程表.課程號=成績表.課程號

and學生表.學號=成績表.學號

and課程名="數據庫應用"and學生表.班號in(Select班號from學生表where姓名="李曉")orderby成績desc;58查詢與“陳小平”同學同班的學生獲得的學分數，要求列示班號、學號、姓名、獲得學分。Select班號,學生表.學號,姓名,sum(學分)as獲得學分

from學生表,課程表,成績表

where課程表.課程號=成績表.課程號

and學生表.學號=成績表.學號and成績>=60

and學生表.班號in(Select班號from學生表where姓名="陳小平")groupby班號,學生表.學號,姓名;59SQL操作601、查詢“郵電出版社”出版的圖書名稱和價格。2、查詢工作單位為“信息管理學院”的讀者姓名。3、按出版社名稱，求各出版社出版的圖書數量。4、查詢名稱中包含“電腦”二字的所有圖書的題名、作者、出版社和價格。5、查詢讀者“陳琳琳”所借閱圖書的所屬出版社（去除重復的記錄）。6、查詢作者“馬虎虎”的圖書為哪些讀者及工作單位所借閱。SQL操作61查詢“郵電出版社”出版的圖書名稱和價格。Select題名,價格

from圖書表

where出版社="郵電出版社";62查詢工作單位為“信息管理學院”的讀者姓名。Select姓名

from讀者表

where單位="信息管理學院";63按出版社名稱，求各出版社出版的圖書數量。Select出版社,count(*)as圖書數量

from圖書表

groupby出版社;64查詢名稱中包含“電腦”二字的所有圖書的題名、作者、出版社和價格。Select題名,作者,出版社,價格

from圖書表

where題名like"*電腦*";65查詢讀者“陳琳琳”所借閱圖書的所屬出版社（去除重復的記錄）。Selectdistinct出版社

from讀者表,借閱表,圖書表,圖書條碼表

where讀者表.證件號=借閱表.證件號and圖書表.索書號=圖書條碼表.索書號and借閱表.條碼號=圖書條碼表.條碼號and姓名="陳琳琳";66查詢作者“馬虎虎”的圖書為哪些讀者及工作單位所借閱。Select證件號,姓名,工作單位

from讀者表,借閱表,圖書表,圖書條碼表

where讀者表.證件號=借閱表.證件號and圖書表.索書號=圖書條碼表.索書號and借閱表.條碼號=圖書條碼表.條碼號and作者="馬虎虎";67SQL操作681、查詢所有男性讀者的姓名、性別和身份證號，結果按年齡從大到小（升序）排列。2、查詢讀者編號及其未歸還圖書的數量。3、查詢“高等教育出版社”出版圖書的圖書編號、作者、單價和庫存數量。4、查詢各分類號在2006年后出版圖書的冊數（庫存數量），結果按其冊數由高到低列示。5、查詢至今尚未歸還書籍的讀者姓名、性別、工作單位、及未還圖書的名稱。SQL操作69查詢所有男性讀者的姓名、性別和身份證號，結果按年齡從大到小（升序）排列。Select姓名,性別,身份證號

from讀者where性別="男"

orderbymid(身份證號,7,8);70查詢讀者編號及其未歸還圖書的數量。Select讀者編號,count(*)as未還圖書數量

from借閱where是否歸還=False

groupby讀者編號;71查詢讀者姓名及其未歸還圖書的數量。Select讀者.讀者姓名,count(*)as未還圖書數量

from讀者,借閱where讀者.讀者編號=借閱.讀者編號andnot是否歸還

groupby讀者.讀者姓名;72查詢“高等教育出版社”出版圖書的圖書編號、作者、單價和庫存數量。Select圖書編號,作者姓名,單價,庫存數量

from圖書where圖書.出版社名="高等教育出版社";73查詢各分類號在2006年后出版圖書的冊數（庫存數量），結果按其冊數由高到低列示。Select分類號,sum(庫存數量)as冊數

from圖書whereyear(出版時間)>=2006

groupby分類號orderbysum(庫存數量)desc;出版時間>=#2006-01-01#74查詢各分類名稱在2006年后出版圖書的冊數（庫存數量），結果按其冊數由高到低列示。Select分類號,sum(庫存數量)as冊數

from圖書whereyear(出版時間)>=2006

groupby分類號orderbysum(庫存數量)desc;75查詢各分類名稱在2006年后出版圖書的冊數（庫存數量），結果按其冊數由高到低列示。Select分類名稱,sum(庫存數量)as冊數

from圖書,圖書分類where圖書.分類號=圖書分類.分類號andyear(出版時間)>=2006

groupby分類名稱orderbysum(庫存數量)desc;76查詢至今尚未歸還書籍的讀者姓名、性別、工作單位、及未還圖書的名稱。Select姓名,性別,工作單位,圖書名稱

from讀者,借閱,圖書where讀者.讀者編號=借閱.讀者編號and借閱.圖書編號=圖書.圖書編號andnot是否歸還;776、查詢是否有某單位，該單位的所有讀者都從未借閱過“文學類”圖書。7、查詢“馬明”所在單位借閱圖書總冊數和總價。8、查詢單價高于庫存平均單價3倍以上的圖書的編號、名稱、作者、出版社、出版時間和單價。9、未歸還的圖書，借閱表中的歸還日期是指到期應該歸還的日期。查詢有3本及3本以上應歸還而未歸還的讀者所借全部未歸還圖書，包括讀者工作單位、讀者編號、圖書編號、圖書名稱、借閱日期、歸還日期。SQL操作78查詢是否有某單位，該單位的所有讀者都從未借閱過“文學類”圖書。Selectdistinct工作單位

from讀者where工作單位

notin(Selectdistinct工作單位

from讀者,借閱,圖書,圖書分類where讀者.讀者編號=借閱.讀者編號

and借閱.圖書編號=圖書.圖書編號and圖書.分類號=圖書分類.分類號and分類名稱="文學類"

);79查詢是否有某單位，該單位的所有讀者都從未借閱過“文學類”圖書。Selectdistinct工作單位

from讀者where讀者編號notin(Selectdistinct讀者編號

from讀者,借閱,圖書,圖書分類where讀者.讀者編號=借閱.讀者編號

and借閱.圖書編號=圖書.圖書編號and圖書.分類號=圖書分類.分類號and分類名稱="文學類"

);有何問題？80查詢“馬明”所在單位借閱圖書總冊數和總價。Selectcount(*)as借書冊數,sum(單價)as借書總價

from讀者,借閱,圖書

where讀者.讀者編號=借閱.讀者編號

and借閱.圖書編號=圖書.圖書編號and工作單位

=(Select工作單位

from讀者where姓名="馬明");如果考慮多個單位有“馬明”！81查詢“馬明”所在單位借閱圖書總冊數和總價。Select工作單位,count(*)as冊數,sum(單價)as總價

from讀者,借閱,圖書

where讀者.讀者編號=借閱.讀者編號

and借閱.圖書編號=圖書.圖書編號and工作單位

in(Select工作單位

from讀者where姓名="馬明")groupby工作單位;82查詢單價高于庫存平均單價3倍以上的圖書的編號、名稱、作者、出版社、出版時間和單價。Select圖書編號,圖書名稱,作者姓名,出版社名,出版時間,單價

from圖書

where單價/3>=(Selectavg(單價)

from圖書);83未歸還的圖書，借閱表中的歸還日期是指到期應該歸還的日期。查詢有3本及3本以上應歸還而未歸還的讀者所借全部未歸還圖書，包括讀者工作單位、讀者編號、姓名、圖書編號、圖書名稱、借閱日期、是否歸還、歸還日期。Select工作單位,讀者.讀者編號,姓名,

圖書.圖書編號,圖書名稱,借閱日期,是否歸還,歸還日期

from讀者,借閱,圖書

where讀者.讀者編號=借閱.讀者編號

and借閱.圖書編號=圖書.圖書編號andnot是否歸還and讀者.讀者編號in(Select讀者編號

from借閱wherenot是否歸還

and歸還日期<date()groupby讀者編號havingcount(*)>=3);8410、插入一個讀者的信息，讀者編號：01200196、姓名：程超、性別：男、工作單位：信息管理學院、身份證號11、從圖書表中刪除編號為“TP01-36027”的圖書信息。12、將讀者“01200127”所借圖書“TP02-32026”的歸還日期修改為2012年12月1日。13、將讀者“李曉”所借圖書改為“已歸還”。14、將“計算機應用類”的圖書單價減少10%。15、刪除讀者“陳思”的借書記錄。SQL操作85插入一個讀者的信息，讀者編號：01200196、姓名：程超、性別：男、工作單位：信息管理學院、身份證號insertinto讀者(讀者編號,姓名,性別,工作單位,身份證號)values("01200196",

"程超",

"男",

"信息管理學院",

);86從圖書表中刪除編號為“TP01-36027”的圖書信息。deletefrom圖書where圖書編號="TP01-36027";87將讀者“01200127”所借圖書“TP02-32026”的歸還日期修改為2012年12月1日。update借閱set歸還日期=#2012-12-01#where讀者編號="01200127"and圖書編號="TP02-32026";88將讀者“李曉”所借圖書改為“已歸還”。update借閱set是否歸還=truewhere讀者編號in

(select讀者編號from讀者where姓名

="李曉");

用多表關聯代替子查詢！89將讀者“李曉”所借圖書改為“已歸還”。update借閱,讀者

set是否歸還=truewhere借閱.讀者編號=讀者.讀者編號

and姓名="李曉";90將“計算機應用類”的圖書單價減少10%。update圖書set單價=單價*0.9where分類號in

(select分類號from圖書分類where分類名稱="計算機應用類");

用多表關聯代替子查詢！91將“計算機應用類”的圖書單價減少10%。update圖書,圖書分類

set單價=單價*0.9where圖書.分類號=圖書分類.分類號

and分類名稱="計算機應用類";92刪除讀者“陳思”的借書記錄。deletefrom借閱where讀者編號in

(select讀者編號from讀者where姓名="陳思");

93PrivateSubtest01()DimsAsInteger,kAsIntegers=0k=1dowhilek<=20s=s+kk=k+kloopDebug.Prints,kEndSub程序閱讀（寫出程序的運行結果）1、

3132ks011234781516313294PublicSubtest02()DimxAsInteger,kAsIntegerx=1234Fork=1to5x=int(x/2)NextDebug.Print"x=";xEndSub程序閱讀（寫出程序的運行結果）2、

x=38kx1234161723083154477538695PublicSubtest03()DimxAsInteger,nAsIntegerx=0Forn=2to19Step3Ifn>10ThenExitForEndIfIfnMod2=0Thenx=x+nEndIfNextDebug.Print"x=",xDebug.Print"n=",nEndSub程序閱讀（寫出程序的運行結果）3、x=10n=11nx02258101196PublicSubtest04()DimiAsInteger,jAsIntegerDimsAsIntegerFori=6to4Step-1s=0Forj=ito3Step-1s=s+i*jNextNextDebug.Print"s=";sEndSub程序閱讀（寫出程序的運行結果）4、s=28ijs6063656649031082505254453602404163282397PublicSubtest05()DimxAsIntegerDimiAsInteger,jAsIntegerx=0Fori=1To3Forj=1Toix=x+1NextNextDebug.PrintxEndSub程序閱讀（寫出程序的運行結果）5、6ijx01112212233314253644PublicSubtest06()DimmAsInteger,sAsIntegerDimkAsIntegerm=42s=0k=1DoWhilek<=Int(m/3)IfmModk=0ThenDebug.Printks=s+kEndIfk=k+1LoopDebug.Print"s=";sEndSub98程序閱讀（寫出程序的運行結果）6、1236714s=33kms42011233645612719891011121314331599PublicSubtest07()DimmAsInteger,nAsIntegerm=2Dowhilem<4n=m+1Dowhilen<=8Debug.Printm+n;n=n+2Loopm=m+1LoopEndSub程序閱讀（寫出程序的運行結果）7、5797911mnm+n2355779934769811104100PublicSubtest08()DimxAsInteger,nAsIntegern=0Fork=1to75Ifk/3=int(k/3)andkmod5=0ThenDebug.Printk;n=n+1EndIfNextDebug.PrintDebug.Print"n=";nEndSub程序閱讀（寫出程序的運行結果）8、1530456075n=5kn01...151...302...453...604…75576101PrivateSubTest09()DimxAsInteger,nAsIntegerx=0DoWhilex<50x=(x+1)*(x+2)n=n+1LoopDebug.Printx;nEndSub程序閱讀（寫出程序的運行結果）9、1823xn0211221823102PublicSubtest10()DimNAsInteger,PAsIntegerDimQAsInteger,SAsIntegerS=1:N=1:P=1:Q=1DoWhileN>0S=S+QN=PP=QQ=N+QIfQ>=10ThenExitDoEndIfLoopDebug.Print"S="+Trim(Str(S))Debug.Print"Q="+Trim(Str(Q))EndSub程序閱讀（寫出程序的運行結果）10、S=20Q=13SNPQ111121124123723512358205813103PublicSubtest11()DimaAsInteger,bAsInteger,xAsInteger,iAsIntegerDimsAsDoublea=1:b=2:s=0

Fori=1To20

s=________x=a+ba=bb=x

________Debug.Print"2/1+3/2+5/3+8/5+13/8+21/13+...=";sEndSub程序填空1、求分數數列

的前20項之和。s+b/aNext104PublicSubtest12()DimaAsInteger,bAsInteger,cAsInteger,xAsIntegerForx=100To999

a=x\100b=x\10Mod10c=____________

Ifx=a^3+b^3+c^3Then

Debug.Printx________NextEndSub程序填空2、輸出所有的水仙花數。所謂的水仙花數，是1個3位數，其值等于該數中各位數字的立方和。EndIfxMod101051、使用InputBox函數輸入一個整數，編程判斷該數是奇數還是偶數，并輸出奇數或偶數的提示信息。

2、編程完成下列圖形的打印。其中第一行的*所在列為第20列。編程*************************12223333344444445555555551061、使用InputBox函數輸入一個整數，編程判斷該數是奇數還是偶數，并輸出奇數或偶數的提示信息。PublicSubProg01()DimxAsInteger

x=val(InputBox("輸入一個整數"))IfxMod2=0Then

Debug.Print"該數是偶數！"Else

Debug.Print"該數是奇數！"EndIfEndSub1072、編程完成下列圖形的打印。其中第一行的*所在列為第20列。PublicSubProg02_1()DimiAsInteger,jAsInteger,nAsIntegern=val(InputBox("請輸入圖形的行數N"))Fori=1TonDebug.PrintTab(21-i);Forj=1To2*i-1Debug.Print"*";NextDebug.PrintNextEndSub*************************PublicSubProg02_2()DimiAsInteger,nAsIntegern=val(InputBox("請輸入圖形的行數N"))Fori=1TonDebug.PrintTab(21-i);String(2*i-1,

"*")NextEndSub1082、編程完成下列圖形的打印。其中第一行的“1”所在列為第20列（最多9行）。PublicSubProg02_3()DimiAsInteger,jAsInteger,nAsIntegern=val(InputBox("請輸入圖形的行數N"))Fori=1TonDebug.PrintTab(21-i);Forj=1To2*i-1Debug.Printtrim(i);NextDebug.PrintNextEndSubPublicSubProg02_4()DimiAsInteger,nAsIntegern=val(InputBox("請輸入圖形的行數N"))Fori=1Ton

Debug.PrintTab(21-i);String(2*i-1,trim(i))NextEndSub

12223333344444445555555551093、編程輸出（顯示到立即窗體）300到500之間能被11整除的數，并求這些數的個數以及它們的和。4、編程求S=1！+3！+5！+…+15！的和，并將結果輸出到立即窗體中。編程1103、編程輸出（顯示到立即窗體）300到500之間能被11整除的數，并求這些數的個數以及它們的和。PublicSubProg03()DimiAsInteger,nAsIntegerDimsAsInteger

n=0:s=0

Fori=300To500

IfiMod11=0Then

Debug.Printi;n=n+1s=s+I

EndIf

NextDebug.Print

Debug.Print"個數：";nDebug.Print"和：";sEndSub1114、編程求S=1！+3！+5！+…+15！的和，并將結果輸出到立即窗體中。PublicSubProg04()DimiAsInteger,pAsDouble,sAsDoublep=1s=1Fori=3To15Step2p=p*(i-1)*is=s+pNextDebug.Print"1!+3!+5!+…+15!=";sEndSub1125、編程輸入n，求S=1+3+5…+（2*n-1）的和。6、編程輸出下列形狀的圖形，其中第一行左側第一個*所在列為第11列，圖形的行數和每行的*個數由用戶輸入。編程******************************1135、編程求S=1+3+5…+（2*n-1）的和，其中n由用戶輸入。PublicSubProg05()DimiAsInteger,nAsInteger,sAsLong

n=val(InputBox("輸入一個整數")

)

s=0Fori=1To2*n-1Step2s=s+iNext

Debug.Print"1+3+5…+(2*n-1)=";sEndSub1146、編程輸出下列形狀的圖形，其中第一行左側第一個*所在列為第11列，圖形的行數和每行的*個數由用戶輸入。PublicSubProg06_1()DimiAsInteger,jAsIntegerDimmAsInteger,nAsIntegerm=val(InputBox("請輸入圖形的行數M"))n=val(InputBox("輸入每行數*的個數N"))Fori=1TomDebug.PrintTab(10+i);Forj=1TonDebug.Print"*";NextDebug.PrintNextEndSub******************************PublicSubProg06_2()

DimiAsInteger,mAsInteger,nAsIntegerm=val(InputBox("請輸入圖形的行數M"))n=val(InputBox("輸入每行數*的個數N"))

Fori=1TomDebug.PrintTab(10+i);String(n,

"*")NextEndSub1157、編程求300到500之間能被3整除，或能被7整除的正整數的個數及其和，并顯示這些數到立即窗體。8、編程求S=1+（1+3）+（1+3+5）+（1+3+5+7）+…+（1+3+…+97+99）的和。編程1167、編程求300到500之間能被3整除，或能被7整除的正整數的個數及其和，并顯示這些數到立即窗體。PublicSubProg07()DimiAsInteger,nAsIntegerDimsAsLong

n=0:s=0

Fori=300To500

IfiMod3=0oriMod7=0Then

Debug.Printi;n=n+1s=s+i

EndIf

NextDebug.PrintDebug.Print"個數：";nDebug.Print"和：";sEndSub1178、編程求S=1+（1+3）+（1+3+5）+（1+3+5+7）+…+（1+3+…+97+99）的和。PublicSubProg08()DimiAsInteger,pAsLong,sAsLongp=0s=0Fori=1To99step2p=p+is=s+pNextDebug.Print"1+(1+3)+…+(1+3+…+99)=";sEndSub1189、從鍵盤上輸入一個大于2的正整數,判斷該數是不是素數。10、求數列1/1，1/2，2/3，3/5，5/8，8/13，……前1200項之和。11、從鍵盤輸入（或隨機生成）n個數，求和、最大、最小、平均。12、從鍵盤輸入（或隨機生成）n個數，按升序（或降序）輸出。編程1199、從鍵盤上輸入一個大于2的正整數,判斷該數是不是素數。PublicSubProg09()DimnAsInteger,iAsIntegerDimkAsInteger

n=InputBox("輸入一個大于2的正整數")k=Int(sqr(n))

Fori=2TokIfnmodi=0Then

ExitForEndIf

NextIfi>kThen

Debug.Printn;"是素數。"

Else

Debug.Printn;"不是素數。"

EndIfEndSub12010、求數列1/1，1/2，2/3，3/5，5/8，8/13，……前1200項之和。PublicSubProg10()DimaAsDouble,bAsDouble,xAsDouble,iAsIntegerDimsAsDoublea=1:b=1:s=0

Fori=1To1200s=s+a/bx=a+ba=bb=xNextDebug.Print"1/1,1/2,2/3,3/5,5/8,…前1200項之和";sEndSub12111、從鍵盤輸入（或隨機生成）n個數，求和、最大、最小、平均。PublicSubProg11_1()DimnAsInteger,iAsIntegerDimmaxAsInteger,minAsInteger,sAsInteger

n=InputBox("輸入數的個數")

ReDimx(1ton)AsIn