答案应用基础二Aluo05v2.docx

答案应用基础二Aluo05v2.docx

《答案应用基础二Aluo05v2.docx》由会员分享，可在线阅读，更多相关《答案应用基础二Aluo05v2.docx（14页珍藏版）》请在冰豆网上搜索。

答案应用基础二Aluo05v2

上海金融学院

2008——2009学年第2学期

《计算机应用基础

（二）》课程代码：

13330159

集中考试考试形式：

闭卷考试用时:

90分钟

考试时不能使用计算工具

试题纸

一、单项选择题（20分，每小题1分）

1、下面合法的常量是__B___

A）1/2B）FalseC）‘NameD）12*5

2、决定窗体标题栏显示内容的属性是_C_____

A）TextB）NameC）CaptionD）BackStyle

3、下列符号哪一个是VB中的合法变量名____A__

A）planeB）del*4C）1axD）ab

4、函数Int（Rnd（0）*5）是在哪个范围内的整数___C___

A）（0,1）B）（1,5）C）（0,5）D）（1,6）

5、确定一个控件在窗体上位置的属性是__D____

A）Width或HeightB）Width和Height

C）Top或LeftD）Top和Left

6.表达式2*2^2+2*8/4+2^2的值是___D___

A）64B）32C）48D）16

7、下面正确的赋值语句是____A_.

A）y=x+30B）x+y=30C）pr*u=30D）x=3y

8、VB窗体设计器的主要功能是___A___

A）建立用户界面B）编写源程序代码

C）画图D）显示文字

9、用语句Dima（-2To4）定义的数组的元素个数是___B___

A）6B）7C）8D）9

10、设a=2,b=3,c=4,d=5，表达式3>2*bOra=cAndb<>a+c的值是__C____

A）1B）TrueC）FalseD）–1

11、若要使某命令按钮获得控制焦点，可使用的方法是__B____

A）GotFocusB）SetFocusC）RefreshD）Value

12、以下4类运算符中，优先级最低的是___D___

A）算术运算符B）字符运算符C）关系运算符D）逻辑运算符

13、下列不属于程序的三种基本控制结构的是__B____

A）顺序结构B）递归结构C）选择结构D）循环结构

14、窗体的边框样式由窗体对象的___A___属性来设置

A）BorderStyleB）WindowsStateC）BackStyleD）FillStyle

15.已知a="12345678",则表达式Left（a,4）+Mid（a,4,2）的值是__C____

A）123456B）"123456"C）"123445"D）123445

16、在下列表达式中，正确的日期型常量是___D__

A）"12/04/01"B）12/04/01C）{12/04/01}D）#12/04/01#

17、若要退出Do…While循环，可使用的语句是___A___

A）ExitDoB）ExitC）ExitForD）ExitSub

18、执行PRINT18/2*3，-3^2命令后,输出结果为___C___

A）39B）3-9C）27-9D）–927

19、可以同时删除字符串前导和尾部空格的函数是___D___

A）LtrimB）RtrimC）MidD）Trim

20、运行程序时，系统自动执行窗体的___C___事件

A）DblClickB）UnloadC）LoadD）Click

二、程序阅读，写出程序运行结果（20分，每小题5分）

1.此程序为窗体的单击事件过程。

PrivateSubForm_Click（）

x=1:

n=0

Dowhilex<15

x=x*2

n=n+2

Loop

Print“x=”;x;“n=”;n

EndSub

2、此程序为命令按钮的单击事件过程。

Optionbase1

PrivateSubCommand1_Click（）

DimIA,imax%,n%,I%,J%,t%

IA=Array（8,6,9,3,2,7）

n=6

ForI=1Ton-1

imax=I

Forj=I+1Ton

ifIA（j）>IA（imax）Thenimax=j

Nextj

t=IA（I）:

IA（I）=IA（imax）:

IA（imax）=t

forj=1ton

printIA（j）;

nextj

print

NextI

EndSub

3、此程序为命令按钮的单击事件过程。

PrivateSubCommand1_Click（）

DimIA,n%,I%,J%,t%

IA=Array（8,6,9,3,2,7）

n=6

ForI=1Ton-1

Forj=n-2ToI-1Step-1

ifIA（j）

t=IA（j）:

IA（j）=IA（j+1）:

IA（j+1）=t

Endif

Nextj

forj=0ton-1

printIA（j）;

nextj

print

NextI

EndSub

4、此程序为命令按钮的单击事件过程。

PrivateSubCommand1_Click（）

DimmAsInteger,nAsInteger

m=9:

n=30

Ifm

t=m:

m=n:

n=t

EndIf

DoWhilen<>0

r=mModn

m=n

n=r

Loop

print“m=“;m;“n=”;n

EndSub

三、程序填空（20分，每个空格2分）

1、请将下列程序补充完整。

程序功能是输入三角形的三条边的值，判断如果可以构成三角形，则计算三角形的面积，并判断组成的是等边三角形、等腰三角形或一般三角形；若不能构成三角形，则弹出提示信息框，提示信息为“出错，请重新输入”。

PrivateSubForm_Load（）

Dima!

b!

c!

t!

s!

k%

a=Val（text1.text）

b=Val（text2.text）

c=Val（text3.text）

If___

（1）___then‘提示：

可以构成三角形

t=（a+b+c）/2

s=sqr（t*（t-a）*（t-b）*（t-c））

Prints

If___

（2）___then

Print“这是等边三角形”

ElseIf___（3）___then

Print“这是等腰三角形”

Else

Print“这是一般三角形”

Endif

Else

___（4）___

Endif

EndSub

2、请将下列程序补充完整。

程序功能是从键盘上输入若干个学生的考试成绩，统计并输出最高分、最低分和学生人数。

当输入-1时结束输入，输出结果。

PrivateSubForm_Click（）

DimscoreAsSingle,smaxAsSingle,sminAsSingle

DimcountAsinteger

Score=InputBox（“EnterAScore”）

count=1：

smax=score

___

（1）___

DoWhile___

（2）___

Ifscore>smaxThensmax=score

If___（3）___Thensmin=score

score=InputBox（“EnterAScore”）

___（4）___

Loop

Print“max=”;smax,“min=”;smin,”count=”;count

Endsub

3、请将下列程序补充完整。

程序功能是2的n次方的值

PrivateSubCommand1_Click（）

n=10:

m=1:

k=1

Dowhile___

（1）___

M=m*2

k=___

（2）___

Loop

Printm

EndSub

四、程序改错（20分，每个错误2分）

说明：

请将下列事件过程中的存在错误的代码（加注编号）以正确的形式写在答题纸上。

1、PrivateSubCommand1_Click（）

n=7:

Dimb（n）AsInteger①

s=0

Forj=0To6

b（j）=InputBox（“请输入正整数”）②

If5000>b（j）>0Thens=s+b（j）③

Nextj

Print“s=”;s

EndSub

2.PrivateSubform1_Click（）①

m=1

forI=1to3

ifm≠2thenm=m+1②

Loop③

Print“m=”;m

EndSub

3.PrivateSubCommand1_Click（）

Dimk,m,pasinteger①

k=4:

m=1

p=func（k,m）

Print“p=”;p

Endsub

Functionfunc（aasinteger,basinteger）asinteger

m=1:

I=2

I=I+m+1

m=I+a–b

p=m②

EndFunction

4、设分房的条件是：

已婚（marrigerat），且年龄（age）在26岁及以上；或者未婚（marrigerat），且年龄（age）在28岁及以上，且工作年限（workingage）在5年及以上

ifmarrigerat=truethen

ifage>=26then

print“分房”

endif

elseif①

ifage≥28andworkingage≥5then②

print“分房”

endif

endif

五、编程题（20分，每题10分）

1.设命令按钮的程序功能是：

（6分）

根据卡车运输重量计算运输费用。

计算方法如下：

100元基数<1吨

费用=每吨加收25元1吨~5吨

每吨加收30元>5吨

同时为了做好客户营销，每次收费最多不超过300元。

2.编程。

分别统计1~100中，满足3的倍数、7的倍数的数各为多少个？

（7分）

3、编程。

求100以内的素数之和。

（7分）

上海金融学院

2008——2009学年第2学期

《计算机应用基础

（二）》课程代码：

13330159

__________专业_________班姓名__________学号_______座位号

答题纸

题次

一

二

三

四

五

六

七

八

九

十

总分

应得分

20

20

20

20

20

100

实得分

阅卷教师签名

得分

一、单项选择题（共20题，每题1分，共计20分）

1.________2.________3.________4.________5.________

6.________7.________8.________9.________10.________

11.________12.________13.________14.________15.________

16.________17.________18.________19.________20.________

得分

二、程序阅读题（共4题，每题5分，共计20分）

1、答3、答

2、答4、答

得分

三、程序填空题（共3题，每空2分，共计20分）

1．答：

（1）

（2）（3）

（4）

2．答：

（1）

（2）

（3）（4）

3．答：

（1）

（2）

得分

四、程序改错题（共4题，每错2分，共计20分）

1.答：

①______________________________________________

②_____________________________________________________

③_____________________________________________________

2、①_____________________________________________________

②_____________________________________________________

③_____________________________________________________

3、①_____________________________________________________

②_____________________________________________________

4、①_____________________________________________________

②_____________________________________________________

得分

五、编程题（共3题，共计20分）

1.编程（6分）

2.编程：

（7分）

3.编程：

（7分）

上海金融学院

2008——2009学年度第2学期

《计算机应用基础

（二）》课程代码：

13330159

集中考试考试形式：

笔试、闭卷考试用时:

90分钟

注：

本课程所用教材，教材名：

VisualBasic程序设计简明教程

主编：

龚沛曾等出版社：

高等教育出版社版次：

第2版

答案及评分标准

一、单项选择题（20分）

1.B

2.C

3.A

4.C

5.D

6.D

7.A

8.A

9.B

10.C

11.B

12.D

13.B

14.A

15.C

16.D

17.A

18.C

19.D

20.C

二、阅读程序题（20分）

1.答：

x=16n=8

2.答：

（5分，每排1分）968327/986327/987326

987623/987632（分5排书写）

3.答：

（5分，每排1分）986732/987632/987632

987632/987632（分5排书写）

4、答：

m=3n=0；

三、程序填空（35分）

1．答：

a+b>candb+c>aanda+c>b、a=bandb=c、a=borb=cora=c、msgbox（“出错，请重新输入”）

2．答：

smin=score、score<>-1、smin>score、count=count+1

3、答：

k<=n、K+1

四、程序改错（20分）

1.答：

去掉”,s”,Dimb（1To10）Dimb（6）AsInteger

加”Val（）函数”,b（j）>0Andb（j）<5000

2．答：

form，m<>2，nextI

3、答：

变量分别定义,func=m

4、答：

else，age>=28andworkingage>=5

五、编程题（20分）

1.编程参考：

（6分）

PrivateSubCommand1_Click（）

weight=val（text1.text）

ifweight<1then

text2.text=100

elseifweight<5then

text2.text=100+25*weight

else

text2.text=100+30*weight

endif

ifval（text2.text）>300thentext2.text=300

EndSub

2.编程参考（7分）

PrivateSubCommand1_Click（）

X=0:

y=0

Fori=1To100

IfImod3=0thenx=x+1

IfImod7=0theny=y+1

nextI

Printx;y

endsub

2.编程参考（7分）

PrivateSubCommand1_Click（）

S=0

Form=2to100

Flag=true

ForIto=2tom-1

If（mmodI）=0thenflag=false

NextI

Ifflagthens=s+m

Nextm

Prints

Endsub