江财数据库应用考试题型与试题样例

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