第十九次二级VB等级考试

四川省普通高等学校计算机应用知识和能力第十九次等级考试二级（Visual Basic）笔试试卷第一部分软件技术基础(共15分)一、判断是非（1分/小题，共10分）1、数组是一种固定长度的线性表，可以对数组进行插入和删除运算2、白盒测试时，测试者不考虑程序的内部结构特征3、对线性表中的数据进行二分查找，必须要求数据元素有限且有序4、内存管理技术中，每个分区的地址是连续的5、文件的目录结构是一种线性表6、面向对象的程序设计中，对象的动作取决于发送给该对象的消息7、虚拟设备是指将大容量的共享设备的一部分空间用来代替实际的独占设备8、在结构化程序设计中，N-S图是用于详细设计的工具之一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）等待状态——>执行状态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*3^2\9/8-3 mod 2的结果为（）A）25 B）24 C）7 D）7.253、从键盘上输入两个字符串，分别保存到变量Str1和Str2中，确定第二个字符串在第一个字符串中起始位置的函数是（）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*30C）print chr(20)+”*”+chr(30)D）D）print Val(“20”*Val(“30”)6、变量在窗体模块中申明为公共的，下列关于变量的陈述哪条是正确的（）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、下面对控件数组叙述正确的是（）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) = 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，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_Click()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”，才显示“欢迎你”，输入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) As Integer, b(4) As IntegerDim i As Integer, J As IntegerDo While i <= 4a(1, i) = a(1, i) + 2 * i - 1a(2, i) = a(2, i) + 12 - 2 * ii = i + 1LoopFor i = 1 To 2For J = 1 To 4Print a(i, J);Next JPrintNext IL1: i = 0Do While i <= 4b(i) = a(1, i) + a(2, 4 - i)Text1.Text = b(i)i = i + 1LoopEnd Sub（1）程序执行到L1语句处输出的结果为（）A）1 3 5 7 B）7 5 3 110 8 6 4 10 8 6 4C）10 8 6 4 D）4 6 8 107 5 3 1 1 3 5 7（2）本段程序执行完成后，数组元素b(2)的值为（）A）3 B）7 C）11 D）15（3）本段程序执行完成后，显示在文本框中的结果是（）A）19 17 15 11 B）19 C）15 D）34、在窗体上设计有文本框TxtInput和按钮cmdTest，且TxtInput.Text=”Visual basic is easy“，并有如下代码：Option ExplicitOption Base 1Private Sub cmdTest_Click()Dim strS$, i%, j%, n%, stra$, strb$, count%, t$, strt$()strS = TxtInputn = Len(strS)ReDim strt(n)For i = 1 To nstra = Mid(strS, i, 1)strb = Mid(strS, i + 1, 1)If strb = "s" ThenIf stra >= "a" And stra <= "z" Thencount = count + 1strt(count) = stra + strbEnd IfEnd IfNext iFor i = 1 To countFor j = 1 To count - iIf strt(j) < strt(j + 1) Thent = strt(j): strt(j) = strt(j + 1): strt(j + 1) = tEnd IfNext jNext iFor i = 1 To countPrint strt(i)Next iText1.Text = countEnd Sub（1）程序运行后，count的值应为（）A）0 B）2 C）4 D）6（2）程序运行后，窗体上显示的结果为（）A）basic Visual wasy is B）is is as asC）is as is as D）as as is is（3）Option Explicit的作用是（）A）表明此模块内部变量必须先声明后使用B）表明此模块没有通用过程C）表明此模块的通用过程不能被其他模块调用D）表明此模块变量不声明可以直接使用（3）以下关于语句“Option Base 1”正确的说法是（）A）其功能是知道指定数组的默认上界B）其功能是知道指定数组的默认下界C）其功能是定义动态数组D）其功能是定义静态数组5、阅读下面的程序Option ExplicitOption Base 1Private Type AbcA As IntegerEnd TypePrivate Sub Form_Click()Dim recAbc As AbcDim arrA(4, 4) As IntegerDim intI As Integer, intJ As Integer, intN As IntegerOpen "abc.txt" For Random As #1For intI = 1 To 4For intJ = 1 To 4intN = intN + 1recAbc.A = intNPut #1, , recAbcNext intJNext intICloseOpen "abc.txt" For Random As #1For intJ = 1 To 4For intI = 1 To 4Get #1, intI * intJ, recAbcarrA(intI, intJ) = recAbc.ANext intINext intJText1.Text = arrA(3, 2)CloseFor intI = 1 To 4For intJ = 1 To 4Print Tab(intJ * 3); Format(arrA(intI, intJ), "###");Next intJNext intIEnd Sub（1）程序中的“abc.txt”文件在第一次打开时是按（）方式打开的A）顺序文件读B）顺序文件写C）随机文件D）二进制文件（2）数组arrA完成赋值以后，数组元素arrA(3,2)的值为（）A）1 B）7 C）6 D）4（3）程序运行后在窗体上输出的结果为（）A）1 2 3 4 B）1 2 3 45 6 7 8 2 4 6 89 10 11 12 3 6 9 1213 14 15 16 4 8 12 16C）1 5 9 13 D）1 2 3 42 6 10 14 234 53 7 11 15 345 64 8 12 16 456 7三、程序填空题（2分/空，共30分）1、下面函数的功能是：求变量s（s=a+aa+aaa+aaaa+….）的值，其中，a为一个0~9的数字，总共累积a项，例如：当a=3时，s=3+33+333 （共累积3项）当a=5时，s=5+55+555+5555+55555（共累积5项）请完善程序：Public Function calc(a As Double)s = at = aFor i = 2 To ①t = ②s = s + tNext iPrint sEnd Function2、下面程序是用“冒泡”法将数组a中的10个整数按升序排序，并将排好序的结果显示在文本框中，请完善程序。