04VB程序设计与VBA应用城市学院期中考卷.docx

04VB程序设计与VBA应用城市学院期中考卷.docx

《04VB程序设计与VBA应用城市学院期中考卷.docx》由会员分享，可在线阅读，更多相关《04VB程序设计与VBA应用城市学院期中考卷.docx（13页珍藏版）》请在冰豆网上搜索。

04VB程序设计与VBA应用城市学院期中考卷

年级：

_____________专业：

___________________班级：

________________学号：

_______________姓名：

__________________

诚信应考考出水平考出风格

浙江大学城市学院

2011—2012学年第二学期期中考试答卷

《VB程序设计基础与VBA应用》

开课单位：

计算分院；考试形式：

闭卷；考试时间：

2012年4月15日

所需时间：

120分钟

题序

一

二

三

四

总分

得分

评卷人

得分

一．单选题（本大题共30题，每题1分，共30分。

）

题号

1

2

3

4

5

6

7

8

9

10

题号

11

12

13

14

15

16

17

18

19

20

题号

21

22

23

24

25

26

27

28

29

30

得分

二．程序填空题（本大题共2题8空，每空2分，共16分。

）

（1）

（2）

（3）

（4）

（5）

（6）

（7）

（8）

得分

三．程序阅读题（本大题共6题，每题4分，共24分。

）

第1题:

第2题:

第3题:

第4题:

第5题:

第6题:

得分

四．程序设计题（本大题共3题，每题10分，共30分。

）

第1题：

.

第2题：

.

第3题：

.

浙江大学城市学院

年级：

_____________专业：

___________________班级：

________________学号：

_______________姓名：

__________________

2011—2012学年第二学期期中考试试卷

《VB程序设计基础与VBA应用》

开课单位：

计算分院；考试形式：

闭卷；考试时间：

2012年4月15日

所需时间：

120分钟

一、单选题（30%，每小题1分）

1．数学式子sin25°写成VB表达式是。

A．Sin25B．Sin（25）

C．Sin（25*3.14/180）D．Sin（25°）

2．下列叙述中，错误的是。

A．事件可以由用户触发，也可以由系统触发

B．VB应用程序只能以解释方式执行

C．保存VB程序时，应分别保存窗体及工程文件

D．打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

3．哪一条语句执行后将会删除文本框Text1中的文本？

A．Text1.Text=””B．Text1.SelText=””

C．Text1.ClearD．Text1.SelText.Clear

4．假定flge是逻辑型变量，下面赋值语句中不正确的是。

A．flge=’True’B．flge=”True”

C．flge=0D．flge=3<4

5．不正确的VB常量是。

A．123!

B．&HABC&

C．&O18D．#1-1-03#

6．声明符号常量应该用关键字。

A．StaticB．Const

C．PrivateD．Variant

7．要得到[1，50]之间的随机整数，可用式子。

A．Int（50*Rnd）B．Int（50*Rnd）+1

C．Int（49*Rnd）D．Int（49*Rnd）+1

8．下面叙述正确的是。

A．Spc函数既能用于Print方法中，也能用于表达式

B．Space函数既能用于Print方法中，也能用于表达式

C．Spc函数与Space函数均生成空格，没有区别

D．以上说法均不对

9．设S=”中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为。

A．”中华民国”B．”中国人民”

C．”中共人民”D．”人民共和”

10．x是Integer类型变量，无论x取何值，字符串表达式的长度为10。

A．Space（10-Len（Str（x））+x

B．Space（10-Len（Trim（Str（x））））+x

C．Space（10-Len（x））&x

D．Space（10-Len（Trim（Str（x））））&x

11．表示x大于0且小于10的表达式是。

A．00Andx<10

C．x>0Orx<10D．x>0:

x<10

12．由Fork=35To0Step3：

Nextk循环语句控制的循环次数是。

A．0B．12

C．1D．11

13．在SelectCaseA的语句中，判断A是否大于等于10小于等于20的是。

A．CaseA>=10AndA=<20B．Case10To20

C．CaseIs10To20D．CaseIs>=10AndIs=<20

14．下面程序运行后的结果是。

m=0

Fori=1To10

m=m+i

i=i+1

Nexti

Printm,i

A．2510B．2511

C．1611D．死循环

15．以下条件语句错误的是。

A．IfXThenY=Y+1B．IfX=0ThenY=0

C．IfX>YThenPrintYEndIfD．IfX>0ThenY=1:

PrintY

16．运行下列程序段，其中“n=n+1”语句被执行的次数是。

Dimm%,n%

Form=1To3

Forn=1To6Step2

n=n+1

Printn

Nextn

Nextm

A．3B．6

C．9D．18

17．Dimx（3,4To4）定义数组后，x数组可存放个元素。

A．4B．3

C．8D．6

18．下列几种定义数组的方法，正确的是。

A．n=5B．Dima（10）AsInteger

Dima（1ton）AsIntegerReDima（1to12）

C．Dima（）AsSingleD．Dima（）AsInteger

ReDima（3,4）AsIntegern=5

ReDima（1Ton）

19．定义数组Dima（3,4）后，使用，将出现下标越界错误。

A．a（1,1）B．a（3,0）

C．a（4,4）D．a（3,4）

20--30．以下有11条已经写好的语句，但顺序不对。

重新排列这些语句，使之成为程序。

程序的功能是输入一个正整数n，判断它是否为素数。

A．EndIf

B．EndSub

C．PrivateSubForm_Click（）

D．Fori=2Ton-1

E．Nexti

F．Ifi>n-1Then

G．n=Val（InputBox（"inputanumber"））

H．Printn;"是素数"

I．Printn;"不是素数"

J．IfnModi=0ThenExitFor

K．Else

二、程序填空题（16%，每空2分）

请在以下两题的__

（1）__、…、__（8）__处填入适当的内容，将程序补充完整。

1．【程序说明】以下程序运行后，在文本框中输入字符串“A123b45C_de”，窗体上输出“12345”。

PrivateSubForm_Click（）

Dimstr1AsString,str2AsString,str3AsString

DimiAsInteger

str1=Text1.Text

str3=""

n=____

（1）____

Fori=1Ton

str2=____

（2）____

Ifstr2>="0"Andstr2<="9"Then

str3=str3+____（3）____

EndIf

____（4）____

Printstr3

EndSub

2．【程序说明】建立一个4行5列的二维数组，数组的前4列由输入对话框输入，第5列为同一行的前4个数的平均值，然后将这个数组显示在窗体Form1上。

PrivateSubForm_Click（）

Dim____（5）____asSingle

DimiAsInteger,jAsInteger,sasSingle

Fori=1To4

____（6）____

Forj=1to4

a（i,j）=InputBox（“a（“&i&”,“&j&”）=”）

s=s+a（i,j）

Nextj

____（7）____

Nexti

Fori=1to4

Forj=1to5

Printa（i,j）;

Nextj

____（8）____

Nexti

EndSub

三、程序阅读题（24%，每小题4分）

1．阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。

【程序】

PrivateSubForm_Click（）

Dimm%,n%

Form=1To4

Forn=1TomStep2

Printn;

Nextn

Printm+n

Nextm

EndSub

2．阅读下列程序，程序运行后，单击窗体，写出窗体上输出结果。

【程序】

PrivateSubForm_Click（）

Dima（6）AsInteger

DimiAsInteger,jAsInteger

Fori=1To6

a（i）=2*i-1

Nexti

Fori=1Toa（4）

j=j+1

Nexti

Printj

EndSub

3．下面程序运行时，单击窗体后，写出窗体上输出结果。

【程序】

PrivateSubForm_Click（）

DimxAsString,yAsString,dAsInteger

DimiAsInteger,nAsInteger

x="abcdefghijkl"

n=Len（x）

y=""

i=1

DoWhilei<=n

y=y+Chr（Asc（Mid（x,i,1））+3）

i=i+3

Loop

Print"y=";y

EndSub

4．下列程序运行后，单击命令按钮后输出的结果是什么？

【程序】

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger,nAsInteger

n=5

Fori=nTo1Step-1

PrintTab（n-i+1）;

Forj=1To2*i-1Step2

PrintCStr（i）;

Nextj

Print

Nexti

EndSub

5．下面程序运行时，在文本框中输入86、“回车键”、Abc、“回车键”、73、“回车键”和a3、“回车键”，写出窗体上显示的结果。

【程序】

PrivateSubForm_Load（）

Text1.Text=""

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAsciiAsc（"9"）Then

IfKeyAscii=13Then

PrintText1.Text

Text1.SelStart=0

Text1.SelLength=Len（Text1.Text）

Else

KeyAscii=0

EndIf

EndIf

EndSub

6．下面程序运行时，单击窗体后在输入对话框中输入138，写出窗体上程序运行结果。

【程序】

PrivateSubForm_Click（）

DimxAsInteger,yAsInteger

x=Val（InputBox（""））

y=0

DoWhilex<>0

y=y+xMod10

x=x\10

Loop

Printy

EndSub

四、程序设计题（30%，每小题10分）

1．编写计算下列函数的程序，结果在窗体上打印出来。

自变量x、y的值用InputBox函数输入。

2．利用格里高利公式，求

的近似值，精度要求到最后一项的绝对值小于10－6。

3．随机产生50个30~100之间的正整数，将它们中被3整除的数按从小到大每行5个输出在窗体上，代码编写在Form_Click事件过程中。