北 京 交 通 大 学
2011---2012学年第二学期期末考试试卷
《VB程序设计》课程
课程名称： ____________________ 任课教师：______________ 专业:_________ 班级:_________ 姓名:________ 学号:________
题号 得分 一 二 三 四 五 总分 ----------------------------------------------------
（本试卷共 五 道大题，要求全部答案写在答题纸上） 一、选择题：（每题2分，共50分）
说明：每道题有四个选择答案，请选择一个你认为是最好的答案。 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（ ）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 & MID(\执行后，a变量中的值是（ ）。 A、\ B、123 C、12334 D、157
3、保存一个工程至少应保存两个文件，这两个文件分别是（ ）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件
4、下面正确的赋值语句是（ ）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x
5、表达式 Len( “北京交通大学，是211重点大学” )的值是（ ） （A）11 （B）15 （C）22 （D）27
6、Cls方法可以清除窗体或图片框中的( )内容。
1
A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件
C、在运行阶段产生的图形和文字 D、以上均可
7、要判断在文本框是否按了Enter键，应在文本框的( )事件中判断。 A、Change B、KeyDown C、Click D、KeyPress
8、如果文本框的Enabled属性设为False，则( )。 A、文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上。 B、文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容。
C、文本框的文本将变成灰色，用户仍然能改变文本框中的内容。 D、文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容。
9、不论何控件，共同具有的是( )属性。
A、Text B、Name C、ForeColor D、Caption
10、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是( )。
A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口
11、有如下的循环语句，其中的循环变量i在退出循环后的值为 Dim i As Integer, s As Integer s = 0
For i = 1 To 100 Step 2 s = s + i Next i
A、100 B、101 C、102 D、103
12、INT（100*RND）产生的随机整数的闭区间是（ ）。
A、[0，99] B、[1，100] C、[0，100] D、[1，99]
13、要使文本框获得输入焦点，则应采用文本框控件的哪个方法( )。
2
A、GotFocus B、LostFocus C、KeyPress D、SetFocus
14、要强制显示声明变量，可在窗体模块或标准模块的声明段中加入语句( )。
A、Option Base 0 B、Option Explicit C、Option Base 1 D、Option Compare
15、语句Print Format (32548.5, ”###,###.###”)的输出结果是（ ）。
A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 16、当语句w=IIf(4>10, ”Red”, ”Green”)执行后，变量w中的值是（ ）。
A、Null B、“Red” C、“Green” D、-1 17、下列程序段：
Dim x
If x Then Print x
Else Print x+1 运行后，显示的结果是（ ）。 A、1 B、0 C、-1 D、出错
18、下面程序段显示的结果是（ ）。
Dim x
x=Int(Rnd)+5 Select Case x Case 5 “优秀” Case 4
Print“良好” Case 3
Print“通过” Case Else
Print“不通过” End Select
A、优秀 B、良好 C、通过 D、不通过 19、一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有（ ） 个元素。
A、25 B、36 C、30 D、不确定
3
20、在在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如 下事件过程：
Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0
Text1.Text = \ Call p1(x, y, z) Text1.Text = Str(z)
End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub
程序运行后，单击命令按钮得到的结果是（ ）。
A、12 B、0 C、Str(z) D、没有显示结果
21、在过程定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用( )关键字在过程中定义局部变量。
A、Dim B、Private C、Public D、Static
22、在过程定义中用(C)表示形参的传值。
A、Var B、ByDef C、ByVal D、Value
23、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用( )语句。
A、List1.AddItem 3, \
B、List1.AddItem \C、List1.AddItem \D、List1.AddItem \
24、下面哪个属性可以控制菜单项可见或不可见（ ）
A、Hide B、Checked C、Visible D、Enabled
4
25、假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使用语句( )。
A、List1.AddItem 3, \
B、List1.AddItem \C、List1.AddItem \ D、List1.AddItem \
二、填空题：（每空2分，共14分）
1、找出被3、5除，余数均为1的最小的5个正整数。请补充下面代码： Private Sub Command1_Click() Dim countn%, n% n = 1: countn = 0 Do
n = n + 1
If [ ① ] Then Print n
countn = countn + 1 End If
Loop [ ② ] End Sub
2、下面的程序用于根据文本框X中输入的内容进行以下处理：若X为2、4、6，则打印\的值为2、4、6\；若X在11到15之间，则打印\的值为大于等于11小于等于15\；若X大于20，则打印\的值大于20\；否则，打印\不在范围内\。 Private Sub Command1_Click() Select Case Val(X.Text) Case [ ③ ]
Print \的值为2,4,6\ Case [ ④ ]
Print \的值为大于等于11小于等于15\ Case Is >[ ⑤ ] Print \的值大于20\ Case Else
Print \不在范围内\ End Select
5
End Sub
3、循环语句For i=-3 to 20 Step 0 的循环次数是[ ⑥ ]。 4、如果要每隔15秒产生一个Timer事件，则Interval属性应设置为[ ⑦ ]。
三、程序阅读题：（每题5分，共15分）
1、在窗体上画一个名称为Command1的命令按钮，运行下面程序： Private Sub Command1_Click() Dim iA(1 To 10) n = 6
iA(1) = 8: iA(2) = 6: iA(3) = 9: iA(4) = 3: iA(5) = 2: iA(6) = 7 For i = 1 To n - 1 iMin = i For j=i+1 to n
If a(j) t = iA(i) iA(i) = iA(iMin) iA(iMin) = t Next i End Sub 程序运行后，iA中的值的是什么？ 2、在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next i x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x 6 End Function 程序运行后，单击命令按钮，输出结果为？ 3、假定有如下的窗体事件过程： Private Sub Form_Click() a = \ b = Right(a, 5) c = Mid(a, 1, 16) MsgBox c, 34, b End Sub 程序运行后单击窗体，请大致画出弹出的对话框： 四、编程题（21分） 1. （10分）请编程实现1到n之和，要求如下： （1） 用一个Text控件接收用户输入的n（n>1，n为整数）值； （2） 用一个Label控件显示计算结果； （3） 用一个Command控件执行计算； （4） 画出用户界面草图； （5） 编写Command事件过程。 2. （11分）随机产生30~100（包括30、100）中的十个正整数，求最 大值、最小值、平均值，并显示整个数组的值和结果。 7