2011VB期末试卷A

2010~2011学年第二学期VB期末考试卷（A卷）2010级

专业班级： 学号： 姓名： 一、单选题 (用铅笔把选中的方格涂黑 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 页 共 12 页

1

2010~2011学年第二学期VB期末考试卷（A卷）2010级

三、程序设计（10分） 生成10个三位随机数，文本框的第一行起显示其中的所有素数；文本框的下面显示合数。文本框中每行显示5个数，若10个随机数中没有素数，则在文本框的第一行显示信息：“没有素数”；若10个随机数中没有合数，则在文本框的下面显示信息：“没有合数”。 运行界面见下图。

要求：1.Command1_Click()事件过程功能是生成随机数，并按要求处理它们；

2.Command2_Click()事件过程功能是清除文本框Text1中的内容,并将焦点置于Command1上； 3.Command3_Click()事件过程功能是结束程序运行；

4.包含一个通用函数PD（N As Integer）As Boolean。判断：N若为素数返回True,否则返回False。

在Command1_Click()事件过程中调用此函数,实现程序的功能。

第 2 页 共 12 页 2

2010~2011学年第二学期VB期末考试卷（A卷）2010级

一、选择题（1分×50=50分）

1.一个VB应用程序是由若干个不同文件组成，不包括扩展名为 的文件。

A．*.vbp B．*.bas C．*.frm D．*.dfp 2. 窗体的Name属性为MyFrm，则它的Click事件过程名是_______。

A. Form1_Click B. Form_Click C. MyFrm_Click D. 前三个都可以 3. 下列没有Caption属性的对象是 。

A. Form B. TextBox C. CommandButton D. Label

4. 在VB中对象的___ ______描述了一个对象的特性（例如对象的大小、背景色等）。

A. 事件 B. 方法 C. 属性 D. 过程 5．执行语句Print Format(7543.565, \，正确结果是

A. 7543.57

B. 7,543.57

C. 7543.56

D. 7,543.56

6. 如果在一个应用程序窗体上，依次创建了Label、CommandButton、TextBox、等控件，运行该程序显示窗体时, 会首先获得焦点。

A. TextBox B. Label C. 窗体 D. CommandButton 7. 一个对象可被对象识别的动作和可以执行的动作分别称为__ ___。

A. 事件、方法 B. 方法、事件 C. 属性、方法 D. 过程、事件 8. 下列__ _____对象不能作为控件的容器。

A. Form B. PictureBox C. ListBox D. Frame 9. 不论何种控件，都具有__ _____属性

A. Text B.Name C. Caption D. Value

10. 窗体上有多个控件，在Form_Activate() 事件过程中添加 语句，就可确保每

次运行程序时，都将光标定位在文本框Text1上。 A.Text1.Text = \ B.Text1.SetFocus C.Form1.SetFocus D.Text1.Visible = True 11．以下有关事件过程的说法中,正确的是 。

A．所有的事件过程都是Sub子过程 B．所有的事件过程都没有参数

C．所有的事件都是由用户的操作引发的 D．事件过程不能使用Call语句调用执行 12．以下说法中，正确的是 。

A. 属性是对象的特征，所有的对象都有相同的属性 B. 属性值只能在属性窗口中设置

第 3 页 共 12 页

3

2010~2011学年第二学期VB期末考试卷（A卷）2010级

C. 在程序中可以用赋值语句给对象的任何一个属性赋值 D. 对象的运行时属性不出现在对象属性窗口中 13．下面对相关表达式的结果描述正确的是 。

A. \的结果是\ B. \的结果是\C. \的结果是223

D. \的结果是\

14．下面4个语句中，错误的是 。

A．N = InputBox(\输入N：\ B．MsgBox \请回答\

C．InputBox (\输入N：\

D．K = MsgBox(\请回答\

15. 若将命令按钮Command1设置为不可视，应该将它的__ ____属性值设成False。

A. Value B. Enabled C. Visible D. Caption 16. 在列表框List1中有若干列表项，可以删除指定列表项的语句是 。

A. List1.text = \C. list1.Clear D. List1.RemoveItem List1.ListIndex 17. 在一个多窗体程序中，可以只将窗体Form2从内存中卸载出去的语句是 。

A. Unload Form2 B. Form2.Unload C. Form2.End D. Form2.Hide 18. 以下使用方法的语句中，正确的是 。 A. Picture1=”” B. Form1.Clear C. Text1.Cls D. List1.Clear

19. 要将焦点设置在某个控件上，可以采取 。

A. 使用鼠标直接点击该控件 B. 使用Tab键将焦点移到该控件 C. 程序中调用该控件的SetFocus方法 D. 以上三种方法都可以 20．以下说法中，错误的是 。

A．一行可以书写多条语句，语句间用“:”分隔

B．使用注释时，“’”可与语句定义符“Rem”互换使用 C．过长的语句，可使用续行标志“ _”，分写在多行上

D．代码输入时，可不分字母大小写，系统会将“保留字”首字母自动改为大写 21. 定义过程的格式中，若使用了Static关键字，则 。 A.每次调用此过程，该过程的局部变量都会被重新初始化 B.在本过程中使用到的，在其他过程中定义的变量也为Static型

C.每次调用该过程时，该过程中的局部变量的值保持上一次调用后的值 D.定义了该过程中定义的局部变量为“自动”变量 22．以下语句中，正确的是 。

A．List1.AddItem x, “==“, y B．Picture1.Print x, “==“, y C．Text1.Text = x, “==“,y D．Label1.Caption = x, “==“, y

第 4 页 共 12 页

4

2010~2011学年第二学期VB期末考试卷（A卷）2010级

23. ___ ____不是窗体事件。

A. Initialize B. SetFocus C. GotFocus D. Load 24．以下有关过程的说法中，错误的是 。

A．不论在Function过程中是否给函数名赋过值，都会返回一个值 B．不能在Function与Sub过程内部，再定义Function或Sub过程 C．Function过程与Sub过程，都可以是无参过程 D．过程名可以和主调过程的局部变量同名 25. 复选框的Value属性为1时，表示___ _____。

A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作有误

26. 下面的关系表达式结果为True的是 。

A. CInt(1.5) = Int(1.5) B. Fix(1.5) = Int(1.5) C. Fix(-1.5) = CInt(-1.5) D. Fix(-1.5) = Int(-1.5) 27. 以下说法中，错误的是__ _ ____。

A. 使用含有Preserve关键字的ReDim 语句，只能改变数组的最后一维的维上界 B. ReDim 语句只能出现在过程中

C. 使用ReDim语句重新定义的动态数组，只能比原数组大

D. 使用不含Preserve关键字的ReDim 语句可以对动态数组的所有元素进行初始化 28．表达式InStr(4, \的值为 。

A. 7 B. 8 C. 5 D. 9

29.设a=1，b=2，c=3，逻辑表达式a < b And Not c > b Xor c < a的值是 。 A. False B. -1 C. True D. 1 30. 假设变量Lng 为长整型变量，下面的 语句不能执行。

A. Lng = 16384 * 2 B. Lng = 4 * 0.5 * 16384 C. Lng = 190 ^2 D. Lng = 32768 * 2

31. 假设BOOL是一个布尔型变量，下面给BOOL赋值的语句中，出错的是 。

A．BOOL = ‘TRUE’ C．BOOL = TRUE

B．BOOL = 128 D．BOOL = \

32. 表达式 6.5 * 5 Mod 28 \\ 8 的值是 。

A. 0 B. 1 C. 2 D. 3

33. 若a为长整型变量，则执行a = 12 : Print Len(a); Len(Str(a)); Len(CStr(a))

后，在窗体上看到的是 。 A．4 2 3 B．2 3 2 C．4 3 2 D．2 2 3

第 5 页 共 12 页

5

2010~2011学年第二学期VB期末考试卷（A卷）2010级

34. 窗体通用声明处有Option Base 1语句，下面有关数组的说法中，正确的是 。

A. 定义数组时，数组的维下界不可以是负数 B. 模块中数组定义语句Dim A(0 To 5) 会与之冲突 C. 用Dim A(0 To 5)定义数组，则A数组第一维维下界为0 D. 用Dim A(0 To 5)定义数组，则A数组第一维维下界仍为1 35. 表示条件“X≤Y＜Z”的正确的VB逻辑表达式是____ _ __。

A． X ≤ Y ＜ Z

B．X ＜＝ Y Or Y ＜ Z

D．X ＜＝ Y ＜Z

C． X ＜＝ Y And Y ＜ Z

36．若设X=1，Y=2，则不能在窗体上显示出“A= 3”的语句是 。 A．Print A = X + Y B．Print \C．Print \ D．Print \ 37. 下面正确的赋值语句是_ _。 A. x + y = 30 B. y =π * r * r C. y = x + 30 D. 3 y = x 38. 执行以下语句后，a的值为__ ______。 Dim A As Integer A = 1

Do Until A = 10

A = A + 2 Loop

A. 9 B. 10 C. 11 D. 溢出

39. 有赋值 K = Int(Rnd * 11) + 10 ，则K的取值范围是____ ________。

A. [10，20] B. [11，20] C. [10，11] D. [10，21] 40. 窗体通用声明处有Option Base 1语句，在程序中用语句Dim a(3 , -2 to 2 , 5)定义了数组a，则a数组包含元素的个数有____ ______。 A. 120 B. 75 C. 60 D. 13

41. 假如一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 。

A．只保存窗体模块文件

B．分别保存窗体模块文件、标准模块文件和工程文件 C．只保存窗体模块和标准模块文件。 D．只保存工程文件

42．以下有关数组的说法中，错误的是 。 A. 用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量

B. 用ReDim语句重新定义动态数组时，不能改变已经说明过的数组的数据类型

第 6 页 共 12 页

6

2010~2011学年第二学期VB期末考试卷（A卷）2010级

C. 使用ReDim语句一定可以改变动态数组的上下界 D. 定义数组时，数组维界值可以不是整数

43． 语句是专门用来为数组或对象集合中的每个元素重复执行一组语句而设置的。 A. Select-Case-End Select B. Do-Loop

C. For-Next D. For Each-Next 44．以下有关Function过程的说法中，正确的是 。

A．函数名在过程中只能被赋值一次

B．如果在函数体内没有给函数名赋值，则该函数无返回值

C．如果在定义函数时没有说明函数的类型，则该函数是无类型的 D．执行过程中的Exit Function语句，将退出该函数，返回到调用点 45.下列关于菜单的说法中，错误的是 。 A. 除了Click事件之外，菜单项不能响应其他事件

B. 菜单的名称项（Name属性）不可缺省

C. 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 D. 菜单项的快捷键不能任意设置 46．在窗体Form1中用“Public Sub Fun(x As Integer, y As Single)”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在此过程中调用Form1中的Fun过程，则下列语句中正确的是 。

A．Form1.Fun I, (J) C．Fun I, (J) 47．数学表达式

x3e?sinxxy3?x?yB．Call Form1.Fun(I, J) D．Call Fun(I, J)

的 VB算术表达式为 。

A．Sqr(x * y ^ 3) + Abs(Exp(x) + Sin(x) ^ 3 / (x - y)) B．Sqr(x * y ^ 3) + Abs((Exp(x) + Sin(x) ^ 3) / (x - y)) C．Sqr(x * y ^ 3) + Abs(Exp(x) + Sin(x) ^ 3 / x - y)

D．Sqr((x * y) ^ 3) + Abs(( Exp(x) + Sin(x) ^ 3) / (x - y))

48．设字符串s = “123abc”， 能正确地将S中的字符一个个分解出来，并分行输出在窗

体上的代码是__ __。 A. For i = 1 To Len(s) B. For i = 1 To Len(s) Print Mid(s, i, 1) Print Left(s, i,1) Next I Next i

C. For i = 1 To Len(s) D. For i = 1 To Len(s) Print Mid(s, 1, i) Print right(s, i,1) Next I Next i 49．以下有关文件用法的描述中，正确的是 。

A．只有顺序文件在读写前，需要使用Open语句打开 B．如果以Input方式打开的顺序文件不存在，则会出错

第 7 页 共 12 页

7

2010~2011学年第二学期VB期末考试卷（A卷）2010级

C．使用同一个文件号，可同时打开多个不同的文件

D．如果程序中缺少Close语句，即使程序运行结束，打开的文件也不会自动关闭 50.使用Debug.Print语句,结果显示在__ __中。

A. 当前窗体 B. 本地窗口 C. 立即窗口 D. 监视窗口

二、填空题（2分×20=40分）

1. 要想在文本框中显示垂直滚动条，必须把ScrollBar属性设置为2，同时还应把MultiLine属性设置为 (1) 。

2. 执行下面的事件过程，在窗体上显示的内容是 (2)

Private Sub Command1_Click()

Dim A As Integer, Bl As Boolean A = 3 Bl = 1

Print A + Bl End Sub

3. 下面程序的执行结果是 (3) 。

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 1: b = 0 Do While a <= 3 b = b + a * a

a = a + 1 Loop Print b End Sub

4. 执行下面程序段，显示在窗体上的最后结果是__(4)__ __。

Private Sub Command1_Click() x = 9: y = 2 Do Until x < 1

If x Mod y = 0 Then y = x - y Else

y = x + y End If x = x - 4

第 8 页 共 12 页

8

2010~2011学年第二学期VB期末考试卷（A卷）2010级

Loop

Print x, y End Sub

5．运行下面程序，单击CmdRun，在窗体上显示a的值是 (5) ；b的值是 (6) ；i的值是 (7) 。

Option Explicit

Private Sub CmdRun_Click()

Dim i As Integer, a As Integer, b As Integer a = 1: b = 10

For i = a To b Step a + 1 a = a + 1 b = b + 1 i = i + 1 Next i Print a, b, i End Sub

6．执行下列程序，单击按钮Command1，窗体上显示的第一行内容是 (8) ，第二行内容是 (9) ，第三行内容是 (10) 。

Option Explicit

Private Sub Command1_Click() Dim a As Integer, b As Integer a = 4 b = 3

Do Until a > 10 b = b / 2

Do Until b > 10

a = (a + b) \\ 2 + b b = b + 5 Print a, b Loop a = a - 3 Loop End Sub 7．运行下面的程序，单击Cmd1，窗体上显示的第一行是 (11) ，第二行是 (12) ，最后一行是 (13) 。

Option Explicit

Private Sub Cmd1_Click() Dim A As Integer A = 3

第 9 页 共 12 页

9

2010~2011学年第二学期VB期末考试卷（A卷）2010级

Call Sub1(A) Print A End Sub

Private Sub Sub1(X As Integer) X = X * 2 + 1 If X < 10 Then Call Sub1(X) End If

X = X * 2 + 1 Print X End Sub

8. 下面程序的功能是统计随机产生的十个两位正整数中偶数与奇数的个数，并求出偶数与奇数各自的总和。 Option Explicit

Private Sub Form_Click()

Dim x As Integer, s1 As Integer, s2 As Integer Dim n1 As Integer, n2 As Integer, i As Integer Randomize

For i = 1 To 10

x = Int(Rnd * 90) + 10 Print x;

If （14） Then n1 = n1 + 1 s1 = s1 + x Else

（15） S2 = s2 + x End If Next i Print

Print \奇数个数=\偶数个数=\ Print \奇数和=\偶数和=\End Sub 9. 本程序的功能是产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中，例如395应存到a(5)中。 Option Explicit

Private Sub Form_Click()

第 10 页 共 12 页

10

2010~2011学年第二学期VB期末考试卷（A卷）2010级

Dim a(9) As Integer, x As Integer, k As Integer, i As Integer Randomize

Do While i <= 9

x = Int(Rnd * 900 + 100)

k = （16） If a(k) = 0 Then a(k) = x

i = （17） End If Loop

For i = 0 To 9 Print a(i); Next i End Sub

10．下面程序的功能是，找出100～999之间具有以下特点的整数：其全部真因子（1和自身除外的因子）中，所有素数因子之和的2倍等于其余因子的和数。请完善本程序。

Option Explicit Option Base 1

Private Sub Command1_Click()

Dim i As Long, j As Long, m As Integer, st As String Dim a() As Integer For i = 100 To 999 m=0

For j = 2 To i - 1

If i Mod j = 0 Then m = m + 1

(18) a(m) = j End If Next j

If m > 0 Then

If yzh(a, st) Then List1.AddItem i & \ End If Erase a Next i End Sub

Private Function yzh(a() As Integer, st As String) As Boolean Dim i As Integer, j As Integer

Dim sum1 As Long, sum2 As Long, st1 As String, st2 As String

第 11 页 共 12 页

11

2010~2011学年第二学期VB期末考试卷（A卷）2010级

For i = 1 To UBound(a) For j = 2 To Sqr(a(i))

If a(i) Mod j = 0 Then Exit For Next j

If (19) Then sum1 = sum1 + a(i) st1 = st1 & a(i) & \ Else

sum2 = sum2 + a(i) st2 = st2 & a(i) & \ End If Next i

If sum1 * 2 = sum2 Then

(20)

st = \

End If

End Function

三、程序设计（10分）

请将以下编写程序题目的答案，写在答题纸上，写在试卷上不给分。 ．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．

生成10个三位随机数，文本框的第一行起显示其中的所有素数；文本框的下面显示合数。文本框中每行显示5个数，若10个随机数中没有素数，则在文本框的第一行显示信息：“没有素数”；若10个随机数中没有合数，则在文本框的下面显示信息：“没有合数”。 运行界面见下图。 要求：

1.Command1_Click()事件过程功能是生成随机数，并按要求处理它们；

2.Command2_Click()事件过程功能是清除文本框Text1中的内容,并将焦点置于Command1上；

3.Command3_Click()事件过程功能是结束程序运行；

4.包含一个通用函数PD（N As Integer）As Boolean。判断：N若为素数返回True,否则返回False。在Command1_Click()事件过程中调用此函数,实现程序的功能。

第 12 页 共 12 页

12

本文来源：https://www.bwwdw.com/article/w13p.html