VB二级笔试题(四川200410

1、2004年第2次VB考试题第一部分 软件技术基础（共15分）一、判断题（1分/小题，共10分）1.应用程序在执行过程中，需要通过打印机输出数据时，一般先形成一个打印作业，将其存放在硬盘中的一个指定队列中。当打印机空闲时，就会按先来后服务的方式从中取出待打印的作业进行打印。 （ A ）2若无进程处于运行状态，则就绪队列和等待队列均为空。 （ B ）3多道程序设计是指在一台处理机上并发运行多个程序。 （ A ）4黑盒法是软件测试方法中的静态测试方法之一。 （ A ）5软件的详细设计就是要编写出具体的程序。 （ A ）6软件生命周期中花费最多的阶段是软件维护。 （ B ）7Windows是单用户多任

2、务操作系统，UNIX是多用户多任务操作系统。 （ B ）8进程把程序作为它的运行实体，没有程序也就没有程序。 （ B ）9在结构化分析中，用于描述加工逻辑的主要工具有三种，即：结构化语言、判定表和判断树。 （ A ）10作业调度程序从后备队列中选一个作业装入主存后，决定能否占用处理机的是设备调度程序。 （ B ）二、单项选择题（1分/小题，共5分）1交换技术是在（ ）之间交换程序和数据。（A）主内存与CPU (B) CPU与外设 （C）主内存与外存 （D）外存与CPU2以下的工具中哪个不是软件详细设计中使用的工具（ ）（A）数据流图 (B)N_S图 (C)PDA图 (D)PDL语言3任何两个并

3、发进程之间（ ）（A）一定存在互斥关系 (B)一定存在同步关系 (C)一定彼此独立无关 (D)可能存在同步或互斥关系4.进程从运行状态进入就绪状态的原因可能是（ ）。 (A)被选中占有处理机 (B) 等待某一事件 (C)等待的事件已发生 (D) 时间片用完5 算法指的是（ ）。 (A)计算机程序 (B) 解决问题的有限运算序列 (C) 排序算法 (D)解决问题的计算方式第二部分 Visual Basic 语言程序设计（共85分）一、单项选择题（1分/小题，共10分）在Visual Basic中，窗体模块的扩展名是（ ）。 (A) EXE (B) BAS (C) FRM (D)VBP1. 表达式

4、 Val(“2a0”) + 2 Mod 4 + 3 * 2 2的值是（） (A) 16 (B)14 (C)34 (D)403. 表达式Int(3*Rnd+2)*Int(5*Rnd-1)的取值范围是( ) (A)1,7 (B) -2, 12 (C) -4, 12 (D) -4, 64. 设A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达方式可以用（ ）表示（A）A+B=C OR A+C=B OR B+C=A(B) A+B=C OR A+C=B OR B+CC OR A+CB OR B+C.A (D) A+BC AND A+CB AND B+C.A5. 在过程定义的以下叙

5、述中，不正确的是（ ）(A) 如果不指明参数传送方式，则将按引用方式将实参传送给形参(B) 如果不指明参数传送方式，则将按传值方式将实参传送给形参(C) 如果指明传值方式，则在调用该过程时，不会引起实参的值改变(D) 如果指明引用方式，则在调用该过程时，可能引起实参的值改变6. 若要使窗体启动处于最大化状态，可设置（ ）属性。(A)startUpPosition (B) WindowState (C) Caption (D) AutoRedraw7. 命令按钮标题热字的下划线，可通过（ ）符号来设置 (A) (C) _ (D) &8. 当鼠标在窗体上移动时，会触发哪种鼠标事件（ ） (A) M

6、ouseMove (B) MouseUp (C) MouseDown (D) Click9. 下面关于窗体事件叙述不正确的是（ ）。(A) 通过代码调整窗体的大小，会触发一个Resize事件 (B) 用鼠标单击窗体会产生一个Click事件 (C) 每当一个窗体变成活动窗体时，就会产生一个LOAD事件 (D) 调用Show方法与设置窗体Visible属性为True具有相同的效果10. 若想存放如下数据，其中，最为恰当的数组定义方式为：（ ） (A) Dim ArrB(2,3) as integer (B) Dim ArrB&(2,3) (C) Dim ArrB!(-4 to -3, 2 to 4

7、) (D) Dim ArrB(-5 to 4 , -1 to 1) as double二、程序阅读（每个选择3分，共45分）1. 如下程序Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a = 2: b = 0: c = 0 For i = 1 To 3 Print f (a, b, c) * 2; Next iEnd SubFunction f (a As Integer, b As Integer, c As Integer) b = b + 1: c = c + 1: f = a + b

8、+ cEnd Function(1) 程序的执行结果是（ ）。 （A）2 2 2 （B）8 12 16 （C）8 10 12 （D）10 14 18(2) 如果将过程定义中c As Integer 改为ByVal c As Integer，程序的执行结果是（ ） （A）2 2 2 （B）8 12 16 （C）8 10 12 （D）10 14 182Option ExplicitPrivate Sub Command1_Click() Dim inp, out As String, i As Integer inp = For i = 1 To 4 out = Left(inp, i) + Ri

9、ght(inp, i - 1) Picture1.Print Tab(20 - i + 1); out Next i For i = 1 To 3 out = Left(inp, 4 - i) + Right(inp, 4 - i - 1) Picture1.Print Tab(17 + i); out Next iEnd SubPrivate Sub Command2_Click() Picture1.ClsEnd Sub(1) 该程序在窗体上至少设置了几个控件？（ ） （A）一个 （B）二个 （C）三个 （D）四个(2) 下列说法中正确的是（ ）。（A）变量inp、out均为字符串类型 （

10、B）变量inp、out的定义可以省略 （C）变量inp为变体型、而out为字符串类型 （D）变量inp、out可以在其他过程中直接使用(3) 当单击名为Command1的命令按钮时，输出结果为（ ）。 （A） 1 (B) 1 121 121 12321 12321 12321 12321 121 1211 1 （C） 1 (D) 1 121 121 12321 12321 3. 阅读下列程序Option ExplicitPrivate Sub Form_Click() Dim a As Integer, n As Integer a = 2: n = 10 Print MyFun(a, n);

11、 nEnd SubPrivate Function MyFun(a As Integer, n As Integer) If n = 0 Then Exit Function Else n = n - 1: MyFun = a + MyFun(a, n) End IfEnd Function（1） 程序中定义的MyFun是（ ）函数。 （A）递归 （B）系统 （C）数学 （D）字符串（2） 用户单击窗体时，输出的结果是（ ）。 （A） 20 0 （B）20 1 （C）20 5 （D）20 10（3） 将语句n = n - 1: MyFun = a + MyFun(a, n)改为MyFun =

12、a + MyFun(a, n-1)后，用户单击窗体时，输出的结果是（ ）。（A） 20 0 （B）20 1 （C）20 5 （D）20 104. 阅读下列程序Private Sub Command1_Click() m = Val(Text1.Text): n = Val(Text2.Text) : mn = m * n If mn = 0 Then MsgBox 两数都不能为0！ Exit Sub End If If m n Then t = m: m = n: n = t End If Do r = m Mod n: m = n: n = r Loop While r 0 Text3.Te

13、xt = m Text4.Text = mn / mEnd Sub（1） 在文本框Text1中输入28，文本框Text2中输入21，单击命令按钮Command1后，文本框Text3与Text4中分别显示的是（ ）。 （A）28 21 （B）7 48 （C）7 84 （D）84 7（2） 在文本框Text3中显示的是两个非零正整数m和n的（ ）。（A）最大值 （B）最小值 （C）最小公倍数 （D）最大公约数（3） 在文本框Text4中显示的是两个非零正整数m和n的（ ）。 （A）最大值 （B）最小值 （C）最小公倍数 （D）最大公约数5. 有如下程序Option Base 1Private Su

14、b Command1_Click() Dim A(9) As Integer A(1) = 1: A(2) = 3: A(3) = 2: A(4) = 5: A(5) = 4 A(6) = 6: A(7) = 8: A(8) = 7: A(9) = 9 Call sort(A, 1, 3): Call sort(A, 4, 6): Call sort(A, 7, 9) Open App.Path + file1.dat For Output As #1 For i = 1 To 9 Print #1, A(i) Next Close #1End SubPublic Sub sort(x() A

15、s Integer, m As Integer, n As Integer) For i = m To n - 1 For j = m To n - i + m If x(i) x(i + 1) Then t = x(i): x(i) = x(i + 1): x(i + 1) = t Next j Next iEnd Sub（1）语句Option Base 1的功能是（ ）（A）定义变量类型 （B）指定数组下标下界（C）强制变量声明 （D）以上说法都不对（2）语句Open App.Path + file1.dat For Output As #1表示（ ）。 （A）以随机读写的方式打开随机文件

16、 （B）以追加方式打开顺序文件（C）以读的方式打开顺序文件 （D）以写的方式打开顺序文件（3）SORT过程使用的何种排序方式排序（ ）。 （A）冒泡法 （B）插入法 （C）选择法 （D）其他(4) 如果将Call sort(A, 1, 3): Call sort(A, 4, 6): Call sort(A, 7, 9)改成Call sort(A, 1, 4)。Call sort(A, 5, 9)两次调用排序过程后，下列说法正确的是（ ）。（A）数组A前四个数据无序，后五个数据无序，整体无序（B）数组A前四个数据有序，后五个数据有序，整体有序（C）数组A前四个数据无序，后五个数据有序，整体无序（

17、D）数组A前四个数据有序，后五个数据有序，整体无序三、程序填空（每空2分，共30分）1以下程序实现歌手评分功能。评分规则：在歌星大奖赛中，有10个评委为参赛的选手打分，分数为0100分。选手最后得分为：去掉一个最高分和一个最低分后其余8个分数的平均值。 Private Sub Command1_Click() Dim score(10) As Integer Dim max As Integer, min As Integer, sum As Integer max = -1: min = 101 For i = 1 To 10 score(i) = Val(InputBox(score) s

18、um = sum + score(i) If score(i) max Then max = score(i) If score(i) min Then mix = score(i) Next Print 去掉一个最高分：, max Print 去掉一个最低分：, min Print 歌手最后得分：, (sum-max-min)/8 End Sub2利用下面的多项式求sin x的近似值，其中x和n的值通过键盘输入。Private Sub Form_Click() Dim x As Single, s As Single, sign As Integer Dim n As Integer, xp

19、ower As Single x = Val(InputBox(请输入x:) n = Val(InputBox(请输入n:) s = x: sign = 1 For i = 2 To n t=1 xpower = 1 For j = 1 To 2 * i - 1 t = t * j xpower = xpower*x Next j sign = -sign s = s + sign * xpower / t Next i Print sin; x; =; sEnd Sub3QQ是一种常用的网络聊天工具，我们可以通过输入QQ号来查看对方是否在线。以下程序模拟了该查找功能。其中，在数组中按从小到大

20、方式存放了当前在线的用户QQ号码，要求输入目标QQ号并判断该用户是否在线，请将程序补充完成。Option Base 1Private Sub Command1_Click() Dim QQ QQ = Array(1234, 2345, 13098, 77519, , , ) Dim low As Long, high As Integer, mid As Integer Dim objQQ As Integer, isFound As Boolean low = 1: high = 7: isFound = False objQQ = Val(InputBox(目标QQ号:) Do While

21、 isFound = False And low=high mid = Int(low + high) / 2) If objQQ = QQ(mid) Then isFound = True ElseIf objQQ QQ(mid) Then Low=mid+1 End If Loop If isFound = True Then Print objQQ, 在线 Else Print objQQ, 不在线End Sub4编写程序，产生n个10，300范围内的不同随机素数，并存放在数组IntA中。其中，数据个数n由键盘输入。Private Sub Command1_Click() Dim intA%() Dim n%, i%, j%, num%, count%, temp%, tag As Boolean n = InputBox(请输入数据个数n:) ReDim intA%(n) Do