2014~2015学年第一学期VB期末考试（A卷） 2014级
2014~2015学年第一学期VB期末试卷答题纸（A卷）
学院 专业班级： 学号： 姓名： 成绩
一、单选题 (用铅笔把选中的方格涂黑 50×1=50分)
1 5 9 13 17 21 25 29 33 37 41 45 49
A A A A A A A A A A A A A B B B B B B B B B B B B B C C C C C C C C C C C C C D D D D D D D D D D D D D 2 6 10 14 18 22 26 30 34 38 42 46 50
A A A A A A A A A A A A A B B B B B B B B B B B B B C C C C C C C C C C C C C D D D D D D D D D D D D D 3 7 11 15 19 23 27 31 35 39 43 47
A A A A A A A A A A A A B B B B B B B B B B B B C C C C C C C C C C C C D D D D D D D D D D D D 4 8 12 16 20 24 28 32 36 40 44 48
A A A A A A A A A A A A B B B B B B B B B B B B C C C C C C C C C C C C D D D D D D D D D D D D 二、填空题（每空占一行，每行写一个答案 20×2=40分）
1. 2. 3. 4.
5. 6.
7. 8.
9. 10.
11. 12.
13. 14.
15. 16.
17. 18.
19. 20.
第 1 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
三、程序设计（5×2=10分）
1.写一个函数过程，实现求两个正整数的最大公约数。
Private Function Gcd(ByVal X As Integer, ByVal Y As Integer) As Integer
2. A数组中已有10个数组元素，并且已显示在文本框1中，在窗体通用声明处已经定义了A数组为整型。编程完成，单击“交换”按钮，如果A数组中第一个数组元素与最后一个数组元素同时为偶数，则交换它们；第二个数组元素与倒数第二个数组元素执行同样操作，以此类推。交换后的结果在文本框2中输出。 Private Sub Command2_Click()
第 2 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
2014~2015学年第一学期VB期末试卷答题纸（A卷）
（考试对象：14级土木、测绘、资环、交通、水务、水文等）
学院 专业班级： 学号： 姓名： 成绩
一、选择题（1分×50=50分）
1. 假如一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成，为了保存该应用程序，以下正确的操作是 。
A．分别保存窗体模块文件、标准模块文件和工程文件 B．只保存工程文件
C．只保存窗体模块和标准模块文件。 D．只保存窗体模块文件
2．VB集成开发环境可以________。
A．?编辑、调试、运行程序，但不能生成可执行程序 B．?编辑、调试、运行程序，也能生成可执行程序 C．?编辑、调试、生成可执行程序，但不能运行程序 D．?编辑、生成可执行程序、运行程序，但不能调试程序 3．以下有关使用方法的语句错误的是 。
A．Text1.Clear B. Command1.SetFocus
C. List1.RemoveItem D. Picture1.Cls
4. 下列可以在窗体通用声明处正确定义的语句是 。
A. Public A(10) As Integer B. ReDim Preserve B(10) C. Public s As String D. Static n As Integer
5. 语句Print Sgn(-6^ 2)+Abs(-6^2)+Int(-6^ 2)的输出结果是_________。
A?-36 B?1 C?-1 D?-72 6. 不论何种控件，都具有__ _____属性
A. Text B. Name C. Caption D. Value
7. 窗体Form1的名称属性是frm, 它的Load事件过程名是_______。
A．Form1_Load B. frm_Load C. Form_Load D. Me_Load 8. 以下过程定义中，合法的是 。 A. Sub f1(n As Integer) As Integer B. Function f1(ByVal n As Integer) C. Sub f1(n As Integer*1)
D. Function f1(f1 As Integer) As Integer
9. 设双精度变量x=123456.78, 执行下列语句，窗体上能够显示123457的是 。 A. Print format(x,\ B. Print Format$(x, \
C. Print Format$(x, \ D. Print Format$(x, \
10. 在过程中可以用 语句定义变量。
A. Dim、Static B. Dim、Private C. Dim、Public D. Dim、Static、Private
第 3 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
11. 代数表达式
ex?y?x?y2??1对应的VB表达式是______。
A． E^(X+Y)+|X+Y|^1/2/2*3.14+1
B． Exp(X+Y)+Sqr(Abs(X+Y))/2*3.14159+1 C． (Exp(X+Y)+Sqr(Abs(X+Y)))/(2*3.14159+1) D． (Exp(X+Y)+Sqr(Abs(X+Y)))/2*3.14159+1
12. 以下有关事件过程的说法中,正确的是 。
A．所有的事件过程都没有参数 B．所有的事件过程都是Sub子过程
C．所有的事件都是由用户的操作引发的 D．事件过程不能使用Call语句调用执行
13. 下面的几对数据类型中，哪一对所占的内存大小相同： 。
A．Integer, Boolean B. Integer, Single C．Date, Single D. Long, Double 14. 以下关于 If 分支结构语句的说法中 , 正确的是 。
A. 有 If可以没有Else语句，运行时将出现错误 B. 有If必须至少有一个ElseIf语句 C. 有 End If 一定有与之配对的 If D. 有 If 一定有与之配对的 End If
15. 下列能够正确表示条件“X≤Y＜Z”的VB逻辑表达式是 。
A. X ≤ Y ＜ Z B. X ≤ Y Or Y ＜ Z C. X ＜＝ Y ＜ Z D. X ＜＝ Y And Y ＜ Z
16. 下面窗体的哪个事件在窗体从加载到卸载这个过程中只可能触发一次： 。
A. GotFocus B. Activate C. Load D. Deactivate 17. 下面的哪个窗口可以用来调试程序： 。
A. 属性窗口 B. 本地窗口 C. 工程窗口 D. 窗体布局窗口 18．在VB中可以作为容器的是 。
A. Form、TextBox、PictureBox B. Form、PictureBox、Frame C. Form、TextBox、Label D. Label、PictureBox、ListBox 19.. 设有如下的程序段，当单击窗体时，执行结果为____ _____。 Private Sub Form_Click()
Dim a
a = Array(\ Print a(2); a(4); a(6) End Sub
A . 123 B. ABC C. 234 D. BCD 20. 以下有关自定义过程的说法中,错误的是________。 A. 过程名可以和主调过程的局部变量同名
B. 在Sub或Function过程中不能再定义其他Sub或Function过程 C. 执行过程中的Exit Function语句，将退出该函数，返回到调用点
D. 可以用Call语句调用自定义函数，也可以用函数名直接调用自定义函数 21. 下列对象中，没有Caption属性的是 。
A. Form B. TextBox C. CommandButton D. Label
第 4 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
22. 有变量定义语句 Dim a,b As Integer，变量 a 的类型是 。
A. Integer B. String C. Variant D. Boolean
23. 若在模块中用Private Function Fun(A As Single, B As Integer) As Integer定义了函数
Fun。调用函数Fun的过程中定义了I、J和k三个Integer型变量，则下列语句中不能正确调用函数Fun的语句是 。 A. k=Fun(\ B. Fun 2+6, J C. Fun (I), J D. Call Fun (I, 3.14)
24. 如果准备读顺序文件“A.txt”中的内容，则打开该文件的正确语句为 。 A. Open \
B. Open \
C. Open \D. Open \
25. 下列控件中， 控件不论其属性如何改变，它在程序运行时永远是不可见的。
A. Label B. Timer C. Command D. Image
26. 在Do循环条件下，如果循环体不改变控制条件，循环就会无限地执行下去。终止一个无限循环的方法是 。
A. 按【Ctrl】+【Break】键 B. 按【Alt】+【C】键 C. 按【Shift】+【C】键 D. 按【Ctrl】+【C】键 27. VB工程文件的扩展名是 。 A．.Frm B．.Bas C. .Vbp D. .Xls
28. 窗体通用声明部分的 “Option Base 1” 语句，决定本窗体中数组下标 。
A．维下界必须为1 B．缺省的维下界为0 C．维下界不能为0 D．缺省的维下界为1 29. 下列有关数组的说法中?不正确的是________。
A.?在窗体模块中不可以定义全局数组
B.?数组下标用以确定数组元素在数组中的位置，下标取值只能是0或1 C.?语句Dim X(3.6+2) As Integer定义了一个维上界是6的一维整型数组 D.?形参数组的类型可以是定长字符串类型 30. Print方法使用在 上输出数据。
①窗体 ②列表框 ③复选框 ④组合框 ⑤文本框 ⑥立即窗口 ⑦图片框 A. ①④⑦ B. ①③⑤ C. ①②⑥ D.①⑥⑦
31．列表框的ListIndex属性为列表项索引。列表框中的第一项，其索引值为 。 A. -1 B. 2 C. 1 D. 0
32. 以下Case语句中，能正确描述X的绝对值大于5的是 。 A. Case Abs(X)>5 B. Case Is < -5, Is > 5 C. Case -5 to 5 D. Case Not(-5 to 5) 33. 以下说法错误的是 。
A. 使用关键字Preserve的ReDim语句可以保留原数组的数据
B. 使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 C. 使用不带关键字Preserve的ReDim语句可以对数组进行初始化 D. 使用关键字Preserve的ReDim语句可以改变数组的数据类型 34．下面语句正确的是 。
A．If X < 3 * y And X > y Then y = X ^ 3 B．If X < 3 * y & X > y Then y = X ^ 3
第 5 页 共 10 页