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

数据库应用1考试题型与试题样例考试题型与试题样例2考试题型考试题型3单项选择（每小题1分，共10分）填空（每空1分，共10分）SQL（每小题5分，共30分）程序阅读（运行结果，每小题5分，共15分）程序填空编程（每小题6分，共24分）论述（共11分）课程成绩构成4期末闭卷笔试实

验平时(考勤)合计603010100考试题型与试题样例5主要内容涉及范围第1、3、7、8、9章6主要内容数据库、数据库管理系统、数据库系统等概念及其之间的关系数据库的基本特点数据模型关系数据库的基本数据结构关系、关系模型的概念实体、实体之间的联系关系数据库中常见的关系运算数据管理技术的发展过程等7第1章数据查询（Select）的运用：包括单表查询、多表查询、子查询（带in）插入（Insert）、更新（Update）、删除（Delete）等数据操纵语句的简单运用SQL语句中的条件（Where）、排序（OrderBy）、分组（

Group

By与Having）、通配符（like）以及distinct、between…and等的使用常用聚合函数sum()，avg()，count()等的使用8第3章基本数据类型，常量的书写，变量的定义及赋值，常用函数、运算符的运用，表达式的正确书写等主要函数数值函数：exp,log,sqr,

rnd,

abs,int字符函数：len,

left,

right,

mid,

ltrim,

rttim,

trim日期时间函数：date,

now,

time,

year,

month,

day,hour,minute输入输出函数：msgbox,

inputbox9第7章主要运算符赋值运输符：=算术运算符：(),^,+|-,*|/,\,+|-,mod字符运算符：+,&日期运算符：+,-关系运算符：>,>=,<,<=,=,<>,like(?,

*,#)逻辑运算符：and,

or,

not对象运算符：!,.10第7章流程控制三种结构的掌握和运用单分支、单循环、循环嵌套分支、循环嵌套循环等结构（例如，教材第172页编程题）单分支结构：4(1)、4(2)、4(4)单循环结构：4(5)、4(7)、4(11)单循环嵌套单分支结构（如一定范围内满足某些条件的有规律数的数、总个数、累计和等）：4(3)、4(6)、4(8)、4(9)、4(10)循环嵌套循环结构（如打印规则图形等）：4(7)、4(9)、4(10)11第8章面向对象程序设计的基本思想常用图形化界面控件元素，面向对象程序设计基本步骤，对象的基本特性根据图形化界面及其对应的功能用表描述功能的实现12第9章常用控件CommandButtonTextBoxLabelCheckBoxOptionButtonListBoxComboBox13第9章常用属性NameCaptionEnabledValue14第9章第9章

常用事件常用方法LoadOpenClickDblClickChangeAfterUpdateSetFocusAddItemRemoveItem15考试题型与相关章节主要内容16题型选择填空SQL程序阅读编程论述第1章√√第3章√√√第7章√√√√第8章√√√√第9章√√√小题数10106341小题分1155611大题分101030152411考试题型与试题样例17试题样例1、在数据库中能够唯一地标识一个元组的属性（或者属性的组合）称为（ ）。18B、记录D、域单项选择A、字段√C、主键2、作为一种数据管理技术，数据库具有许多重要特征，其中不包括（ ）。A、数据库实现了数据共享

B、数据库减少了数据冗余√C、数据库减少了数据独立性D、数据库提高了数据的安全性B、选择

D、联接19单项选择3、对于关系的描述中，正确的是（

）A、在一个关系中，关键字一定是其中的某个属性

B、同一个关系中允许存在完全相同的元组√C、同一个关系中可以交换任意两列或者任意两行的数据D、在一个关系中，同一行数据的数据类型通常是相同的4、关系数据库管理系统的3种基本关系运算不包括（ ）。√A、比较

C、投影）是合法的VBA变量名。20单项选择5、VBA对象的3个基本要素是（

）。A、属性、代码和事件√B、属性、方法和事件

C、类、方法和事件

D、属性、语句和事件6、下列符号中，仅（√A、y26B、26yC、EndD、xy-2[1]单项选择217、判断整型变量X是否能被3整除，错误的条件表达式为（ ）。A、X\3=X/3B、X

Mod

3=0C、INT(X/3)=X/3√D、X

Mod

3=INT(X/3)8、一个关系型数据库管理系统所应具备的三种基本关系操作是（ ）。√A、筛选、投影与自然连接B、编辑、浏览与替换C、插入、删除与修改D、排序、索引与查询9、代数式单项选择a

222+

b

2sin

a

-

cos

b对应的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-cosb10、设a=2，b=3，c=4，d=5，则表达式NOTa<=

c OR

4*a

=b^2 ANDb<>a+c23单项选择的值是（ ）。A、－1B、1C、True√D、Falsea<=cNot

a<=c4*a=b^2b<>a+c4*c=b^2

AND

b<>a+cTrueFalseFalseTrueFalse单项选择2411、"6234"

Like

"62?4"

的结果为（ ）。A

、FalseB、62√C、TrueD、"62"12、数学表达式6≤x≤9

在VBA中表示为（ ）。A、X

>=

6

OR X

<=

9B、X

>=

6

AND

<=

9√

C、X

>=

6

AND

X

<=

9D、X

≥

6

AND X

≤

9单项选择2513、执行以下程序段后，a值为（ ）。a=600b=80a=a+bb=a-ba=a-bA、680B、600√C、80D、520单项选择2614、关系完整性约束中，参照完整性是指（

）A、通过关系中的主关键字来实现，且不能取空值。√B、一个关系R中的主关键字与另一个关系K的外部关键字相同，且关系K中外部关键字的取值须为关系R中的主关键字存在的值。C、一个或多个属性列必须满足的约束条件。D、针对某种具体业务规则提出的关系数据库必须满足的约束条件。）数据类型。27单项选择15、表达式（a

=

0）是（ ）。A、算术表达式√B、关系表达式

C、字符串表达式

D、非法表达式16、常量“9834.56”属于（A

、日期型√B、双精度型C、整型D、布尔型）、数据操作和28）D、在一个关系中，同一行数据的数据类型通常是相同的单项选择17、数据模型的三要素是（数据的约束条件。A

、数据存储B、数据处理√C、数据结构D、数据查询18、对于关系的描述中，正确的是（A、同一个关系中允许存在完全相同的元组√B、同一个关系中元组的次序无关紧要

C、在一个关系中，属性可以再分割）29单项选择19、结构化程序设计的三种基本逻辑结构是（

）√A、顺序结构、循环结构和选择结构B、选择结构、循环结构和嵌套结构

C、选择结构、循环结构和模块结构

D、顺序结构、循环结构和递归结构20、Access

数据库的数据模型是（A、层次型

B、网状型√C、关系型

D、混合型单项选择3021、

"5834"like"58#4"的结果为（

）。A、FalseB、58√C、TrueD、"58"22、数据库完整性有（ ）。A、实体完整性、参照完整性、域完整性、数据完整性√B、实体完整性、参照完整性、域完整性、用户定义完整性C、实体完整性、参照完整性、域完整性、规划完整性D、实体完整性、参照完整性、域完整性、设计完整性）谓词确31单项选择23、使用SQL语句查询时，可使用（定范围。A、INB、NOT

IN√C、BETWEEN…AND…D、都不可以24、下列命令中可以显示"财经"是（ ）。A、?mid("江西财经大学",3,4)√B、?mid("江西财经大学",3,2)C、?mid("江西财经大学",4,

4)D、?mid("江西财经大学",4,

2)填空321、表达式包含了赋值运算符（=），试问对还是错？

错

。2、SQL语句中求和、求平均、求最大值、求最小值的聚合函数英文名称分别为

Sum

、

Avg

、

Max

和

Min

。3、两种常见数据库系统应用模式为客户/服务器（C/S）模式和

浏览器/服务器（B/S）模式。4、两个数据表实现自然连接操作的约束条件是两个数据表间存在

外键约束

。5、表达式(8+2*3^2)\(12/3)-7

mod

2的结果为常量9、二维表中的每一行在关系中称为

。填空6、关系数据库中PK表示主键，FK表示外键。7、常见的逻辑运算包括：

Not

、

And

和

Or

。8、写出2012年12月20日15时32分50秒的日期型#2012-12-20

15:32:50#。元组10、在关系运算中，查找满足一定条件的元组的运算称之为

选择运算

。

5

。26334

112、在Access中，属性对应表中的填空34字段。12、二维表中的每一列在关系中称为

属性

。13、对某个关系进行选择，投影或联接运算后，运算的结果是一个

关系

。14、设XY="56"，X=5，Y=6，则表达式VAL(XY)

MOD X*Y的值是

26

。15、表达式mid("2008

BEIJING

OLYMPIC

GAMES",6,7)的值是

BEIJING

。16、在VBA环境中，在立即窗口先后输入

A="6"35填空B="9"A=A+BB=B+A?

B等命令后，显示的结果是＿9＿69＿。17、在VBA环境中，在立即窗口先后输入

A=636填空B=9A=A+BB=B+A?

B等命令后，显示的结果是＿2＿4＿。18、若N=32，37填空则表达式

N/(N

MOD5)的值是＿1＿6

。19、若系统是现今的日期和时间，则YEAR(DATE)的值为＿＿20＿12＿＿。20、执行下面的程序段后，立即窗口输出的（K的值）是＿＿-1＿。For

K=9

To

1

Step

-2NextDebug.Print

KSQL操作381、输出家庭成员表中所有的“与学生关系”字段的值，要求去除重复的记录。2、使用SQL通配符求籍贯是江苏各地或浙江个地的同学总人数。3、求所有信息管理学院学生的学号、姓名、性别、出生日期和入学成绩。39SQL操作输出家庭成员表中所有的“与学生关系”字段的值，要求去除重复的记录。40Select

distinct

与学生关系from

家庭成员表;使用SQL通配符求籍贯是江苏各地或浙江各地的同学总人数。41Select count(*)as

总人数from

学生表where

籍贯like"江苏*"or

籍贯like"浙江*";求所有信息管理学院学生的学号、姓名、性别、42出生日期和入学成绩。Select

学号,姓名,性别,出生日期,入学成绩from

学生表,班级表where

学生表.班号=班级表.班号and

学院="信息管理学院";4、查询获得总学分在30分以上的同学学号、姓名、班号和总学分。5、查询选修了《数据库应用》的学生的学号、姓名和该课程成绩。6、查询未选修《数据库应用》的学生的学号、姓名、性别和班号，并按学号升序输出。43SQL操作查询获得总学分在30分以上的同学学号、姓名、44班号和总学分。Select

学生表.学号,姓名,班号,sum(学分)as

总学分from

学生表,课程表,成绩表where

课程表.课程号=成绩表.课程号

and

学生表.学号=成绩表.学号

and

成绩>=60group

by

学生表.学号,姓名,班号having

sum(学分)>=30;查询选修了《数据库应用》的学生的学号、姓名和该课程成绩。45Select

学生表.学号,姓名,成绩from

学生表,课程表,成绩表where

课程表.课程号

=

成绩表.课程号and

学生表.学号

=

成绩表.学号and

课程名

= "数据库应用";查询未选修《数据库应用》的学生的学号、姓名、性别和班号，并按学号升序输出。46Select

学号,姓名,性别,班号from

学生表where

学号

not

in(Select

学号from

课程表,成绩表where

课程表.课程号=成绩表.课程号and

课程名

= "数据库应用"

)orderby

学号;7、求是少数民族且1990年至1992年出生的同学人数。8、求姓张或姓王的同学的学号、姓名、性别、出生日期和入学成绩。9、查询李小明同学的成绩单，具体内容包括：课程号、课程名、学分和成绩。47SQL操作求是少数民族且1990年至1992年出生的同学人数。48Select

count(*) as

人数from

学生表where

民族

<> "汉族"and

year(出生日期)

>=

1990and

year(出生日期)

<=

1992;求姓张或姓王的同学的学号、姓名、性别、出生日期和入学成绩。49Select

学号,姓名,性别,出生日期,入学成绩from

学生表where

姓名

like "张*"

or

姓名

like "王*"

;查询李小明同学的成绩单，具体内容包括：课程号、课程名、学分和成绩。50Select

成绩表.课程号,课程名,学分,成绩from

学生表,课程表,成绩表where

学生表.学号=成绩表.学号and

课程表.课程号=成绩表.课程号and

姓名="李小明";10、查询获得学分30分以上的同学学号、姓名、获得学分的课程号、课程名、学分、成绩。11、查询“李晓明”所在班“数据库应用”课程的成绩，要求由高分到低分显示姓名、性别、成绩。12、查询与“陈小平”同学同班的学生所获得的学分数，要求列示班号、学号、姓名、获得学分。51SQL操作查询获得学分30分以上的同学学号、姓名、获得学分的课程号、课程名、学分、成绩。52Select

学生表.学号,姓名,课程表.课程号,课程名,学分,成绩from

学生表,课程表,成绩表where

课程表.课程号=成绩表.课程号

and

学生表.学号=成绩表.学号

and

学生表.学号in(

Select

成绩表.学号from

课程表,成绩表where

课程表.课程号=成绩表.课程号and

成绩

>=

60group

by

成绩表.学号having

sum(学分)>=30

);查询“李晓明”所在班“数据库应用”课程的成绩，要求由高分到低分显示姓名、性别、成53绩。Select

姓名,性别,成绩from

学生表,课程表,成绩表where

课程表.课程号=成绩表.课程号

and

学生表.学号=成绩表.学号

and

课程名="数据库应用"and

学生表.班号

in(

Select

班号from

学生表where

姓名="李晓明")order

by

成绩desc;查询与“陈小平”同学同班的学生获得的学分数，要求列示班号、学号、姓名、获得学分。54Select班号,学生表.学号,姓名,sum(学分)as

获得学分from

学生表,课程表,成绩表where

课程表.课程号

=

成绩表.课程号and

学生表.学号

=

成绩表.学号and

成绩

>=

60and

学生表.班号

in(

Select

班号from

学生表where

姓名="陈小平")group

by

班号,学生表.学号,姓名;SQL操作551、查询“邮电出版社”出版的图书名称和价格。2、查询工作单位为“信息管理学院”的读者姓名。3、按出版社名称，求各出版社出版的图书数量。4、查询名称中包含“电脑”二字的所有图书的题名、作者、出版社和价格。5、查询读者“陈琳琳”所借阅图书的所属出版社（去除重复的记录）。6、查询作者“马虎虎”的图书为哪些读者及工作单位所借阅。56SQL操作查询“邮电出版社”出版的图书名称和价格。Select

题名,价格from

图书表where

出版社="邮电出版社";57查询工作单位为“信息管理学院”的读者姓名。Select

姓名from

读者表where

单位="信息管理学院";58按出版社名称，求各出版社出版的图书数量。Select

出版社,count(*)as

图书数量from

图书表group

by

出版社;59查询名称中包含“电脑”二字的所有图书的题名、作者、出版社和价格。Select

题名,作者,出版社,价格from

图书表where

题名like"*电脑*";60查询读者“陈琳琳”所借阅图书的所属出版社（去除重复的记录）。Select

distinct

出版社from

读者表,借阅表,图书表,图书条码表where

读者表.证件号=借阅表.证件号and

图书表.索书号=图书条码表.索书号

and

借阅表.条码号=图书条码表.条码号

and

姓名="陈琳琳";61查询作者“马虎虎”的图书为哪些读者及工作单位所借阅。Select

证件号,姓名,工作单位from

读者表,借阅表,图书表,图书条码表where

读者表.证件号=借阅表.证件号and

图书表.索书号=图书条码表.索书号

and

借阅表.条码号=图书条码表.条码号

and

作者="马虎虎";62SQL操作631、查询所有男性读者的姓名、性别和身份证号，结果按年龄从大到小（升序）排列。2、查询读者编号及其未归还图书的数量。3、查询“高等教育出版社”各图书的图书编号、作者、单价和库存数量。4、查询各分类号在2006年后出版图书的册数（库存数量），结果按其册数由高到低列示。5、查询至今尚未归还书籍的读者姓名、性别、工作单位、及未还图书的名称。64SQL操作查询所有男性读者的姓名、性别和身份证号，结果按年龄从大到小（升序）排列。Select

姓名,性别,身份证号from

读者order

bymid(身份证号,7,8);65查询读者编号及其未归还图书的数量。Select

读者.读者编号,count(*)as

未还图书数量from

读者,借阅where

读者.读者编号=借阅.读者编号and

not

是否归还group

by

读者.读者编号;66查询“高等教育出版社”各图书的图书编号、作者、单价和库存数量。Select

图书编号,作者姓名,单价,库存数量from

图书where

图书.出版社名="高等教育出版社";67查询各分类号在2006年后出版图书的册数（库存数量），结果按其册数由高到低列示。Select

分类号,sum(库存数量)as

册数from

图书where

year(出版时间)>=

2006group

by

分类号orderby

sum(库存数量)desc;68查询至今尚未归还书籍的读者姓名、性别、工作单位、及未还图书的名称。Select

姓名,性别,工作单位,图书名称from

读者,借阅,图书where

读者.读者编号

=

借阅.读者编号and

借阅.图书编号

=

图书.图书编号and

not

是否归还;696、查询是否有某单位，该单位的所有读者都从未借阅过“文学类”图书。7、查询“马明”所在单位借阅图书中册数和总价。8、查询单价高于库存平均单价3倍以上的图书的编号、名称、作者、出版社、出版时间和单价。9、未归还图书，借阅表中的归还日期是指到期应该归还的日期。查询有3本及3本以上应归还而未归还的读者所借全部未归还图书，包括读者工作单位、读者编号、图书编号、图书名称、借阅日期、归还日期。70SQL操作查询是否有某单位，该单位的所有读者都从未借阅过“文学类”图书。Select distinct

工作单位from

读者where

工作单位

not

in(Select

工作单位from

读者,借阅,图书,图书分类where

读者.读者编号

=借阅.读者编号and

借阅.图书编号

=

图书.图书编号and

图书.分类号

=图书分类.分类号and

分类名称

=

"文学类"

);71查询“马明”所在单位借阅图书中册数和总价。Select count(*)

as

借书册数,sum(单价)as

借书总价from

读者,借阅,图书where

读者.读者编号

=借阅.读者编号and

借阅.图书编号

=图书.图书编号and

工作单位

=(Select

工作单位from

读者where

姓名="马明");72查询单价高于库存平均单价3倍以上的图书的编号、名称、作者、出版社、出版时间和单价。Select图书编号,图书名称,作者姓名,出版社名,出版时间,单价from

图书where

单价/3>=(Select

avg(单价)from

图书

);73未归还图书，借阅表中的归还日期是指到期应该归还的日期。查询有3本及3本以上应归还而未归还的读者所借全部未归还图书，包括读者工作单位、读者编号、姓名、图书编号、图书名称、借阅日期、是否归还、归还日期。74Select

工作单位,读者.读者编号,姓名,图书.图书编号,图书名称,借阅日期,是否归还,归还日期from

读者,借阅,图书where

读者.读者编号

=

借阅.读者编号and

借阅.图书编号

=

图书.图书编号and

读者.读者编号

in(Select

读者.读者编号from

读者,借阅where

读者.读者编号=借阅.读者编号and not

是否归还and

归还日期

<

date()group

by

读者.读者编号having count(*)

>=

3

);Private

Sub

test01()Dim

s

As

Integer,

k

As

Integers

=

0k

=

1do

while

k

<=

20s

=

s

+

kk

=

k

+

kloopDebug.Print s,

kEnd

Sub75程序阅读（写出程序的运行结果）1、3132ks0112347815163132Public

Sub

test02()Dim

x

As

Integer,

k

As

Integerx

=

1234For

k

=

1

to

5x

=

x\2NextDebug.Print

"x=";

xEnd

Sub76程序阅读（写出程序的运行结果）2、x=

38kx12341617230831544775386Public

Sub

test03()Dim

x

As

Integer,

n

As

Integerx

=

0For

n

=

2

to

19

Step

3If n

>

10

ThenExit

ForEnd

IfIf n

Mod

2

=

0

Thenx

=

x

+

nEnd

IfNextDebug.Print

"x=",xDebug.Print

"n=",nEnd

Sub程序阅读（写出程序的运行结果）3、77x=n=1011nx022581011Public

Sub

test04()Dim

i

As

Integer,

j

As

IntegerDim

s

As

IntegerFor

i

=

6

to

4

Step

-1s=0For

j

=

i

to

3

Step

-1s=

s

+

i

*

jNextNextDebug.Print

"s=";sEnd

Sub程序阅读（写出程序的运行结果）4、78s=

28ijs6063656648039825052544536024041632823Public

Sub

test05()Dim

x

As

IntegerDim

i

As

Integer,

j

As

Integerx

=

0For

i

=

1

To

3For

j

=

1

To

ix

=

x

+

1NextNextDebug.Print

xEnd

Sub79程序阅读（写出程序的运行结果）5、6ijx01112212233314253644Public

Sub

test06()Dim

m

As

Integer,

s

As

IntegerDim

k

As

Integerm

=

42s

=

0k

=

1Do

While

k

<=

Int(m

/

3)If m

Mod

k

=

0

ThenDebug.Print

ks

=

s

+

kEnd

Ifk

=

k

+

1LoopDebug.Print

"s=";

sEnd

Sub程序阅读（写出程序的运行结果）6、801236714s=

33kms420112336456127198910111213143315Public

Sub

test07()Dim

m

As

Integer,

n

As

Integerm

=

2Do

while

m

<4n

=

m

+

1Do

while

n

<=

8Debug.Print

m

+

n;n

=

n

+

2Loopm

=

m

+

1LoopEnd

Sub程序阅读（写出程序的运行结果）7、815

7

9

7

9

11mnm+n2355779934769811104Public

Sub

test08()Dim

x

As

Integer,

n

As

Integern

=0For

k

=

1

to

75If k/3=int(k/3)and

k

mod

5

=

0

ThenDebug.Print

k;n

=

n

+

1End

IfNextDebug.PrintDebug.Print "n=";

nEnd

Sub程序阅读（写出程序的运行结果）8、15

30

45

60

75n=

5k82n01...151...302...453...604…75576Private

Sub

Test09()Dim

x

As

Integer,

n

As

Integerx=0Do

While

x<50x=(x+1)*(x+2)n=n+1LoopDebug.Print x;

nEnd

Sub83程序阅读（写出程序的运行结果）9、182

3xn0211221823Public

Sub

test10()Dim

N

As

Integer,

P

As

Integer

Dim

Q

As

Integer,

S

As

Integer

S

=

1:N

=

1:P

=

1:Q

=

1Do

While

N

>

0S

=

S

+

Q

N

=

PP

=

QQ

=

N

+

QIf Q

>=

10

ThenExit

DoEnd

IfLoopDebug.Print

"S="

+

Trim(Str(S))Debug.Print

"Q="

+

Trim(Str(Q))End

Sub程序阅读（写出程序的运行结果）10、84S=20Q=13SNPQ111121124123723512358205813程序填空的前20项之和。851

2

3

5

8

131、求分数数列2

,3

,5

,8

,13

,21

,Public

Sub

test11(

)Dim

a

As

Integer,

b

As

Integer,

x

As

Integer,

i

As

IntegerDim

s

As

Doublea

=

1:

b

=

2:

s

=

0For

i

=

1

To

20s

=

s+b/a

x

=

a

+

ba

=

bb

=

x

Next

Debug.Print

"2/1+3/2+5/3+8/5+13/8+21/13+...=";

sEnd

Sub程序填空862、输出所有的水仙花数。所谓的水仙花数，是1个3位数，其值等于该数中各位数字的立方和。Public

Sub

test12(

)Dim

a

AsInteger,

b

As

Integer,

c

As

Integer,

x

As

IntegerFor

x

=

100

To

999a

=

x

\

100b

=

x

\

10

Mod10c= x

Mod

10

If

x

=

a

^

3

+

b

^

3

+

c

^

3

ThenDebug.Print

xEnd

If

NextEnd

Sub1、使用InputBox函数输入一个整数，编程判断该数是奇数还是偶数，并输出奇数或偶数的提示信息。872、编程完成下列图形的打印。其中第一行的*所在列为第20列。编程*************************12223333344444445555555551、使用InputBox函数输入

一个整数，编程判断

该数是奇

数还是偶

数，并输

出奇数或

偶数的提

示信息。Public

Sub

Prog01()88Dim

x

As

Integerx=val(InputBox("输入一个整数"))If

x

Mod

2=0

ThenDebug.Print"该数是偶数！"ElseDebug.Print"该数是奇数！"End

IfEnd

SubPublic

Sub

Prog02_1()Dim

i

As

Integer,

j

As

Integer,

n

As

Integern=val(InputBox("请输入图形的行数N"))

For

i=1

To

nDebug.Print Tab(21

-

i);For

j

=

1

To

2*i-

1Debug.Print

"*";NextDebug.PrintNextEnd

Sub892、编程完成下列图形的打印。其中第一行的*所在列为第20列。*************************Public

Sub

Prog02_2()Dimi

AsInteger,n

AsIntegern=val(InputBox("请输入图形的行数N"))

For

i=1

To

nDebug.Print Tab(21

-

i);String(2*i-1,

"*")NextEnd

SubPublic

Sub

Prog02_3()Dim

i

As

Integer,

j

As

Integer,

n

As

Integern=val(InputBox("请输入图形的行数N"))

For

i=1

To

nDebug.Print Tab(21

-

i);For

j

=

1

To

2*i-

1Debug.Print

trim(i);NextDebug.PrintNextEnd

Sub90Public

Sub

Prog02_4()Dimi

AsInteger,n

AsIntegern=val(InputBox("请输入图形的行数N"))

For

i=1

To

nDebug.Print Tab(21

-

i);String(2*i-1,

trim(i))NextEnd

Sub2、编程完成下列图形的打印。其中第一行的“1”所在列为第20列（最多9行）。12223333344444445555555553、编程输出（显示到立即窗体）300到500之间能被11整除的数，并求这些数的个数以及它们的和。4、编程求S=1！+3！+5！+…+15！的和，并将结果输出到立即窗体中。91编程3、编程输出（显示到立即窗体）300到500之间能被11整除的数，并求这些数的个数以及它们的和。Public

SubProg03()Dim

i

As

Integer,

n

As

IntegerDim

s

As

Integer92n

=

0:

s=

0Fori=

300

To500If

i

Mod

11

=

0

ThenDebug.Print

i;n

=

n

+

1s

=

s

+IEnd

IfNextDebug.PrintDebug.Print

"个数：";

nDebug.Print

"和 ：";

sEnd

Sub4、编程求S=1！+3！+5！+…+15！的和，并将结果输出到立即窗体中。93Public

SubProg04()Dimi

As

Integer,

p

As

Double,

s

As

Doublep

=1s

=

1For

i

=

3

To

15 Step

2p

=

p

*

(i

-1)

*

is

=

s+

pNextDebug.Print

"1!

+

3!

+5!

+

…

+

15!

=

";sEnd

Sub5、编程输入n，求S=1+3+5…+（2*n-1）的和。94编程6、编程输出下列形状的图形，其中第一行左侧第一个*所在列为第11列，图形的行数和每行的*个数由用户输入。******************************5、编程求S=1+3+5…+（2*n-1）的和，其中n由用户输入。Public

Sub

Prog05()Dim

i

As

Integer,

n

As

Integer,

s

As

Longn=val(InputBox("输入一个整数"))s

=

0For

i

=

1

To

2

*

n

-

1

Step

2s

=

s

+

iNextDebug.Print

"1+3+5…+(2*n-1)

=

";

sEnd

Sub956、编程输出下列形状的图形，其中第一行左侧第一个*所在列为第11列，图形的行数和每行的*个数由用户输入。Public

Sub

Prog06_1()Dim

i

As

Integer,

j

As

IntegerDim

m

As

Integer, n

As

Integerm=val(InputBox("请输入图形的行数M"))n=val(InputBox("输入每行数*的个数N"))

For

i=1

To

mDebug.Print Tab(10

+

i);For

j

=

1

To

nDebug.Print

"*";NextDebug.PrintNextEnd

Sub******************************Public

Sub

Prog06_2()Dim

i

As

Integer,

m

As

Integer,

n

AsIntegerm=val(InputBox("请输入图形的行数M"))n=val(InputBox("输入每行数*的个数N"))

For

i=1

To

mDebug.Print Tab(10

+

i);String(n,

"*")NextEnd

Sub967、编程求300到500之间能被3整除，或能被7整除的正整数的个数及其和，并显示这些数到立即窗体。978、编程求S=1+（1+3）+（1+3+5）+（1+3+5+7）+…+（1+3+…+97+99）的和。编程7、编程求300到500之间能被3整除，或能被7整除的正整数的个数及其和，并显示这些数到立即窗体。Public

SubProg07()Dim

i

As

Integer,

n

As

IntegerDim

s

As

Long98n

=

0

:

s

=

0Fori=

300

To500If

i

Mod

3=

0

or

i

Mod

7=

0

ThenDebug.Print

i;n

=

n

+

1s

=

s

+

iEnd

IfNextDebug.PrintDebug.Print

"个数：";

nDebug.Print

"和 ：";

sEnd

Sub8、编程求S=1+（1+3）+（1+3+5）+（1+3+5+7）99+…+（1+3+…+97+99）的和。Public

SubProg08()Dim

i

As

Integer,

p

As

Long,

s

As

Longp

=0s

=

0For

i

=

1

To

99

step

2p

=

p

+

is

=

s+

pNextDebug.Print

"1+(1+3)+…+(1+3+…+99)

=

";

sEnd

Sub9、从键盘上输入一个大于2的正整数,判断该数是不是素数。10010、求数列1/1，1/2，2/3，3/5，5/8，8/13，……前1200项之和。11、从键盘输入（或随机生成）n个数，求和、最大、最小、平均。12、从键盘输入（或随机生成）n个数，按升序（或降序）输出。编程9、从键盘上输入一个大于2的正整数,判断该数是不是素数。Public

Sub

Prog09()Dim

n

As

Integer,

i

As

IntegerDim

k

As

Integern=InputBox("输入一个大于2的正整数")k=Int(sqr(n))For

i

=

2

To

kIf

n

mod

i

=

0

ThenExit

ForEnd

IfNextIf

i

>

k

Then101n;"是素数。"n;"不是素数。"Debug.PrintElseDebug.PrintEnd

IfEnd

Sub10、求数列1/1，1/2，2/3，3/5，5/8，8/13，……前1200项之和。Public

Sub

Prog10(

)Dim

a

As

Double,

b

As

Double,

x

As

Double,

i

As

IntegerDim

s

AsDoublea

=

1:

b

=

1:

s

=

0For

i

=

1

To

1200s

=

s

+

a

/

b

x

=

a

+

ba

=

bb

=

xNextDebug.Print"1/1,1/2,2/3,3/5,5/8,…前1200项之和";sEnd

Sub10211、从键盘输入（或随机生成）n个数，求和、最大、最小、平均。Public

Sub

Prog11_1()103Dim

n

As

Integer,

i

As

IntegerDim

max

AsInteger,

min

AsInteger,

s

AsIntegern=InputBox("输入数的个数")ReDim

x(1

to

n)

AsIntegerFor

i

=

1

To

nx(i)=val(InputBox("请输入第"+str(i)+"个数"))Nextmax

=

x(1)

:

min

=

x(1)

:

s

=

x(1)For

i

=

2

To

nIf

x(i)

>

max

Thenmax

=

x(i)End

IfIf

x(i)

<

minThenmin

=x(i)End

Ifs

=

s

+

x(i)NextDebug.Print"最大值：";maxDebug.Print"最小值：";minDebug.Print

"和 ：";