全国计算机等级考试二级(VB)模拟题.doc

计算机等级考试二级（VB）模拟题模拟题一一、单项选择题1、关于对象的属性下列说法正确的是 。A不同对象的属性完全不同。B能在设计时通过属性窗口设置的属性，也一定可以通过代码窗口在编程时设置。C能通过代码窗口在编程时设置的属性，也一定能在设计时通过属性窗口设置。D每一个对象都有自己的属性。2、下列关于变量的定义方法错误的是 。A Dim x as integerB Dim x as integer, y as integerC Dim x,y as integerD Dim x as integer, y as double3、下列表达式的结果为66666的是哪个？A”12345”+54321 B”12345”+”54321”C”12345” & “54321” D12345 & 543214、 若有声明Dim a(1,1 to 3,4) as Integer，则数组a共有元素 个。A12 B30 C15 D45、若已经定义了子过程Schange(x %,y%)，则下述对该子过程的调用正确的是 。ACall Schange(3,5) BSchange(3,5)CCall Schange 3,5 DSchange3,56、对于列表框list1，下列 可以表示列表框的最后一项内容。Alist1.text Blist1.listindexClist1.list(list1.listcount-1) Dlist1.list(listcount-1)7、当通用对话框的Action属性值为4时显示为“字体”对话框，供用户选择字体。在选择字体之前，必须设置该控件的 属性，以使该控件是否显示屏幕字体或打印机字体。A、Font BColor CFlags DFilter8、在下列关于菜单的说法中，正确的是 。A 在程序执行时，如果菜单项的Visible属性为False，则该菜单项变成灰色，不能被用户选择。B 除了Click事件之外，菜单项还能响应其他如DblClick等事件。C 菜单项的快捷键可任意选择。D 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。9、若一个文件的内容为“2010年世界博览会”，则该文件内容用LOF( )函数返回值为 。A16 B10 C20 D1210、要建立一个学生成绩的随机文件，如下定义了学生的记录类型，由学号、姓名、四门课程成绩组成（百分制）组成，程序段 是正确的。A Type student BType studentNo as integer no as integerName as string name as string*10Mark(1 to 4) as integer mark( ) as integer End type End typeCType student DType student No as integer no as integer Name s string*10 name as string*10 Mark(1 to 4) as string mark(1 to 4) as integerEnd type End type11、以下控件可作为其他控件容器的是 。APictureBox和Image BImage和ComboBoxCPictureBox和Frame Frame和ListBox12、要使目录列表框Dir1中的目录结构随驱动器列表框Drive1内容变化而变化，应该 。A 在Dir1的Change事件中，输入Dir1.Path=Drive1.DriveB 在Drive1的Change事件中，输入Dir1.Path=Drive1.DriveC 在Dir1的Change事件中，输入Drive1.Drive=Dir1.PathD 在Drive1的Change事件中，输入Drive1.Drive=Dir1.Path13、Mid(“There are books”,3,5)的值是 。Aere a Bbooks Care De a14、下列控件中，不能获得焦点的是 。A文本框 B菜单 C组合框 D列表框15、在VB中，要将一个窗体从内存中释放，应使用的语句是 。AShow BHide CLoad DUnload二、填充题1、在Visual Basic集成开发环境中，有设计模式、运行模式、 三种工作模式。2、要在窗体的Load事件中使用Print方法在窗体中显示文字，必须先将窗体的 属性设置为True。3、时钟控件的Interval属性，可用来表示两个计时器事件之间的时间间隔，若某时要屏蔽计时器，则该属性值应设为 。4、要显示通用对话框CommonDialog控件提供的另存为对话框界面，则要设置其Action属性为2或者使用 方法。5、当图像框Image1的 属性为True时，加载到图像框的图形可自动调整尺寸以适应图像框的大小。6、Int(100*Rnd)+1产生的随机整数的闭区间是 。7、执行下面的程序段后，a的值为 。a=3for I=1.0 to 3.2 step 0.2 a=a+2next I8、设a=2，b=3，c=4，d=5，下列表达式的值是 。32*b OR a=c AND bc OR cd9、删除列表框中指定的项目所使用的方法为 。10、假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图形框(名称为Picture1)，应执行的语句为 。三、程序填充题1、下列程序能完成如下功能：在某次大奖赛中有10个评委对一名参赛者打分，输入10个评委的打分分数，去掉一个最高分，一个最低分后，求出平均分为该参赛者的得分。如某次评委打分最终结果显示如图A-1所示： 图A-1 最终结果图Private Sub Command1_Click()Dim a(10) As Integer, aver!, min!, max!aver = 0For i = 1 To 10 a(i) = Val(InputBox(输入第 & i & 评委的打分) aver = (1) Next imin = a(1) (2) For i = 2 To 10 查找出最高分和最低分 If a(i) 0 依次分离出每个单词，并把分离出的单词按照长度 n = n + 1 的大小存放于数组a的相应数组元素中 i = Len(Left(stra, j - 1) If i max Then ReDim (1) max = i End If a(i) = a(i) + 1 (2) j = InStr(stra, )Loop (3) If i max Then ReDim Preserve a(i) max = iEnd If (4) n = n + 1Picture1.Print 共有单词; n; 个For i = 1 To max If (5) Then Picture1.Print 其中长度为; i; 的单词有; a(i); 个 End IfNext iEnd Sub四、编程题某公司年底统计每个季度的营业额情况，假设营业额数值是在0，100之间的整数，编写一个完整的程序，要求如下：（1）按照样例，在form1中放置一个组合框combo1，文本框text1、一个列表框list1和一个命令按钮command1。用考生自己的学号建立一个菜单，包含三个子菜单项：“柱形图”、“饼图”和“结束”。（2）在form1窗体显示时，默认每个季度的营业额为50，并如样例显示在列表框中；当在combo1中选择某个季度后，并在text1中输入0，100之间的整数，按提交按钮后，则列表框中该季度后的数值自动变更。（3）当单击“柱形图”菜单项时，在form2中用不同颜色的矩形框表示每个季度的营业额数值。窗体的坐标系定义为Scale (-5, 110)-(45, -10)，颜色可使用Qbcolor(1)Qbcolor(4)。 （4）当单击“饼图” 菜单项时，以form2的中心为圆点、10为半径在form2中用不同颜色的饼图来表示每个季度的营业额数值（5）当单击“结束”菜单项时，程序运行结束。（6）在软盘根目录下将工程保存为v1.vbp,form1保存为frm11.frm，form2保存为frm12.frm，若使用到标准模块则将其保存为module1.bas。样例如图A-3： 图A-3最终结果图模拟题一参考答案：一、 单项选择题1、D 2、C 3、A4、B 5、A 6、C7、C 8、D 9、A10、D 11、C 12、B13、A 14、B 15、D二、填充题1、中断模式 2、AutoRedraw3、0 4、ShowSave5、Stretch 6、1,1007、25 8、False9、RemoveItem 10、Picture1.Picture = LoadPicture(pic2.gif)三、程序填充题1、 (1) aver + a(i) (2) max = a(1)或者max = min(3) min = a(i) (4) a(i) max(5) aver2、 (1) Preserve a(i) (2) stra = Mid(stra, j + 1)(3) i = Len(stra) (4) a(i) = a(i) + 1(5) a(i) 0四、编程题form1的程序代码如下：Option Base 1Dim i As Integer, j As IntegerPrivate Sub Combo1_Change() Text1.Text = Text1.SetFocus End SubPrivate Sub Command1_Click() For i = 1 To 4 If Combo1.Text = AQ(i) Then AE(i) = Text1.Text End If List1.Clear For j = 1 To 4 List1.AddItem AQ(j) & & AE(j) Next j Next iEnd SubPrivate Sub Form_Load() AQ = Array(第一季度, 第二季度, 第三季度, 第四季度) For i = 1 To 4 AE(i) = 50 Next i For i = 1 To 4 List1.AddItem AQ(i) & & AE(i) Next iEnd SubPrivate Sub Mck_Click() Dim sum As Integer Const pi = 3.1415926 Form2.Show Form2.Cls For i = 1 To 4 sum = sum + AE(i) Next i Form2.FillColor = QBColor(4) Form2.Circle (20, 50), 10, QBColor(4) Form2.FillColor = QBColor(1) Form2.Circle (20, 50), 10, QBColor(1), -2 * pi, -AE(1) / sum * 2 * pi Form2.FillColor = QBColor(2) Form2.Circle (20, 50), 10, QBColor(2), -AE(1) / sum * 2 * pi, -(AE(1) + AE(2) / sum * 2 * pi Form2.FillColor = QBColor(3) Form2.Circle (20, 50), 10, QBColor(3), -(AE(1) + AE(2) / sum * 2 * pi, -(AE(1) + AE(2) + AE(3) / sum * 2 * piEnd SubPrivate Sub mexit_Click() EndEnd SubPrivate Sub Mpl_Click() Form2.Show Form2.Cls Form2.Line (-10, 0)-(50, 0) Form2.Line (0, 110)-(0, -10) 画横向刻度单位 For i = 1 To 4 Form2.Line (10 * i, 0)-(10 * i, 5) Form2.CurrentX = 10 * i: Form2.CurrentY = -3 Form2.Print i Next i 画纵向刻度单位 For j = 1 To 10 Form2.Line (0, 10 * j)-(1, 10 * j) Form2.CurrentX = -4: Form2.CurrentY = 10 * j Form2.Print 10 * j Next j 绘制柱形图 For i = 1 To 4 Form2.Line (10 * i - 3, AE(i)-(10 * i + 3, 0), QBColor(i), BF Next iEnd SubForm2的程序代码如下：Private Sub Form_Load() FillStyle = 0 Scale (-5, 110)-(45, -10)End SubModule1的程序代码如下：Public AQ As Variant, AE(4) As Integer模拟题二一、单项选择题1、以下属性不是逻辑型的是 。AEnabled BFontName CFontBold DVisible2、以下关于Cls方法说法错误的是 。A Cls方法能清除运行时在窗体或图形框中显示的文本或图形。B Cls方法不能清除窗体在设计时设置的文本或图形。C 对象Cls方法的使用与否与其CurrentX属性的值没有关系。D Cls方法前若省略对象，则表明该对象为窗体。3、在一行写多条语句时，每个语句之间用 符号分隔。A ， B ： C 、 D ；4、有赋值语句a=Array(1,2,3,4,5)，则Ubound(a)的值为 。A0 B3 C 4 D 55、下列关于过程的说法正确的是 。A 某功能若能定义成子过程，那么也一定能定义成函数过程。B 函数过程的过程名具有数据类型C 子过程的过程名具有数据类型D 形参和实参都可以是常量。6、以下关于变量作用域的说法错误的是 。A 在某过程中用Dim声明的变量只能被本过程存取。B 在某窗体的“通用声明”段用Dim声明的变量可被本窗体的任何过程存取C 在某标准模块中的“通用声明”段用Public声明的变量，可被应用程序的任何过程或函数访问。D 在某过程中用Static声明的变量，每次调用该过程时，重新初始化。7、如果想要在通用对话框提供的打开对话框文件类型列表框中显示word文档和文本文件两种文件类型，则其Filter属性应设置为 。A Word文档|*.doc|文本文件|*.txtB Word文档|文本文件C Word文档（*.doc）|文本文件（*.txt）D *.doc|*.txt8、在使用菜单编辑器设计菜单时，必须输入的项是 。A、快捷键 B标题 C索引 D名称9、以下关于通用对话框和文件列表框的说法错误的是 。A 通用对话框的Filename属性用于设置和得到用户所选的文件名，包含路径名。B 文件列表框的Filename属性用于得到用户所选的文件名，不包含路径名。C 通用对话框的Filter属性可用于过滤文件类型，如CommonDialog1.Filter=”文本文件|*.txt”。D 文件列表框的Pattern属性用于决定显示的文件类型，如File1.Patter=”文本文件|*.txt”。10、文件号最大可取的值为 。A255 B511 C512 D25611、当使用Circle方法画圆弧后，当前坐标在 。A（0，0） B圆弧的起点 C圆弧的终点 D容器的中心12、实现图像框的大小自动适应图像大小的属性设置是 。A 设属性Autosize值为FalseB 设属性Autosize值为TrueC 设属性Strech值为FalseD 设属性Stretch值为True13、下列程序执行的结果是 。 x=1:y=2:z=3 Print “A(”;x+y*z;”)”AA( 7 ) BA( 9 ) CA(1+2*3) DA(7)14、以下说法不正确的是 。A 使用ReDim语句可以改变数组的维数B 使用ReDim语句可以改变数组的类型C 使用ReDim语句可以改变数组的每一维的大小D 使用ReDim语句可以改变对数组中的所有元素进行初始化15、当一个工程含有多个窗体时，其中的启动窗体是 。A 启动VB时建立的窗体B 第一个添加的窗体C 最后一个添加的窗体D 在“工程属性”对话框中指定的窗体二、填充题1、Visual Basic是一种面向对象的程序设计语言，属性、 和方法是面向对象系统所包含的三要素。2、在过程前使用 语句，则强制显示声明模块中的所有变量，否则会给出“变量未定义”的错误提示。3、使用组合框Combo1的 属性可表示其被选定的选项的文本内容。4、若要将数据写入顺序文件f，则首先要打开该文件，可执行如下命令，Open f for as #1。5、在程序运行时可以使用 方法在图形框中装入图形。6、模块是相对独立的程序单元。在VB中主要有3种模块，即 、标准模块和类模块。7、表达式21 mod (10-23)的值为 。8、使用line方法画矩形，必须在指令中使用关键字 。9、当用户单击滚动条的空白处时，滑块移动的增量值由 属性决定。10、下列Visual Basic表达式(x+y)+z80-5(C+D)有错误，其正确的形式是_。三、程序填充题1、下列程序完成以下要求：交换一个二维数组中的各元素。（1）其中二维数组的行列数未定，由用户指定。（2）数组中的各数据元素（介于0，100之间）随机产生，且程序每次运行时产生的随机序列不同。（3）交换的规则可参照图A-4样例分析而得。图A-4最终结果图程序如下：Option Base 1Dim m As Integer, n As Integer, a() As Integer, b() As IntegerPrivate Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text) (1) RandomizePicture1.Print 源数组为：For i = 1 To m For j = 1 To n a(i, j) = (2) Picture1.Print Spc(4 - Len(Str(a(i, j); a(i, j); Next j Picture1.PrintNext iPicture1.Print -End SubPrivate Sub Command2_Click()k = m * nReDim b(k)Picture1.Print 交换后的数组为：For i = 1 To m 将二维数组a按顺序转换为一维数组 For j = 1 To n ii = (3) b(ii) = a(i, j) Next jNext iFor ii = 1 To k 2 对一维数组中的元素按示例进行交换 t = b(ii) b(ii) = b(k - ii + 1) b(k - ii + 1) = tNext iiFor ii = 1 To k 将一维数组b转换成相应的二维数组 If ii Mod n = 0 Then j = n: i = ii n Else j = ii Mod n: i = ii n + 1 End If (4) Picture1.Print Spc(4 - Len(Str(a(i, j); a(i, j); If j = n Then . (5) Next iiEnd Sub2、下列程序完成如下功能：在D盘根目录下有一个已建立好的顺序文件file1.txt，文件内容为只含有字母的一个字符串（有双引号界定符）。单击Command1，打开file1.txt文件，读取字符串并显示在文本框Text1中，最后将按Ascii码值从大到小重新排列的字符串存入文件file2.txt中（无双引号界定符）。Private Function Strsort(s as string) Dim sArr() as string*1,I as integer,j as integer,n as integer,t as string*1 (1) Redim sArr(n) For I=1 to nSArr(i)=Mid(s,I,1) Next I For I=1 to n-1 将数组sArr的数组元素按从大到小排序For j=I+1 to n If sArr(i) Abs(b) Then c = Abs(a) Else c = Abs(b) End If Picture1.Scale (a - 1, c * c)-(b + 1, -c * c) Picture1.Line (a - 1, 0)-(b + 1, 0) Picture1.Line (0, c * c)-(0, -c * c) For i = a To b Step 0.001 Picture1.PSet (i, i * i - 1) Picture1.PSet (i, -i * i + 1) Next i Randomize For i = 1 To 10000 x = Rnd * (b - a) + a If x -1 Then y = Rnd * (-2 * x * x + 2) + x * x - 1 Else y = Rnd * (2 * x * x - 2) - x * x + 1 End If picture1.PSet (x, y), QBColor(Int(Rnd * 16) Next iEnd SubPrivate Sub mset_Click() Dim i As Integer, j As Integer, mcolor As Long Form2.Show Picture1.Scale (0, 0)-(500, 500) Form2.Scale (0, 0)-(500, 500) For i = 1 To 500 For j = 1 To 500 mcolor = Picture1.Point(i, j) If mcolor -1 Then Form2.PSet (i, j), mcolor Next j Next iEnd Sub模拟题三(考试时间90分钟,满分100分，基础理论部分笔试试题)一、 选择题（每小题2分，共70分）1下列叙述正确的是：A程序设计就是编制程序B程序的测试必须由程序员自己去完成C程序经调试改错后还应进行再测试D 程序经调试改错后不必进行再测试2下列数据结构中，能用二分法进行查找的是：A顺序存储的有序线性表B线性链表C二叉链表D有序线性链表3下列关于栈的描述正确的是A在栈中只能插入元素而不能删除元素。B在栈中只能删除元素而不能插入元素。C栈是特殊的线性表，只能在一端插入或删除元素D栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素4下列叙述中正确的是：A一个逻辑数据结构只能有一种存储结构。B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理效率D一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理效率5下列描述中正确的是：A软件工程只是解决软件项目的管理问题B软件工程主要解决软件产品的生产率问题C软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D软件工程只是解决软件开发中的技术问题。6在软件设计中，不属于过程设计工具的是APDL(过程设计语言.BPAD图CN-S图DDFD图7下列叙述中正确的是A软件交付使用后还需要进行维护B软件一旦交付使用就不需要在进行维护C软件交付使用后其生命周期就结束D软件维护是指修复成中被破坏的指令8数据库设计的根本目的是要解决：A数据共享问题B数据安全问题C大量数据存储问题D简化数据维护9设有如下关系表：RABC112223SABC313TABC112223313则下列操作中正确的是AT=RSBT=RSCT=RSDT=R/S10数据库系统的核心是:A数据模型B数据库管理系统C数据库D数据库管理员11假如一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A只保存窗体模块文件B分别保存窗题模块、标准模块和工程文件C只保存窗体模块和标准模块文件。D只保存工程文件。12为了清除窗体上的一个控件，下列正确的操作是：A按回车键B按esc键C选择（单击）要清除的控件，然后按Del键D选择（单击）要清除的控件，然后按回车键。答案：C13以下叙述错误的是A打开一个工程文件时，系统自动装载有关的窗体、标准模块等文件。B当程序运行时，双击一个窗体，则触发该窗体的Dbclick事件CVisual Basic 应用程序只能以解释方式执行D事件可以由用户引发，也可以由系统引发14设s=2,b=3,c=4,d=5下列表达式的值是Not a=cOr4*c=b2 Andb a+cA-1B1CTrueDFalse15设a=5,b=10，则执行c=Int(b-a)*Rnd +a)+1求c值的范围为A510B69C610D5916）在窗体上画一个命令按钮，名称为command1，然后编写如下事件过程：Private sub command1_click ()a$=”software and hardware”b$=Right(a$,8)c$=Mid(a$,1,8)MsgBox a$, b$,c$,1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是Asoftware and hardwareBsoftwareChardwareD117在窗体上有一个命令按钮和一个文本框，其名称分别为Command1和text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_click()a=InputBox(“Enter an integer”)b=InputBox(“Enter an integer”)Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框里输入8和10，则文本框中显示的内容是A108B18C810D出错18在窗体上画两个文本框，其名称分别为Text1 和Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Text=” ”Text2.Text=” ”Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text=Mid(Text1.Text,8)End Sub程序运行后，如果在文本框text1中输入BeijingChina ，则在文本框text2中显示的内容是ABeijingchinaBChinaCBeijingDBeijingC19在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1。然后编写如下事件过程。Private sub Form1_Load()List1.Additem “Item 1List1.Additem “Item 2List1.Additem “Item 3End SubPrivate Sub Command1_Click()List1.List(List1.Listcount)=”AAAA”End Sub程序运行后，单击命令按钮，其结果为A把字符串”AAAA”添加到列表框中，但位置不能确定B把字符串”AAAA”添加到列表框的最后（既“item 3”）的后面C把列表框中的原有的最后的一项改为”AAAA”D把字符串”AAAA”插入到列表框的最前面（既“item 1”）的前面20假定有如下事件过程：Private Sub Form_Click()Dim x as integer , n as integerx=1n=0Do while x28x=x*3n=n-1LoopPrint x,nEnd Sub程序运行后，单击窗体，输出结果是A）81 4B）56 3C）28 1D243 521有如下程序：Private Sub Form_click()Dim Check ,CounterCheck=TrueCounter=0Do Do While Counter20Counter=Counter +1If counter=10 ThenCheck=FalseExit DoEnd If LoopLoop Until Check=FalsePrint Counter,CheckEnd Sub程序运行后，单击窗体，输出结果为：A15 0 B20 -1C10 True