2009—2010学年第二学期期末考试试卷 （B卷）
年级：08 专业：计算机信息管理 课程：VB程序设计
密 学号： 班级： 姓名：
题号 得分 一 二 三 四 五
封 线 一：填空题（本大题共10题，每小题1分，共10分）
1、VB程序设计的主要特点是 （1） 和（2） 。 2、在VB中，最主要的两种对象是（3） 和（4） 。 3、工程是构成应用程序文件的 （5） 。
4、方法是VB提供的一种 （6） ，用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。
6、在MsgBox函数中，如果缺省title参数，则使用 （8） 作为消息框的标题。
7、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是 （9） 。 8、在VB 中，数值型变量的初值为 （10） ，Varant型变量的初值为 （11）,布尔型变量的初值为 （12） 。
9、设置窗体的 （13） 属性，可在窗体上显示图片。
10、程序运行工程中，清除MP图片框中的图片应使用语句 （14） 。 二：选择题（本大题共10题，每小题2分，共20分） 1、下列哪个控件是容器控件 （1） 。
A、Image B、Picture C、ComboBox D、FileListBox 2、若要将窗体从内存中卸载出去，其实现的方法是 （2） 。 A.Show B.Hide C.Load D.UnLoad 3、以下选项中，不是 Visual Basic控件的是 （3） A 。
A.窗体 B.定时器 C.单选框 D.命令按钮 4、双击窗体中的对象后，Visual Basic将显示的窗口是 （4） 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 5、可决定窗体的左上角是否有控制菜单的属性是 （5） 。 A.ControlBox B.MinButton C.MaxButton D.BorderStyle 6、设有如下语句：
Strl＝InputBox（\输人\，\，\练习\）
从键盘上输人字符 “示例”后，Strl的值是 （6） 。
密 封 线 A．“输入” B．“ ” C．“练习” D．“示例” 7、窗体Form1的Name属性是Frm1,它的单击事件过程名是 （7） 。 A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click 8、窗体的hide属性的含义是 （8） 。
A.隐藏 B.展现 C.装入 D.卸载 9、若要设置定时器控件的定时时间，需设置的属性是 （9） 。 A．Enabled B．Value C．Interval D．Text 10、能够改变复选框中背景颜色的属性是 （10） 。
A．Value B．FontColor C．BackColor D．Font 三：判断题（本大题共10题，每小题1分，共10分）
1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。
2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。
3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。 4、通过改变属性窗口中的Name属性，来改变窗体的标题。5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。
6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。
7、已知P＝MsgBox(“Howareyou?\，VbYesNo+VbQuestion，“Hello!”)，变量P是Integer数据类型。
8、工程文件的扩展名是 .vbg 。
9、VB允许设计和使用用户自己设计的控件。 10、OptionButton控件没有DblCliek事件。
四、读程序题，写出程序运行结果（本大题共2题，每小题15分，共30分） 1、 Private Sub Form_Click()
Static SUM As Integer I = 1
Do While I<=10 SUM = SUM + I I = I + 1 Loop
Print SUM End Sub
运行程序，第一次单击窗体：
第二次单击窗体：
2、 Private Sub Form_Click()
Print \Print
For I = 15 To 16 Print I;
For j = 2 To 6 Step 3
密 封 线 Print Tab(3 * j); j * I; Next j Print Next I End Sub
程序运行结果：
五、编程题（本大题共2题，每小题15分，共30分）
（一）窗体中有图片框(Picture1)和计时器(Timer1)两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。请填空：
Private Sub Form_load( )
=loadPicture(“c:\\pic\\ball.ico”) .Interval=200 End Sub
Private Sub Timer1_Timer( ) Static x , y As Integer x=x+100 y=y+100
Picture1.Move End Sub
（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请填空：
Private Sub Command1_Click() Dim x As Integer, N% Dim Counter As Integer Timer For N=1 To 50 X=Rnd()* If =2 Then Print x Counter= Next N Print Counter End Sub
2009—2010学年第二学期期末考试试卷B
