计算机二级VB模拟试题与答案（三） .doc

2014年计算机二级VB模拟试题及答案（四）一、选择题1、任何控件都有的属性是( )。A.BackColorB.CaptionC.NameD.BorderStyle2、设计数据库的存储结构属于()A.需求分析B.概念设计C.逻辑设计D.物理设计3、某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是()。A.在工程属性对话框中把"启动对象"设置为Form2B.在Forml 的Load 事件过程中加入语句Load Form2C.在Form2的Load 事件过程中加入语句Form2.ShowD.把Form2的TabIndex 属性设置为l ，把Form1的TabIndex 属性设置为24、设有如下通用过程：Public Function Fun(xStr As Stri ng)As Stri ngDi mt Str As Stri ng ，strLAs IntegertStF=""strL=Len(xStr)i =1 Do While i <=strL/2tStr =Tstr &Mid(xStr ，i ，1)&Mid(xStr ，strL-i+1，1)i =i +lLoopFun =tStrEnd Function在窗体上画一个名称为Co mmand1的命令按钮。然后编写如下的事件过程：Private Sub Co mmandI_Click()Di mS1As Stri ngS1="abedef"Pri m UCase(Fun(S1)End Sub程序运行后，单击命令按钮，输出结果是()。A.ABCDEFB.abcdefC.AFBECDD.DEFABC5、下列关于栈的描述正确的是()。A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素6、下列程序段的运行结果是()。Sub sele()Di mn As Integeri =21：n =3Do While i >ni =i -nLoopPrint iEnd SubA.2B.4C.5D.37、复选框的Value 属性为0时，表示该复选框()。A.未被选中B.被选中C.框内有灰色的勾D.操作有误8、在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(见图)。下面能实现此功能的事件过程是()。A.Private Sub Check1_Click(Index As Integer)Text1.Text =""For k =0To 3If Check1(k).value =1ThenText1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格 End If Next kEnd SubB.Private Sub Check1_Click(Index As Integer)For k =0To 3If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格End IfNext kEnd SubC.Private Sub Check1_Click(Index As Integer)Text1.Text ="" For k =0To 3 If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(Index).Caption &""双引号中是空格End IfNext kEnd SubD.Private Sub Check1_Click(Index As Integer)Text1.Text ="" For k =0To 3If Check1(k).Value =1ThenText1.Text =Text1.Text &Check1(k).Caption &""双引号中是空格Exit ForEnd IfNext kEnd Sub9、在窗体上添加一个命令按钮，名为Co mmand1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出()。For i =1To 4For j=1To 3x=3For k =1To 2x=x+3Next kNext jNext iTextl .Text =Str(x)A.3B.6C.9D.1210、下列关于Sub 过程的叙述正确的是()。A.一个Sub 过程必须有一个Exit Sub 语句B.一个Sub 过程必须有一个End Sub 语句C.在Sub 过程中可以定义一个Function 过程D.可以用Goto 语句退出Sub 过程11、下列叙述中正确的是( )。A.在窗体的Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程时，所有局部变量被系统初始化为0或空字符串12、编写如下两个事件过程：Private Sub Form_KeyDown (KeyCode As Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift 键也未锁定大写键时)运行程序，如果按键盘上的"A"键，则程序输出的结果是()。A.AaB.aAC.AAD.aa13、在窗体上画一个命令按钮，名称为Co mmand1，然后编写下列代码：Option Base 0Private Sub Co mmand1_Click()Di m A1(4)As Integer ，A2(4)As IntegerFor k =0To 2A1(k +1)=InputBox("请输入一个整数")A2(3-k)=A1(k +1)Next k Print A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为()。A.0B.1C.2D.314、下面语句正确的是()。A.If x<3*y And x>y Then y =x3B.If x<3*y And x>y Then y =3xC.If x<3*y ：x>y Then y =x3D.If x<3*y And x>y Then y =x*315、下面程序的输出结果是()。Private Sub Co mmand1_Click()Ch$="ABCDEF"proc ch ：Print chEnd SubPrivate Sub proc(ch As Stri ng)s =""For k =Len(ch)To 1Step -1s =s &Mid(ch ，k ，1)Next kch =sEnd SubA.ABCDEFB.FEDCBAC.AD.F16、语句Di ma(-3To 4，3To 6)As Integer 定义的数组元素个数是()。A.18B.28C.21D.3217、以下叙述中错误的是()。A.一个工程中只能有一个Sub Main 过程B.窗体的Show 方法的作用是将指定的窗体装入内存并显示该窗体C.窗体的Hide 方法和Unload 方法的作用完全相同D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体18、在窗体上先后画2个图片框，名称分别为Picture1和banana，banana 中添加了香蕉图片，如图1所示，且将banana.Drag Mode 属性设置为1。要求程序运行时，可以用鼠标把banana 拖拽到Picture1中，如图2所示。能实现此功能的事件过程是()。A.Private Sub Form_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)banana . Move Picture1 . Left +X，Picture1 . Top +YEnd SubB.Private Sub banana_DragDrop(Source As Control ，XAs Si ngle ，Y As Si ngle)Source . Move Picture1 . Left +X，Picture 1 . Top +YEnd SubC.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)Source . Move Picture1 . Left +X，Picture1 . Top +YEnd SubD.Private Sub Picture1_DragDrop(Source As Control ，X As Si ngle ，Y As Si ngle)banana . Move banana . Left +X，banana . Top +YEnd Sub19、用Print 方法在Forml 窗体中显示出4个#号的正确代码为()。A.Debug .Print"#"B.Print"#"C.Forml-Print"#"D.Forml .Print"#"20、一个模块内部各个元素彼此结合的紧密程度的度量称为()A.耦合性B.内聚性C.复杂性D.数据传输特性21、函数值和余弦函数值，角度为1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSi nx As Si ngleCosx As Si ngleEnd TypePrivate Sub Form_Click()Di m Y As Si ngleDi mi As IntegerDi m Ksc As AngOpen _Y =3.14159/180For i =1To 90Ksc .K =iKsc .Si nx=Si n(i*Y)Ksc .Cosx=Cos(i +Y)_Next iClose #2Elld StubA.".Datal .txt"For Rando mAs #1Len =10 Put #1，i ，KscB.".Datal .txt"For Rando m As #1Len =10 Put #1，Y ，KscC.".Datal .txt"For Rando m As #1 Put #1，i ，KscD.".Datal .txt"For Rando m As #1 Put #1，Y ，Ksc22、下列程序运行时输出的结果是()。Option Base 1Const a=10Private Sub Form_Click0Di mx(a)As Integerk =-1For i =1To ax(i)=i*kk =(-1)*kNext iFor i =1To 10Print x(i)Next iEnd SubA.1 3 5 7 9 10B.-1-3-5-7-9C.-1 2-3 4-5 6-7 8-9 10D.1-2 3-4 5-6 7-8 9-1023、某人为计算n!(O<="12)编写了下面的函数过程：</p">Private Function fun(n As Integer)As LongDi m P As LongP=lFor k =n -1To 2Step -1p =p*kNext kfun =pEnd Function在调试时发现该函数过程产生的结果是错误的，程序需要修改。下面的修改方案中有3种是正确的，错误的方案是()。A.把p =1改为p =11B.把For k =n -1To 2Step -1改为For k =1To n -1C.把For k =n -1To 2Step -1改为For k =1To nD.把Fo rk -n -1To 2Step -1改为For k =2To n24、要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是()。A.设置BorderStyle 的值为Fi xed Tool Wi ndowB.设置BorderStyle 的值为Sizable Tool Wi ndowC.设置BorderStyle 的值为Fi xed DialogD.设置BorderStyle 的值为Sizable25、设在窗体上有一个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown (KeyCode As Integer ，Shift As Integer)Const Alt =4Const Key_F2=&H71altdown %=(Shift And Alt)>0f2down %=(KeyCode =Key_F2)If altdown %And f2down %ThenText1.Text ="abl"End IfEnd Sub程序运行后，清除文本框中原有内容，如果按Shift +F2键，则在文本框中显示的是( )。A.Alt +F2B.ablC.随机出几个数D.不发生变化26、在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Co mmand1)，然后编写下列事件过程：Private Sub Co mmand1_Click()x=0DO While x<50x=(x+2)*(x+3)n =n +lLoopText1.Text =Str(n)Text2.Text =Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为()。A.1和0B.2和72C.3和50D.4和16827、下列叙述中错误的是()。A.软件测试的目的是发现错误并改正错误B.对被调试的程序进行"错误定位"是程序调试的必要步骤C.程序调试通常也称为DebugD.软件测试应严格执行测试计划，排除测试的随意性28、一个工程必须包含的文件的类型是( )。A.*.vbp*.frm*.frxB.*.vbp*.cls*.basC.*.bas*.ocx*.resD.*.frm*.cls*.bas29、在文本框中输入字符时，通过( )事件过程可以得到字符的ASCII 码值。A.ChangeB.GotFocusC.KeyPressD.LostFocus30、在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是()。A.并B.交C.投影D.笛卡儿乘积31、有两个关系R ，S 如下：由关系R 通过运算得到关系S，则所使用的运算为()。A.选择B.投影C.插入D.连接32、一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再一次出栈，则元素出栈的顺序是()。A.12345ABCDEB.EDCBA54321C.ABCDEl2345D.54321EDCBA33、在窗体上建立通用对话框需要添加的控件是()。A.Data 控件B.Form 控件C.Co mmonDialog 控件D.VBComboBox 控件34、在窗体上画2个命令按钮，名称分别为Co mmand1、Co mmand2，然后编写下列事件过程。Const n =5，m=4Di ma(m，n)Private Sub Co mmand1_Click()k =1For i =1To mFor j=1To na(i ，j)=kk =k +1Next jNext iEnd SubPrivate Sub Co mmand2_Click()summ=0For i =1To mFor j=1To nIf i =1Or i =m Thensumm=summ+a(i ，j)ElseIf j=1Or j=n Thensumm=summ+a(i ，j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click()的作用是在二维数组a 中存放1个m 行n 列的矩阵;过程Command2_Click()的作用是()。A.计算矩阵外围一圈元素的累加和B.计算矩阵除外围一圈以外的所有元素的累加和C.计算矩阵第1列和最后一列元素的累加和D.计算矩阵第1行和最后一行元素的累加和35、下列关于复选框的说法，正确的是()。A.复选框的Enabled 属性用于决定该复选框是否可见B.复选框的Value 属性用于决定该复选框是否被选中C.复选框的Tabi ndex 属性用于决定该复选框在控件数组中的序号D.复选框的Visi ble 属性用于决定该复选框是否可用36、按照"后进先出"原则组织数据的数据结构是()。A.队列B.栈C.双向链表D.二叉树37、当一个复选框被选中时，它的Value 属性的值是( )。A.3B.2C.1D.038、已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下：Option Base 1Private Sub Co mmand1_Click()Di msum As IntegerSum=0For i =1To 4For j=1To 3Sum=sum+score(i ，j)Next jPrint "第"&i &"个学生的总分是："sum Next iEnd Sub运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是()。A.把外层循环语句For i =1TO 4改为For i =1To 3内层循环语句For j=1TO 3改为For j=1TO 4B.把sum=0移到For i =1TO 4和For j =1TO 3之间C.把sum=sum+score(i ，j)改为sum=sum+score(j，i)D.把sum=sum+score(i ，j)改为sum=score(i ，j)39、设有数组定义语句：Di ma(5)As Integer ，List1为列表框控件。下列给数组元素赋值的语句错误的是()。A.a(3)=3B.a(3)=InputBox("i nput data")C.a(3)=List1.ListIndexD.a=Array(1，2，3，4，5，6)40、下列( )标识符不能作为Visual Basic 的变量名。A.ABCabeB.b1234C.28wedD.crud二、基本操作题41、(1)在名称为Form1的窗体上画一个命令按钮，名称为Command1，标题为"缩小一半"。编写事件过程，程序运行后，如果单击Command1命令按钮，则使Command1按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图25-1所示。图25-1注意：保存时必须存放在考生文件夹下，窗体文件名为sj1.frm，工程文件名为sj1.vbp。(2)在名称为Form1的窗体上画一个命令按钮和一个水平滚动条，其名称分别为Command1和HScroll1。命令按钮的标题为"滚动条变长"。编写适当的事件过程，使得程序运行后，如果单击Command1命令按钮，则使HScroll1水平滚动条的Width属性减小1000，Min属性为0，LargeChange的属性为100，SmallChange的属性为20，且Command1不可用，移动滚动条，在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图25-2所示。图25-2注意：保存时必须存放在考生文件夹下，窗体文件名为sj2.frm，工程文件名为sj2.vbp。三、简单应用题42、(1)在窗体上画三个复选框，名称分别为Ch1、Ch2和Ch3，标题分别为"体育"、"音乐"和"美术"，还有一个命令按钮，名称为c1，标题为"显示"。要求程序运行后，如果选中某个复选框，当单击"显示"命令按钮时，则显示相应的信息。例如，如果选中"体育"和"美术"复选框，单击"显示"命令按钮后，在窗体上显示"我的爱好是体育美术"，如图2-4所示。图2-4注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为sj3.vbp。(2)在考生文件夹中有工程文件sj4.vbp及窗体文件sj4.frm。在名为Form1的窗体上有一个标签数组，名为Lab1，该数组有4个控件元素，标题分别是Wait、Edit、Aix和Move，如图2-5所示。图2-5在程序运行后，将鼠标指针移动到各控件元素上，则鼠标指针的形状将变成各控件元素的标题所代表的鼠标指针形状;离开控件元素，则鼠标指针又变成正常情况下的箭头形状。本程序不完整，请补充完整，并能正确运行。注意：去掉程序中的注释符"'"，把程序中的问号"?"改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。四、综合应用题43、在考生文件夹中有工程文件sj5.vbp及其窗体文件sj5.frm，该程序是不完整的，请在有"?"的地方填入正确内容，然后删除"?"及代码前的所有注释符(即'号)但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在名称为 Form1的窗体上有一个文本框，名称为Text1，MultiLine属性为True，ScrollBars属性为2;两个命令按钮，名称分别为Command1和Command2、标题分别为"读入数据"和"计算保存"，运行界面如图1-5所示。要求程序运行后，如果单击"读入数据"按钮，则读入"in.txt"文件中的50个整数，放入一个数组中(数组下界为1)，同时在文本框中显示出来;如果单击"计算保存"按钮，则先进行升序排列，计算前25个数的和与后25个数的和的差，并把求得的结果在文本框Text2 中显示出来，同时把该结果存入考生文件夹中的文件"out.txt"中。(在考生文件夹下的标准模块mode.bas中的writedata过程可以把结果存入指定的文件)图1-5注意：文件必须存放在考生文件夹下，窗体文件名为sj5.frm，工程文件名为sj5.vbp，计算结果存入out.txt文件，否则没有成绩。