2011-2012第二学期vb试卷(岑翼刚)

北 京 交 通 大 学

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2011-2012第二学期vb试卷(岑翼刚)在线全文阅读。