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事件过程中。
升级会员 