2014~2015学年第一学期VB期末考试（A卷） 2014级
C．If X < 3 * y : X > y Then y = X ^ 3 D．If X < 3 * y ; X > y Then y = X **3
35. 要设置定时器控件的定时时间，需要设置的属性是 。
A. Enabled B. Interval C. Value D. Text
36. 设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发 。
A. Text1的SetFocus事件 B. Text1的GotFocus事件 C. Text1的LostFocus事件 D. 窗体的GotFocus事件 37．设整型变量a, b的当前值分别为200与20，以下赋值语句中不能正确执行的是 。 A．Text1 = a / b * a B. Text1 = a * a / b C. Text1 = \ D. Text1 = a & b & a
38. 创建应用程序的界面时,在窗体上设置了一个命令按钮,运行程序后,命令按钮没有出现在窗体上,可能的原因是__________。
A.?该命令按钮的Value属性被设置为False B.?该命令按钮的Enabled属性被设置为False C.?该命令按钮的Visible属性被设置为False D.?该命令按钮的Default属性被设置为True 39. 产生[10,40]之间的随机整数的VB表达式是________。
A.?Int(Rnd * 30 + 10) B.?Int(Rnd * 31 + 10) C.?Int(Rnd * 30 + 11) D.?Int(Rnd * 30 + 12) 40. 复选框的Value属性为0时，表示___ _____。
A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作有误 41. VB是一种________的可视化程序设计语言。
A.?面向机器 B.?面向过程 C.?面向问题 D.?面向对象 42. 下列函数中，返回值是字符串的是
A. Val B. InStr C. Chr D. Asc
43. 窗体上有若干命令按钮和一个文本框,程序运行时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Click事件过程,需要将该按钮的________属性设置为True。 A.?Enabled B. Cancle? C.?Default D. Visible 44. 下列关于菜单的说法中,错误的是________。
A.?若菜单命令项之间加分隔线，则在“标题”文本框中键入& 符号 B.?菜单项不可以响应DblClick事件
C.?每一个菜单项就是一个对象,并且可设置自己的属性和事件 D.?下拉式菜单和弹出式菜单都用菜单编辑器编辑
45. 往列表框中增加一个条目，应使用列表框的什么方法： 。 A. InsertItem B. AddItem C. AppendItem D. RemoveItem 46. 下面程序运行时，若输入395，则输出结果是 。 Private Sub Command1_Click() Dim x As Integer
x = InputBox(\请输入一个3位整数\ Print x Mod 10, x \\ 100, (x Mod 100) \\ 10
End Sub
A. 3 9 5 B. 5 3 9 C. 5 9 3 D. 3 5 9 47．逻辑型变量的默认的初始值为 。
第 6 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
A. 0 B. False C. 一个空格 D. 空字符串 48. 下面哪一个是日期型常量： 。
A. #12/05/10# B. True C. 426 D. \程序设计\49定义的某个过程中，若使用了Static关键字，则正确的是 。 A. 每次调用此过程，该过程的局部变量都会被重新初始化 B. 每次调用此过程，该过程的局部变量都会清零
C. 每次调用此过程，该过程的局部变量都会变为空字符串 D. 每次调用此过程，该过程中的局部变量的值保持上一次调用后的值 50. 下面的数组说明中，正确的是 。
A. Sub s1(a(), n) B. Sub s1(a(), n)
Dim a(n, n) Dim Preserve a(2,2) C. Sub s1(a(), n) D. Sub s1(a(), n)
ReDim a(5) Dim a(5)
二、填空题（2分×20=40分）
1．当单选按钮被选定时，则它的value属性值为 (1) 。
2. 如果int1是整型变量，则int1=\语句之后，int1的值为____(2)________。 3. 使窗体Form1背景色变红的语句是：Form1.BackColor = （3） 。
4. 若编写的过程要被多个窗体及其对象调用,应将这些过程放在 (4) 模块中。?
5. 可用Print方法在窗体中显示文本信息,若想清除这些信息,可用的方法是__(5)_______。
6. VB中有两种类型的数组：固定大小数组(静态数组)和 （6） 数组。
7. 执行下面的程序，窗体上第一行输出结果是 （7） ，第二行输出结果是 （8） 。 Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1
Do While x <= 7 x = x + 3 y = y + x * y Loop Print x Print y
End Sub
8．执行下面的程序后， A(2,1)值是 （9） ，A(3,2)值是 （10） 。 Option Base 1
Private Sub Command1_Click()
Dim A(3, 3) As Integer, K As Integer Dim I As Integer, J As Integer K = 1
For I = 1 To 3
If I Mod 2 <> 0 Then For J = 1 To 3 K = K * 2 A(I, J) = K
第 7 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
Next J Else
For J = 3 To 1 Step -1 K = K + 5 A(I, J) = K Next J End If Next I
For I = 1 To 3 For J = 1 To 3 Print A(I, J); Next J Print Next I
End Sub
9.执行下面程序，单击按钮Command1，窗体上第一行输出结果是 （11） ， ?第二行输出结果是 （12） 。 Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1: b = 3
Print fun1(a, fun1(a, b)) Print a End Sub
Private Function fun1(x As Integer, y As Integer) As Integer Dim i As Integer, n As Integer For i = 1 To y x = x + 3 n = x - n - 5 Next i fun1 = n End Function
Private Sub Command1_Click() Dim N As Integer, M As Integer M = 35 N = 8
Print fun(M, N) End Sub
Private Function fun(ByVal N As Integer, ByVal R As Integer) As String Dim L As Integer If N < R Then fun = N Else
L = N \\ R
第 8 页 共 10 页
10．执行下面程序，单击按钮Command1，窗体上显示的结果是 （13） 。
2014~2015学年第一学期VB期末考试（A卷） 2014级
fun = fun(L, R)
fun = fun & N Mod R End If End Function
11．以下程序实现求1+x+x2 /2!+x3/3!+…+xn/n!的累加和，要求误差精度<10-5。完善程序.
Private Sub Command1_Click() Dim x As Single, n As Integer Dim s As Single, t As Single x = InputBox(\输入x的值\ s = 1: n = 1: t = 1 Do
(14) s = s + t n = n + 1
Loop (15) Print s End Sub
12. 随机生成10个不同的两位整数，在窗体上显示出来。完善程序。 Option Base 1 Private Sub Command1_Click() Dim A(10) As Integer
Dim Idx As Integer, i As Integer Dim Temp As Integer Idx = 1
A(1) = Int(90 * Rnd + 10) Print A(1);
Do While Idx < 10
Temp = Int(90 * Rnd + 10) For i = 1 To Idx
If Temp = A(i) Then (16) Next i
If i > Idx Then
(17) A(Idx) = Temp Print A(Idx); End If Loop End Sub
13. 找出1000到2000之间只有两个数字相同的素数（如1013中只有1出现了2次）。结果在列表框中输出。完善程序。
Private Sub Command1_Click() Dim i As Integer For i = 1000 To 2000
If （18） Then
第 9 页 共 10 页
2014~2015学年第一学期VB期末考试（A卷） 2014级
List1.AddItem i End If Next i End Sub
Private Function judge(n As Integer) As Boolean Dim st As String, js As Integer, i As Integer, j As Integer
st = CStr(n)
For i = 1 To Len(st) - 1 For j = i + 1 To Len(st)
If Mid(st, i, 1) = Mid(st, j, 1) Then js = js + 1 Next j Next i
If （19） Then judge = True End Function
Private Function prime(n As Integer) As Boolean Dim i As Integer For i = 2 To Sqr(n)
If （20） Then Exit Function Next i
prime = True End Function
三、程序设计（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()
第 10 页 共 10 页