1、VB程序设计期末考试试卷考试形式：闭卷考试 考试时间：120分钟班号 学号 姓名 得分 题号一二三四五六总分得分一、单选题（本题15分，每小题1分）1如果把一个人当作对象，那么血型相当于这个对象的：(A)(A) 属性(B) 方法(C) 事件(D) 特征2下列哪一种方法不能改变窗体的大小：(C)(A) 设计时在窗体布局窗口中进行调整(B) 设计时在属性窗口中设置相应的属性(C) 运行时设置相应属性的值(D) 运行时调用窗体的Move方法3一个对象可以执行的动作和可被对象识别的动作分别称为：(B)(A) 事件、方法(B) 方法、事件(C) 属性、方法(D) 过程、事件4在窗体Form1的Click
2、事件过程中有以下语句：(C) Label1.Caption = Visual Basic若本语句执行之前，标签控件Label1的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为：(A) Label、Label(B) Label、Caption(C) Label1、Label1(D) Caption、Label5见上题。该语句执行后，标签控件的Name属性和Caption属性的值分别为：(B)(A) Label、VisualBasic(B) Label1、Visual Basic6Sub过程与Function过程最根本的区别是：(D)(A) 前者
3、可以使用Call或直接使用过程名调用，后者不可以(B) 后者可以有参数，前者不可以(C) 两种过程参数的传递方式不同(D) 前者无返回值，但后者有返回值7在定义函数过程时，不可能用到的关键字是：（C）(A) Exit(B) As (C) Sub(D) End8在定义通用过程时，下列关键字中不能用来修饰形参的是：D(A) ByVal(B) ByRef (C) Optional(D) Static9下面定义数组语句中错误的是：D(A) Private A(-10 To 5)(B) Dim A(10,-10 To -10) As Integer(C) Dim A() As Integer(D) Di
4、m A(N) N是变量10下面的哪一条语句与Visual Basic的默认设置相同：（B）(A) Option Base 1(B) Option Base 0(C) ByRef(D) Option Explicit11下列哪类对象在运行时一定是不可见的：(B)(A) Line (B) Timer(C) Shape(D) Frame12下面各类型对象中，没有Move方法的是：(C)(A) Form(B) Shape(C) Line (D) Image13形状控件所显示的图形不可能是：(D)(A) 圆(B) 椭圆(C) 圆角正方形(D) 等边三角形14列表框控件的下列几个属性中，哪一个不是数组：(
5、B)(A) List(B) ListIndex(C) Selected(D) ItemData15向列表框中添加一个条目，应使用列表框的什么方法：(B)(A) InsertItem(B) AddItem(C) AppendItem(D) RemoveItem二、判断题（本题15分，每小题1分）1标签控件是专门用来显示信息的，所以不能响应鼠标的单击事件。错2窗体的Move方法不但可以移动窗体，而且可以改变窗体的大小，同时也会改变窗体与大小和位置有关的属性值。对3窗体的Enabled属性为False时，窗体上的按钮、文本框等控件都不会对用户的操作作出反应。对4一条Visual Basic语句如果不
6、超过80个字符是不能续行的。错5在Visual Basic程序中不可能同时出现txtA和txta两个控件名。对6If与End If关键字必须成对地使用，有一个If就有一个End If与之相对应。错7Do和Loop关键字必须成对使用，有一个Do就必须有一个Loop与之对应。对8For和Exit For必须成对使用，有一个For就必须有一个Exit For与之对应。错9Select Case语句实现的是一种循环结构。错10一个Do循环只能使用一个Loop关键字，但可以使用多个Exit Do语句。对11如果过程的一个形参使用了ByRef修饰，且调用时相应的实参是一个变量，则实参变量的数据类型必须与形
7、参相同。对12因为函数过程有返回值，所以只能用在表达式中，不能使用Call语句调用。错13事件过程只能在事件发生时由系统调用，不能在程序中使用代码直接调用。错14使用Static关键字定义的通用过程中过程级变量都为静态变量。对15在窗体模块中，不能定义全局通用过程。错三、填空题（本题30分，每小题2分）1下列数据类型的变量各占多少字节的内存：Byte： （1） ；Integer： （2） ；Long： （4） ；Single： （4） ；Double： （8） 。2把整型数1赋给一个逻辑型变量，则逻辑变量的值为 （True） 。3刚被定义尚未赋值的日期型变量的值为 （#0.00.00#） ；逻
8、辑型变量的值为 （False） ；对象型变量的值为 （Nothing） ；变体变量的值为 （Emply） 。4对象型变量可以引用一个对象。使用Dim objFirst As Object语句定义一个对象型变量，如果要把名称为cmdFirst的命令按钮赋予它，应使用 （Setobject=cmdFirst） 语句。5在一条Dim语句中可以定义多个变量，如Dim strVar, intVar, sngVar As Integer，则strVar、intVar与sngVar的数据类型分别是 （Variant） 、 （Variant） 和 （Integer） 。6定时器控件的Interval属性值是时
9、间间隔，单位是 （ms毫秒） ；当每隔此间隔的时间，定时器会引发一次 （timer） 事件。7Visual Basic为添加到窗体上的第一个图片框提供的默认对象名为 （3） 。8组合框的 （style） 属性决定了该组合框是简单组合框、下拉式组合框还是下拉式列表框。9当复选框被选定，它的Value属性值为 （1） ；单选框被选定时，则的Value属性为 （true） 。10不支持Click事件的控件类型有 （7） 。11数学式对应的VB表达式为 。12已知a=2,b=3,c=4,d=5 ，表达式Not a=c Xor 4*c=b2 Or ba+c的值为 。13设变量x是一个两位正整数，写出判断
10、x的十位数是个奇数数字的VB逻辑表达式： x10mod2=1 。14写出表达式 Val(10abc.5) * Int(-2.7) 的值： （-30） 。15写出表达式 #6/21/2002# - 2的值： 2002-6-21 。四、程序阅读题（本题10分，每小题5分）1写出单击窗体后程序的运行结果。1Private Sub Form_Click()22 For i = 1 To 5 333 Print Space(5 - i);4444 For j = 1 To I 55555 Print Trim(Str(i); Next j Print Next iEnd Sub2写出单击窗体四次，第一次
11、输入6，第二次输入7，第三次输入8，第四次输入9，窗体上显示的结果。Private Sub Form_Click() Dim x As Integer Static s As Integer x = Val(InputBox(x=) Select Case x Mod 3 Case 0 s = s * x Case 1 s = s - x Case Else s = s + x End Select Print s=; sEnd Subs=0s=-7s=1s=9五.简答题（本题10分，1.2小题3分 第3小题4分）1.KeyDown、KeyUp与KeyPress事件各有什么不同，应分别用在什么
12、场合?2MouseUp、MouseDown、MouseMove事件过程有些什么参数，每个参数的含义是什么?3. 可以用哪些方法激活属性窗口和工具箱窗口六、程序设计题（本题共20分 1.2小题6分 第3小题8分）1 我国现有人口13亿，设年增长率1%，计算多少年后增加到20亿。Sub form click()Dim p as doubleDim r as doubleDim n as doubleP=13亿R=0.01N=0Do untilp=20亿oP=p*（1+r）N=n+1LopPrint n“年后”;“全国人口达到”pEnd sub 2 计算s=1+x/2+x 2/3+x 3/4+ +x n-1/n；已知n=20，x值从键盘输入。3编写程序，计算1+2+3+4+100(用VB语句编写，For循环或while循环均可，Print输出即可)
