1、二级 VISUAL+BASIC 笔试-227 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.为了提高软件模块的独立性，模块之间最好是( )。（分数：2.00）A.控制耦合B.公共耦合C.内容耦合D.数据耦合2.有下列二叉树，对此二叉树中序遍历的结果是( )。（分数：2.00）A.B.C.D.3.按文件的访问方式不同，可以将文件分为( )。（分数：2.00）A.顺序文件、随机文件B.文本文件和数据文件C.数据文件和可执行文件D.ASC文件和二进制文件4.源程序的文档化不包括( )。（分数：2.00）A.符号名的命名要有实际意义B.正确的文档
2、形式C.良好的视觉组织D.正确的程序注释5.下列程序段错误的是( )。（分数：2.00）A.Dim a As Integera=array(1,2,3,4)B.Dim a(),b()a=array(1,2,3,4): b=aC.Dim a As Varianta=array(1,“aSd“,true)D.Dim a()As Varianta=array(1,2,3,4)6.为了使列表框中的项目分为多列显示，需要设置的属性为( )。（分数：2.00）A.ColumnsB.StyleC.ListD.MultiSelect7.窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是( )。Pfiva
3、te Sub Command1_click()Picture1.Picture=LoadPicture(“C:/picture.ipg“)Picture1.CisPicture1.Print“picture“End Sub（分数：2.00）A.窗体无显示，图片框显示图片和文字 pictureB.窗体上出现 picture 文本，图片框无显示C.窗体上出现 picture 文本，图片框显示图片 picture.jpgD.窗体无显示，图片框只显示 picture 文字8.在新建一个 VisualBasic 工程时，将新建窗体的 Name 属性设置为 TheFirst，则默认的窗体文件名为( )。（
4、分数：2.00）A.Form1.frmB.工程 1.frmC.TheFirst.frmD.Form1.vbp9.下列( )事件过程可以将打开文件对话框的标题改变为“new Caption”。（分数：2.00）A.Private Sub Command1_Click()CommonDialog1.DialogTitle=“new Caption“CommonDialog1.ShowFontEnd SubB.Private Sub Command1_Click()CommonDialog1.DialogTitle=“new Caption“CommonDialog1.ShowOpenEnd Sub
5、C.Private Sub Command1_Click()CommonDialog1.DialogTitle=“new Caption“CommonDialog1.ShowHelpEnd SubD.Private Sub Command1_Click()CommonDialog1.DialogTitle=“new Caption“CommonDialog1.ShowColorEnd Sub10.在 C 盘当前文件夹下建立一个名为 SDat.txt 的顺序文件。要求用 InputBox 函数输入 5 名学生的学号(StuNo)、姓名(StuName)和英语成绩(SmEng)。则在下列横线处合适
6、的语句是( )。Private Sub Form_Click()Open“C：/SDat.txt“For Output AS 1For i=1 To 5SmNo=InputBox(“请输入学号“)StuName=InputBox(“请输入姓名“)StuEndg=Val(InputBox(“请输入英语成绩“)_Next iClose #1End Sub（分数：2.00）A.Input #1,StuNo,StuName,StuEndgB.Put #1,StuNo,StuName,StuEndgC.Write #1,StuNo,StuName,StuEndgD.Get #1,StuNo,StuNam
7、e,StuEndg11.下列叙述正确的是( )。（分数：2.00）A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数C.算法的有穷性是指算法必须能在执行有限个步骤之后终止D.以上三种描述都不对12.在使用打印直接输出信息时，下列哪个属性或方法实现了使文件结束打印( )。（分数：2.00）A.Print 方法B.Page 属性C.NewPage 方法D.EndDoc 方法13.在窗体上画一个名称为“Command1”，标题为“计算”的命令按钮，再画 7 个标签，其中 5 个标签组成名称为 Label1 的控件数组；名称为 Label2 的标签用于显示计算
8、结果，其 Caption 属性的初始值为空；标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在 Label2。下列为“计算”按钮的事件过程，请为横线处选择合适的语句( )。（分数：2.00）A.B.C.D.14.在窗体上画一个名称为 Text1 的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为 Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。Private Sub Op
9、tion1_Click(Index AS Integer)Select Case_Case 0a=“宋体“Case 1a=“黑体“Case 2a=“楷体 GB2312“End SelectText1._=aEnd Sub（分数：2.00）A.Option TextB.Index TextC.Index FontD.Option Font15.待排序的关键码序列为(33，18，9，25，67，82，53，95，12，70)，要按关键码值递增的顺序排序，采取以第一个关键码为基准元素的快速排序法，第一趟排序后关键码 33 被放到第( )个位置。（分数：2.00）A.3B.5C.7D.916.设有变量
10、声明为“Dim aDate As Date”，则为变量 aDate 正确赋值的表达方式是( )。（分数：2.00）A.aDate=#8/2008#B.aDate=#“8/8/2008“#C.aDate=Date(“8/8/2008“)D.aDate=Format(“m/d/yy“，“8/8/2008“)17.假定有一个菜单项，名为 MenuItem，为了在运行时使该菜单项不可见，应使用的语句为( )。（分数：2.00）A.MenuItem.Enabled=FalseB.MenuItem.Enabled=TrmeC.MenuItem.Visible=TrueD.MenuItem.Visible=
11、Flase18.窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。Private Sub Command1_Click()Dim aa=Array(1,2,3,4,5)For k=1 To 4S=S+a(k)Next kPrint SEnd Sub（分数：2.00）A.10B.14C.15D.12019.表达式 Str(Len(“123“)+Str(77.7)的值是( )。（分数：2.00）A.377.7B.377.7C.80.7D.12377.720.下列程序运行时输出的结果是( )。Option Base 1Const a=10Private S
12、ub Form_Click()Dim x(（分数：2.00）A.As Integerk=-1For i=1 T21.有下列函数过程：Function fun1(ByVal x As Integer,ByVal y As Integer)As IntegerDo While y0reminder=x MOd yx=yy=reminderLoopfun1=xEnd Function在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=100b=25x=fun1(a,b)
13、Print xEnd Sub（分数：2.00）A.0B.25C.50D.10022.下列程序段的执行结果是( )。a=75Ifa60 Then i=1Ifa70 Then i=2Ifa80 Then i=3Ifa90 Then i=4Print“i=“;i（分数：2.00）A.i=1B.i=2C.i=3D.i=423.栈和队列的共同点是( )。（分数：2.00）A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素D.没有共同特点24.数据库系统的核心是( )。（分数：2.00）A.数据模型B.数据库管理系统C.数据库D.数据库管理员25.数据的存储结构是指( )。（分数：2.00）
14、A.数据所占的存储空间B.数据的逻辑结构在计算机的存放形式C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据26.有下列程序段，其输出结果是( )。a=0:b=0For i=-1 To -2 Step -1For j=1 To 2b=b+1Next ja=a+1Next iPrint a;b（分数：2.00）A.2 3B.-2 2C.4 2D.2 427.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发过程中的技术问题28
15、.下列事件过程的功能是：建立一个名为 Datal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleDim i As IntegerDim Ksc As AngOpen_Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i*Y)Ksc.Cosx=C
16、os(i*Y)_Next iClose #2End Sub（分数：2.00）A.“/Data1.txt“For Random As #1 Len=10 Put #1,i,KscB.“/Data1.txt“For Random As #1 Len=10 Put #1,Y,KscC.“/Data1.txt“For Random As #1 Put #1,i,KscD.“/Data1.txt“For Random As #1 Put #1,Y,Ksc29.下列程序的运行结果是( )。Private Sub Command1_Click()a=1.5b=1.5Call fun(a,b)Print a,
17、bEnd SubPrivate Sub fun(x,y)x=y*yy=y+xEnd Sub（分数：2.00）A.2.25 3.75B.1.5 2.25C.1.5 0.75D.0.75 1.530.在窗体上有一个文本框控件，名称为 TextTime，一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。（分数：2.00）A.B.C.D.31.窗体上添加一个文本框 Text1，编写下列代码：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+5)XSum=Sum+XE
18、nd IfNext XPrint Tab(20);“Sum=“;SumEnd Sub（分数：2.00）A.Int(Rnd*99+1) In arrB.Int(Rnd) In arrC.Int(Rnd*99+1) In arr()D.Int(Rnd) In arr()35.已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic 表达式为( )。（分数：2.00）A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(X)*Sin(30*3.14/180)*2*x/(x+y)
19、*Log(x)D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)二、填空题(总题数：11，分数：30.00)36.在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间 1 的信息。（分数：2.00）填空项 1:_37.按照“先进先出”的原则组织数据的结构的是 1。（分数：2.00）填空项 1:_38.深度为 5 的满二叉树中，叶子结点的个数为 1。（分数：2.00）填空项 1:_39.在面向对象方法中， 1 描述的是具有相似属性与操作的一组对象。（分数：2.00）填空项 1:_40.Jackson 方法是一种面向 1 的结构化方法。（分数：2.0
20、0）填空项 1:_41.在鼠标事件过程 MouseDown 和 MouseUp 中，参数 Button 的值为 1、2、4 时，分别代表按下鼠标的 1、 2 和 3 按钮。（分数：6.00）填空项 1:_填空项 1:_填空项 1:_42.已知变量 boo1Var 是一个布尔型的变量，如果要给其赋值为 True，则正确的赋值语句是 1。（分数：2.00）填空项 1:_43.执行下列语句后，输出结果是_。s$=“ABCDEFG“Print lnStr(s$,“efg“)Print LCase$(s$)（分数：2.00）填空项 1:_44.表达式“12345“12345“i（分数：2.00）A.i=
21、1B.i=2C.i=3D.i=4 解析：解析 程序执行过程为：程序首先给变量 a 赋初值 75，然后执行第 2 行 if 语句，条件成立，因此执行 i=1 赋值语句；接着执行第 3 行 if 语句，条件成立，因此执行 i=2 赋值语句；接着执行第 4 行 if语句，条件不能成立，因此不执行 i=2 赋值语句；接着执行第 5 行 if 语句，条件成立，因此执行 i=4 赋值语句，此时 i=4；最后执行 Print 输出语句，输出 i。23.栈和队列的共同点是( )。（分数：2.00）A.都是先进先出B.都是先进后出C.只允许在端点处插入和删除元素 D.没有共同特点解析：解析 栈和队列都是操作受限
22、制的线性表，只允许在端点插入和删除。不同点是：栈只允许在表的一端进行插入和删除操作，而队列允许在表的一端进行插入操作，而在另一端进行删除操作。24.数据库系统的核心是( )。（分数：2.00）A.数据模型B.数据库管理系统 C.数据库D.数据库管理员解析：解析 数据库系统由数据库(数据)、数据库管理系统(软件)、数据库管理员(人员)、硬件平台(硬件)、软件平台 5 个部分构成。其中数据库管理系统是数据库系统的核心，它负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等工作。25.数据的存储结构是指( )。（分数：2.00）A.数据所占的存储空间B.数据的逻辑结构在计算机的存放形式
23、 C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据解析：解析 数据的存储结构，又称为数据的物理结构，是数据的逻辑结构在计算机中的存放形式，数据的存储结构有顺序结构、链式结构、散列结构和索引结构等。26.有下列程序段，其输出结果是( )。a=0:b=0For i=-1 To -2 Step -1For j=1 To 2b=b+1Next ja=a+1Next iPrint a;b（分数：2.00）A.2 3B.-2 2C.4 2D.2 4 解析：解析 这个双重 For 循环中，外层的 For 循环循环次数是两次，计算变量 a 的值；内层 For 循环每次执行循环次数也是 2 次，计算
24、变量 b 的值。执行过程为：当 a=0；b=0 时，语句 b=b+1 执行两次，结果为 2，a+1=1。当 a=1；b=2 时，语句 b=b+1 执行两次，结果为 4，a+1=2。因此最后计算结果为a=2，b=4。27.下列描述中正确的是( )。（分数：2.00）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D.软件工程只是解决软件开发过程中的技术问题解析：解析 软件工程是指将工程化的思想应用于软件的开发、应用和维护的过程，包括软件开发技术软件工程管理。28.下列事件过程的功能是：建立一个名为 Da
25、tal 的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为 1，2，3，90。请在空白处填入适当的内容，将程序补充完整。Private Type AngK As IntegerSinx As SingleCosx As SingleEnd TypeDim Ksc As AngPrivate Sub Form_Click()Dim Y As SingleDim i As IntegerDim Ksc As AngOpen_Y=3.14159/180For i=1 To 90Ksc.K=iKsc.Sinx=Sin(i*Y)Ksc.Cosx=Cos(i*Y)_Next iClose #
26、2End Sub（分数：2.00）A.“/Data1.txt“For Random As #1 Len=10 Put #1,i,Ksc B.“/Data1.txt“For Random As #1 Len=10 Put #1,Y,KscC.“/Data1.txt“For Random As #1 Put #1,i,KscD.“/Data1.txt“For Random As #1 Put #1,Y,Ksc解析：解析 分析程序，程序要将角度值及这些角度的正弦函数值和余弦函数值存入 Datal 文件中。因此，应先打开 Datal 文件，应为 Datal 文件是随机文件，要新建并写入信息，所以应用
27、Random 方式打开文件。这里给随机文件指定长度为 10，所以第 1 个空白处应填：“/Dam1.txt“For Random As#1 Len=10。要向随机文件中写入信息，应用 Put 语句，因此第 2 空应填：Put#1，i，Ksc。29.下列程序的运行结果是( )。Private Sub Command1_Click()a=1.5b=1.5Call fun(a,b)Print a,bEnd SubPrivate Sub fun(x,y)x=y*yy=y+xEnd Sub（分数：2.00）A.2.25 3.75 B.1.5 2.25C.1.5 0.75D.0.75 1.5解析：解析 分
28、析程序，命令按钮中的调用函数语句执行过程为：Call fun(a，b)x=y*y=1.5*1.5=2.25，y=y+x=1.5+2.25=3.75。因为这里的参数是默认类型，即传地址形式传递参数，所以 a、b 的值也改变为 2.25、3.75。30.在窗体上有一个文本框控件，名称为 TextTime，一个计时器控件，名称为 Timer1。要求每一秒在文本框中显示一次当前的时间。（分数：2.00）A.B.C. D.解析：解析 计时器控件又称为时针控件，通过引发 Timer 事件，可以有规律地隔一段时间执行一次代码。控件用于背景进程中，是不可见的。Timer 时间也是计时器控件的唯一事件。31.窗
29、体上添加一个文本框 Text1，编写下列代码：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode+5)XSum=Sum+XEnd IfNext XPrint Tab(20);“Sum=“;SumEnd Sub（分数：2.00）A.Int(Rnd*99+1) In arr B.Int(Rnd) In arrC.Int(Rnd*99+1) In arr()D.Int(Rnd) In arr()解析：解析 Rnd 函数用于产生一个小于 1 但大于或等于 0 的实数，题中要求 0100 之间的随
30、机整数，所以需要对 Rnd 产生的实数进行计算处理 Int(Rnd*99+1)。要处理数组中的元素，使用 For EachNext语句处理数组元素时，Each 后只需写出数组名，不能使用小括号。35.已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic 表达式为( )。（分数：2.00）A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*Log(x) D.Exp(X)*Sin(30*3.14/180)*2*
31、X/(X+Y)*Ln(X)解析：解析 “Exp函数功能是计算 e(e2.71828)的某次方，其格式为是 Exp(number)；“Sin函数指定参数的正弦值，它的参数是表示以弧度为单位的角的 Double 型数据：“Log”函数得到某数的自然刘数值，正确的表达方式是 Log(number)；“30”在计算机中应该写成 30*3.14/180；并且各个表达式之间的乘号不能省略。二、填空题(总题数：11，分数：30.00)36.在数据的存储结构中，不仅需要存储各数据元素的信息，还要存放各元素之间 1 的信息。（分数：2.00）填空项 1:_ （正确答案：前后件关系）解析：解析 在数据存储结构中，
32、除了要存储数据，还要存储数据的前后件关系，对于顺序存储的数据结构，前后件之间的关系，是通过存储空间的位置来实现的，而对于链式存储来说，数据元素之间的前后件关系是通过指针来实现的。37.按照“先进先出”的原则组织数据的结构的是 1。（分数：2.00）填空项 1:_ （正确答案：队列）解析：解析 队列是一种特殊的线性表，只允许在表的一端插入元素，在表的另一端删除元素，插入元素的一端叫做“队尾”，删除元素的一端叫做“队头”，先插入的元素先被删除，是按先进先出的原则组织数据的。38.深度为 5 的满二叉树中，叶子结点的个数为 1。（分数：2.00）填空项 1:_ （正确答案：16）解析：解析 满二叉树
33、的叶子结点都在最后一层，即第 4 层，且第 4 层的结点达到最大数，即 25-1(上标)=16。39.在面向对象方法中， 1 描述的是具有相似属性与操作的一组对象。（分数：2.00）填空项 1:_ （正确答案：类）解析：解析 在面向对象方法中，把具有相同属性和方法的对象称为类，类是对象的抽象，对象是类的实例。40.Jackson 方法是一种面向 1 的结构化方法。（分数：2.00）填空项 1:_ （正确答案：数据结构）解析：解析 Jackson 方法是一种结构化分析方法，它是一种面向数据结构的方法。41.在鼠标事件过程 MouseDown 和 MouseUp 中，参数 Button 的值为 1
34、、2、4 时，分别代表按下鼠标的 1、 2 和 3 按钮。（分数：6.00）填空项 1:_ （正确答案：左）填空项 1:_ （正确答案：右）填空项 1:_ （正确答案：中间）解析：解析 MouseDown、MouseUp 和 MouseMove 事件均能区分出鼠标的左、右和中间按钮。Button 参数与按钮的刘应关系是：当 Button=1 时，对应于左按钮(位 0)；当 Button=2 时，对应于右按钮(位 1)；当Button=4 时，刘应于中间按钮(位 2)。42.已知变量 boo1Var 是一个布尔型的变量，如果要给其赋值为 True，则正确的赋值语句是 1。（分数：2.00）填空项
35、 1:_ （正确答案：boo1Var=Ture）解析：解析 赋值运算符号为“=”，功能是将右侧的值赋值给左侧的变量，并要求两侧的数据类型匹配，布尔类型的值有两个 True 或 False，所以正确的赋值形式为：布尔型变量名=True(或 False)。43.执行下列语句后，输出结果是_。s$=“ABCDEFG“Print lnStr(s$,“efg“)Print LCase$(s$)（分数：2.00）填空项 1:_ （正确答案：0CRabcdefg）解析：解析 本题考查了字符串函数的应用。lnStr 函数是字符串匹配函数，它的格式为：InStr(首字符位置，字符串 1，字符串 2，n)。它的功
36、能是在字符串 1 中查找字符串 2，如果找到了，则返回字符串 2 的第一个字符在字符串 1 中的位置。注意：字符串的第一个字符的位置为 1。44.表达式“12345“12345“&“ABC“的值是 1。（分数：2.00）填空项 1:_ （正确答案：True）解析：解析 运算的顺序为先进行算术运算“&”，然后是关系运算“”。表达式“12345“12345“&“ABC“的运算过程如下：先进行算术运算，“12345“12345“&“ABC“=“12345“12345ABC“；再进行关系运算，“12345“12345“&“ABC“=“12345“12345ABC“=True。45.在窗体上画一个文本框
37、和一个图片框，然后编写下列两个事件过程：Private Sub Form_C1ick()Textl.Text=“VB Programming“End SubPrivate SubText1_change()Picture1.Print“VB 程序设计“End SUb程序运行后，单击窗体，则在文本框中显示的内容是_，而在图片框中显示的内容是_。（分数：4.00）填空项 1:_ （正确答案：VB Programming VB 程序设计）解析：解析 单击窗体触发 Form 的 Click 事件，执行“Text1.Text=“VB Programming“”语句，在文本框 Text1 中显示“VB P
38、rogramming“；此时文本框 Text1 的 Text 属性发生了变化，因此触发 Text1 的Change 事件，执行“Picture1.Print“VB 程序设计“”语句，在图片框中显示“VB 程序设计”。46.下列程序用于在带垂直滚动条的文本框 Text1 中输出 3 到 100 之间的全部素数。请填空。Private Sub Command1_click()Text1.Text=“For n=3 to 100k=Int(Sqr(n)i=2Flag=0Do While i= _And Flag=0If n Mod i=0 ThenFlag=1Elsei=i+1End IfLoopLf _TrhenText1.Text=Text1.Text & Str(n) & Chr(13) & Chr(10)End IfNext nEnd Sub（分数：4.00）填空项 1:_ （正确答案：k Flag=0）解析：解析 判断一个数是不是素数，其算法是：从 2 开始到该数的平方根的下限(即为题中 k 的值)去除这个数，如果没有可以整除的数财说明该数是个素数。本题中设置了一个标志变量 Flag，默认值为 0，如果在整除的循环中，检查出该数不是素数，则设置 Flag 为 1，也就是循环后 Flag 为 0 的数表示该数是素数，并把它显示在 Text1 文本框。
