1、四川省普通高等学校计算机应用知识和能力第十九次等级考试二级（Visual Basic ）笔试试卷第一部分 软件技术基础(共 15 分)一、判断是非（1 分/小题，共 10 分）1、 数组是一种固定长度的线性表，可以对数组进行插入和删除运算2、 白盒测试时，测试者不考虑程序的内部结构特征3、 对线性表中的数据进行二分查找，必须要求数据元素有限且有序4、 内存管理技术中，每个分区的地址是连续的5、 文件的目录结构是一种线性表6、 面向对象的程序设计中，对象的动作取决于发送给该对象的消息7、 虚拟设备是指将大容量的共享设备的一部分空间用来代替实际的独占设备8、 在结构化程序设计中，N-S 图是用于详
2、细设计的工具之一9、 在操作系统的设备管理中，打印机被看成是一种共享设备10、分时操作系统的主要特征之一是提高计算机系统的实时性二、单项选择题（1 分/小题，共 5 分）1、在排序法中，从未排序序列中依次取出元素，与已排序列中的元素做比较，将其放入已经排序序列的正确位置称为（ ）A）选择排序 B）快速排序 C）插入排序 D）冒泡排序2、有 X、Y、Z 三个元素依次入栈，不可能的出栈的顺序是（ ）A）Z、Y、X B）Z、X 、Y C）Y、X 、Z D）X、Y、Z3、进程的状态是可以转换的，而以下哪个状态转换是不可能的( )A）就绪状态执行状态 B）执行状态就绪状态 C）阻塞状态 就绪状态 D）等
3、待状态执行状态4、线性链表的地址（ ）A）必须连续 B）部分地址必须连续 C）一定不连续 D）连续与否都可以5、在软件测试中， （ ）主要分析程序的内部结构。A）白盒法 B）黑盒法 C）因果图法 D）错误推测法第二部分Visual Basic 语言程序设计一、单项选择题（1 分/题，共 10 分）1、在 Visual Basic 中，窗体文件的扩展名为（ ）A）EXE B）BAS C）FRM D）VBP2、表达式 8+2*329/8-3 mod 2 的结果为（ ）A）25 B）24 C）7 D）7.253、从键盘上输入两个字符串，分别保存到变量 Str1 和 Str2 中，确定第二个字符串在第
4、一个字符串中起始位置的函数是（ ）A）Left B）Mid C）String D）Instr4、若 X 是一个正实数，能对 X 的第 3 位小数进行四舍五入的表达式是（ ）A）0.01*Int(100*(x+0.05) B）0.01*Int(100*(x+0.005)C）0.01*Int(x+0.05) D）0.01*Int(x+0.005)5、下面四个语句中能打印显示 20*30 字样的是（ ）A）pint “20*30” B）print 20*30 C）print chr(20)+”*”+chr(30)D） D）print Val(“20”*Val(“30”)6、变量在窗体模块中申明为公共
5、的，下列关于变量的陈述哪条是正确的（ ）A）可以从项目的任何打模块中存取变量B）可以在窗体的任何地方存取变量，而不是在窗体模块外C）只能在同一个项目的其它窗体模块中存取变量D）变量不能在窗体模块中申明为公共的7、对一个窗体对象，其最先发生的事件是（ ）A）Click B）DbClick C）Load D）UnLoad8、以下能触发文本框 Change 事件的操作是（ ）A）文本框失去焦点 B）文本框获得焦点C）设置文本框的焦点 D）改变文本框的内容9、若要使标签控件显示时覆盖其背景内容，要设置其 BackStyle 属性的值为（ ）A）0 B）1 C）2 D）310、下面对控件数组叙述正确的是
6、（ ）A）在窗体上添加第二个相同类型的空间时， VB 不会提示创建一个空间数组B）控件数组使用 Index 属性来标识下标，其范围从 0 开始C）控件数组使用的资源比用几个单独同样的控件占用的更多D）如果有一个按钮叔祖，按任一按钮不会调用相同的 Click 事件过程二、阅读分析程序（3 分/题，共 45 分）1、阅读下面的程序Option ExplicitDim n As Integer, L As Integer, I As Integer, J As IntegerDim a() As Integern = InputBox(“请输入一个整数 “)ReDim a(1 To n)a(1) =
7、 1: a(2) = 2: a(3) = 3: L = 4L1: For I = 5 To nFor J = 2 To L - 1If I Mod a(J) = 0 ThenExit ForEnd IfL2: Next JL3: If J L - 1 Then a(L) = I: L = L + 1Next IL4: For I = 1 To L - 1Print a(I);Next IL = L - 1Print “ L=“; LEnd Sub（1）程序运行后点击“Command1” ，如果在输入框输入 20，输出的结果为（ ） A）1，2，3，5，7，11，13 ，17，19，L=9B）1
8、，3，5，7，9，11，13， 15，17，L=19C）1，2，3，4，5，.18 ，19，L=19D）1，2，3，4，5，.18 ，19，20，L=20（2）上述程序中语句“Dim a( ) as Integer”的功能是（ ）A）定义 a 是 11 个元素的整形数组 B）定义一个动态数组C）定义了一个静态数组 D）定义了 a 个整形变量（3）当执行语句“Exit For”后，程序流程将( )继续执行A）从语句标号 L1 处 B）从语句标号 L2 处C）从语句标号 L3 处 D）从语句标号 L4 处2、阅读下面的程序Option ExplicitPrivate Sub Command1_Cl
9、ick()Dim StrPassWord As StringDim I As IntegerFor I = 1 To 3StrPassWord = InputBox(“Password“)If StrPassWord = “123“ ThenLLL: Exit ForEnd IfNext IIf I = 4 ThenMsgBox “你不是合法用户 “ElseMsgBox “欢迎你 “End IfEnd Sub（1）该程序的作用是（ ）A）用户输入 3 次正确口令”123” ，才显示“欢迎你” ，输入 3 次错误口令才显示“你不是合法用户”B）用户输入 1 次正确口令”123”，才显示“欢迎你”
10、 ，输入 1 次错误口令才显示“你不是合法用户“C）用户输入 1 次正确口令”123”，才显示“欢迎你” ，输入 3 次错误口令才显示“你不是合法用户“D）用户输入 1 次出错口令”123” ，才显示“欢迎你” ，输入 3 次正确口令才显示“你不是合法用户“（2）如果将 LLL 处的语句去掉，则（ ）A）和原来的程序效果一样B）用户必须输入 3 次正确口令后，才会显示 “欢迎你“C）用户必须输入 3 次口令，且输入任何口令都显示 “欢迎你“D）用户必须输入 3 次口令，且输入任何口令都显示 “你不是合法用户“3、阅读下面的程序Private Sub Form_Click()Dim a(2, 4
11、) As Integer, b(4) As IntegerDim i As Integer, J As IntegerDo While i = “a“ And stra 0a = n = n 10count = count + 1temp(count) = aLoopIf sign Then strc = “-“ Else strc = “+“For i = count To 1 Step -1strc = Next iEnd Sub4、从键盘上输入任意一个整数 x，将其插入到一个按升序排列的整数数组中，并保证数组在插入之后仍按原来的升序排列，请填写完整程序。Option ExplicitOp
12、tion Base 1Const n = 10Private Sub Form_Click()Dim aDim i As Integer, j As Integer, x As Integera = Array(1, 3, 4, 5, 9, 15, 22, 28, 30, 60)For i = 1 To nPrint a(i)Next iPrintx = InputBox(“输入一个整数 x：“)ReDim Preserve a(n + 1)For i = n To 1 Step -1If Thena(i + 1) = a(i)Else Exit ForEnd IfNext i For i =
13、 1 To n + 1Print a(i) Next iEnd Sub5、下面程序实现当“单击”命令按钮 cmdRead 从文件”List.txt“中读入行数据并写入一个列表框中，文件中的每一行在列表框中占一个选项，请完善程序。Private Sub cmdRead_Click()Dim strList As StringDim intFileNum As IntegerintFileNum = FreeFile()Open App.Path + “List.txt“ For Input As #intFileNumdo until Line Input #intFileNum, strListList1.AddItem Loop End Sub
