21次笔试题(VB)04年10月.doc

第一部分 软件技术基础（共15分）一、是非判断题（每小题上分，共10分）（判断下列各题是否正确，如正确，在客观答题纸上对应编号选A，否则选B）1应用程序在执行过程中，需要通过打印机输出数据时，一般先形成一个打印作业，将其存放在硬盘中的一个指定队列中。当打印机空闲时，就会按先来后服务的方式从中取出待打印的作业进行打印。（1）2若无进程处于运行状态，则就绪队列和等待队列均为空。（2）3多道程序设计是指在一台处理机上并发运行多个程序。（3）4黑盒法是软件测试方法中的静态测试方法之一。（4）5软件的详细设计就是要编写出具体的程序。（5）6软件生命周期中花费最多的阶段是软件维护。（6）7Windows是单用户多任务操作系统，UNIX是多用户多任务操作系统。（7）8进程把程序作为它的运行实体，没有程序也就没有进程。（8）9在结构化分析中，用于描述加工逻辑的主要工具有三种：结构化语言、判定表和判定树。（9）10作业调度程序从后队列中选一个作业装入主存后，决定能否占用处理机的是设备调度程序。（10）二、单项选择题（每小题1分，共5分）11交换技术是在（11）之间交换程序和数据。11(A)主内存与CPU (B)CPU与外设 (C)主内存与外存 (D)外存与CPU12以下的工具中哪个不是软件详细设计中使用的工具（12）。12(A)数据流图 (B)NS图 (C)PDA图 (D)PDL语言13任何两个并发进程之间（13）13(A)一定存在互斥关系 (B)一定存在同步关系 (C)一定彼此独立无关 (D)可能存在同步或互斥关系14进程从运行状态进入就绪状态的原因可能是（14）14(A)被选中占有处理机 (B)等待某一事件(C)等待的事件已发生 (D)时间片用完15算法指的是（15）15(A)计算机程序 (B)解决问题的有限运算序列(C)排序算法 (D)解决问题的计算方法BBABBAAAAB CADDB第二部分 VisuaI BASIC语言程序设计（共85分）一、单项选择题（每小题l分，共10分）1.在 Visual Basic中，窗体模块的扩展名为（16）。 16（A）EXE （B）BAS （C）FRM （D）VBP2表达式Val(“2a0”)+2 Mod 4+3*22的值是（17）。 17（A）16 （B）14 （C）34 （D）403表达式 Int(3 * Rnd + 2) * Int(5 * Rnd - 1)的值是（ 18）。 18（A）1,7 （B）-2,12 （C）-4,12 （D）-4,64设A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达式可以用(19)表示。 19 （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+CA （D）A+BC AND A+CB AND B+CA5在过程定义的以下叙述中，不正确的是（20）。 20 （A）如果不指明参数传递方式，则将按引用方式将实参传给形参（B）如果不指明参数传递方式，则将按传值方式将使参传给形参（C）如果指明传值方式，则在调用该过程时，不会引起实参值的改变（D）如果指明引用方式，则在调用该过程时，可能引起实参值的改变6若要使窗体启动时处于最大化状态，可设置(21)属性。21 （A）StartUpPosition （B）WindowState （C）Caption （D）AutoRedraw7命令按钮标题热字的下划线，可通过（22）符号来设置。 22 （A） （C）_ （D）&8.当鼠标在窗体上移动时，会触发哪种鼠标事件（23）。 23 （A）MouseMove （B）MouseUp （C）MouseDown （D）Click9下面关于窗体事件叙述不正确的是（24）。 24 （A）通过代码调整窗体的大小，会触发一个Resize事件（B）用鼠标单击窗体时会产生一个Click事件（C）每当一个窗体变成活动窗体时，就会产生一个Load事件（D）调用Show方法与设置窗体Visible属性为True具有相同的效果10若想存放如下数据，其中，最为恰当的数组定义方式为：（25）。5 6# 7.2e311.9 8.1d-1 10000 25 （A）Dim ArrB(2,3) As Integer （B）Dim ArrB & (2,3)（C）Dim ArrB!(-4 to -3,2 to 4) （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 NextEnd SubFunction f(a As Integer, b As Integer, ByVal c As Integer) b = b + 1: c = c + 1: f = a + b + cEnd Function（l）程序的执行结果是（26）。 26 （A）2 2 2 （B）8 12 16 （C）8 10 12 （D）10 14 18（2）如果将过程定义中ByVal c As Integer改为c As Integer，程序的执行结果是（27）。27 （A）2 2 2 （B）8 12 16 （C）8 10 12 （D）10 14 18 2阅读下面程序 Option ExplicitPrivate Sub Command1_Click() Dim inp, out As String Dim i As Integer inp = 1234321 For i = 1 To 4 out = Left(inp, i) + Right(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）该程序在窗体上至少设置了几个控件？（28）28 （A）一个 （B）二个 (C) 三个 (D) 四个 （2）下列说法中正确的是（29）。29（A）变量inp、out均为字符串类型（B）变量inp、out的定义可以省略（C）变量inp为变体型、而out为字符串类型（D）变量inp、out可以在其它过程中直接使用（3）当单击名为Command1的命令按钮时，输出结果为（30 ）。 30 （A） 1 （B） 1 （C） 1 （D）1 121 121 121 12112321 12321 12321 12321 1234321 1234321 1234321 123432112321 12321121 1211 13.阅读下面程序Option ExplicitPrivate Sub Form_Click() Dim a As Integer, n As Integer a = 2: n = 10 Print Myfun(a, n); nEnd SubFunction 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 (31)函数。31 (A) 递归 (B) 系统 (C) 数学 (D) 字符串(2) 当用户单击窗体时,输出的结果是（32）。 32 （A）20 0 （B）20 1 （C）20 5 （D）20 10(3) 将语句n = n - 1: Myfun = a + Myfun(a, n)改为Myfun = a + Myfun(a, n-1)后, 用户单击窗体时输出的结果是（33）。 33 （A）20 0 （B）20 1 （C）20 5 （D）20 104阅读下面程序Private Sub Command1_Click() m = Val(Text1.Text) n = Val(Text2.Text) mm = m * n If mm = 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.Text = m Text4.Text = mm / mEnd Sub (1) 在文本框Text1中输入28, 文本框Text2中输入21,单击命令按纽Command1后,文本框Text3和Text4中分别显示的是 (34)34（A）28 21 （B）7 48 （C）7 84 （D）84 7(2) 在文本框Text3中显示的是两个非零正整数m和n的（35）。 35（A）最大值 （B）最小值 （C）最小公倍数 （D）最大公约数(3) 在文本框Text4中显示的是两个非零正整数m和n的（36） 36（A）最大值 （B）最小值 （C）最小公倍数 （D）最大公约数5.阅读下面程序Option Base 1Private Sub Command1_Click() Dim A(9) As Integer A(1) = 1: A(2) = 2: A(3) = 3: A(4) = 4A(5) = 5: A(6) = 6: A(7) = 7: A(8) = 8: 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() As Integer, m As Integer, n As Integer) For i = m To n - 1 For j = m To n - i + m If x(j) x(j + 1) Then t = x(j): x(j) = x(j + 1): x(j + 1) = t Next j Next iEnd Sub（l）语句Option Base 1的功能是（37 ）。37 （A）定义变量类型 （B）指定数组下界 （C）强制变量声明 （D）以上说法都不对（2）语句 Open App.Path + file1.dat For Input As #1表示（38 ）。38 （A）以随机读写的方式打开随机文件 （B）以追加方式打开顺序文件 （C）以读的方式打开顺序文件 （D）以读的方式打开随机文件（3）Sort过程使用的何种排序方式排序（39）。39 （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)，两次调用排序过程后，下列说法正确的是（40）。 40（A）数组A前四个数据无序，后五个数据无序，整体无序。 （B）数组A前四个数据有序，后五个数据有序，整体有序。 （C）数组A前四个数据无序，后五个数据有序，整体无序。（D）数组A前四个数据有序，后五个数据有序，整体无序。三、程序填空（每空2分，共30分）l以下程序实现歌手评分功能。评分规则为：在歌星大赛中，有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) sum = sum + score(i) If score(i) max Then max = score(i) If score(i) min Then min = score(i) Next Print 去掉一个最高分：, max Print 去掉一个最低分：, min Print 歌手最后得分：, (sum - max - min) / 8End Sub2利用下面的多项式求sin(x) 的近似值，其中x和n的值通过键盘输入。Private Sub Form_Click() Dim x As Single, s As Single, sign As Integer Dim n As Integer, xpower 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号来查看对方是否在线。以下程序模拟了该查找功能。其中，在数组中按从小到大方式存放了当前在线的用户QQ号码，要求输入目标QQ号并判断该用户是否在线，请将程序补充完整。Option Base 1Private Sub Command1_Click() Dim QQ QQ = Array(1234, 2345, 13098, 45687, 77519, 1522247, 8223879) Dim low As Long, high As Integer, mid As Integer Dim objQQ As Long, isFound As Boolean low = 1: high = 7: isFound = False objQQ = Val(InputBox(目标QQ号：) Do While 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 IfEnd Sub4编写程序，产生n 个10，300范围内的不同的随机素数，并存放在数组IntA中。其中，数据个数n由键盘输入。Private Sub Command1_Click() Dim IntA%() Dim n%, i%, j%, num%, count%, temp% Dim tag As Boolean n = InputBox(请输入数据个数n:) ReDim IntA(n) Do Until count = n tag = True num = 10 + Int(Rnd * 291) temp = Sqr(num) For i = 2 To temp If num M