1、二级 VISUAL+BASIC-57 (1)及答案解析(总分：100.00，做题时间：90 分钟)一、B单项选择题/B(总题数：40，分数：100.00)1.算法空间复杂度是指_。 A.算法执行过程中所需要的存储空间 B.算法程序中的指令一共有多少条 C.算法程序所占的存储空间的大小 D.算法程序的大小（分数：2.50）A.B.C.D.2.以下关于队列的叙述中正确的是_。 A.在队列中只能插入数据 B.在队列中只能删除数据 C.队列是先进后出(FILO)的线性表 D.队列是先进先出(FIFO)的线性表（分数：2.50）A.B.C.D.3.在待排序的元素序列基本有序的前提下，效率最高的排序方法是
2、_。 A.快速排序 B.堆排序 C.冒泡排序 D.归并排序（分数：2.50）A.B.C.D.4.在面向对象方法中，一个对象请求另一个对象为其服务的方式是通过发送_。 A.语句 B.命令 C.调用程序 D.消息（分数：2.50）A.B.C.D.5.以下叙述中，正确的是_。 A.软件就是程序的集合 B.软件包括程序和文档 C.软件应包括程序清单及结果 D.软件就是文件（分数：2.50）A.B.C.D.6.程序流程图(PFD)中的“”代表的是_。 A.加工步骤 B.数据流 C.控制流 D.组成关系（分数：2.50）A.B.C.D.7.概要设计使用的工具是_。 A.系统结构图 B.程序流程图 C.PA
3、D 图 D.数据流图(DFD 图)（分数：2.50）A.B.C.D.8.软件测试的过程是_。a验收测试 b集成测试 c单元测试 d系统测试 A.a、b、c、d B.d、c、b、a C.b、a、d、c D.c、b、a、d（分数：2.50）A.B.C.D.9.以下关于数据库系统的叙述中正确的是_。 A.数据库系统消除了冗余 B.数据库系统减少了数据冗余 C.数据库系统中数据的一致性是指数据类型的一致 D.数据库系统比文件系统管理数据快（分数：2.50）A.B.C.D.10.用二维表结构表示实体与实体间联系的数据模型是_。 A.网状模型 B.层次模型 C.面向对象模型 D.关系模型（分数：2.50）
4、A.B.C.D.11.设计窗体时，双击窗体上没有控件的地方，打开的窗口是_。 A.代码窗口 B.属性窗口 C.工具箱窗口 D.工程窗口（分数：2.50）A.B.C.D.12.要计算 x 的平方根并放入变量 y，正确的语句是_。 A.y=Exp(x) B.y=Sgn(x) C.y=Int(x) D.y=Sqr(x)（分数：2.50）A.B.C.D.13.Print Format(1234.56,“#.#“)语句的输出结果是_。 A.123.4 B.1234.6 C.1234.5 D.1234.56（分数：2.50）A.B.C.D.14.Print Right(“VB Programming“,2
5、)语句的输出结果是_。 A.VB B.Programming C.ng D.2（分数：2.50）A.B.C.D.15.表达式 12/2/4 的值是_。 A.1.5 B.2 C.4 D.1（分数：2.50）A.B.C.D.16.下列数组定义中错误的是_。 A.Dim a(-5 To-3) B.Dim a(3 To 5) C.Dim a(-3 To-5) D.Dim a(-3 To 3)（分数：2.50）A.B.C.D.17.在某个事件过程中定义的变量是_。 A.局部变量 B.窗体级变量 C.全局变量 D.模块变量（分数：2.50）A.B.C.D.18.以下过程定义中正确的过程首行是_。 A.Pr
6、ivate Sub Proc(Optional a as Integer, b as Integer) B.Private Sub Proc(a as Integer)as Integer C.Private Sub Proc(a()As Integer) D.Private Sub Proc(ByVal a()As Integer)（分数：2.50）A.B.C.D.19.如果一个菜单项的 Enabled 属性被设置为 False，则程序运行时，该菜单项_。 A.不显示 B.显示但无效 C.有效可用 D.不显示但有效可用（分数：2.50）A.B.C.D.20.顺序文件在一次打开期间_。 A.只
7、能读，不能写 B.只能写，不能读 C.既可读，又可写 D.或者只读，或者只写（分数：2.50）A.B.C.D.21.要使图像框(Image)中的图像能随着图像框的大小伸缩，应该设置的属性及值是_。 A.AutoSize 值为 True B.AutoRedraw 值为 True C.Stretch 值为 True D.BorderStyle 值为 0（分数：2.50）A.B.C.D.22.如果要在窗体上画一个标签，应在工具箱窗口中选择的图标是_。 A B CD （分数：2.50）A.B.C.D.23.如果在框架中画了 2 个复选框，且框架的 Enabled 属性被设置为 False，2 个复选框
8、的 Enabled 属性被设置为 True，则下面叙述中正确的是_。 A.2 个复选框可用 B.2 个复选框不可用 C.2 个复选框不显示 D.上述都不对（分数：2.50）A.B.C.D.24.设窗体上有 2 个直线控件 Line1 和 Line2，若使两条直线相连接，需满足的条件是_。 A.Line1.X1=Line2.X2 且 Line1.Y1=Line2.Y2 B.Line1.X1=Line2.Y1 且 Line1.Y1=Line2.X1 C.Line1.X2=Line2.X1 且 Line1.Y1=Line2.Y2 D.Line1.X2=Line2.X1 且 Line1.Y2=Line
9、2.Y2（分数：2.50）A.B.C.D.25.设在窗体上有一个名称为 Check1 的复选框数组，并有以下事件过程：Private Sub Check1_Click(Index As Integer)End Sub则下面叙述中错误的是_。 A.单击数组中任何复选框都会调用此事件过程 B.参数 Index 的值等于单击数组中某个复选框的 Index 属性的值 C.上面的过程是数组中第 1 个复选框的事件过程 D.从过程的首部(即第 1 行)无法确定数组中复选框的个数（分数：2.50）A.B.C.D.26.下面列表框属性中，是数组的是_。 A.ListCount B.Selected C.Lis
10、tIndex D.MultiSelect（分数：2.50）A.B.C.D.27.如果要在窗体上使用 2 组单选按钮，每组都可以有一个被选中，则应该做的是_。 A.把 1 组单选按钮画在窗体的左边，另 1 组画在右边 B.先画 2 组单选按钮，再画 2 个框架控件把 2 组单选按钮分别框起来 C.先画 2 个框架控件，再把 2 组单选按钮分别画在不同的框架中 D.因为 1 个窗体中只有 1 个单选按钮可以被选中，所以需要使用 2 个窗体（分数：2.50）A.B.C.D.28.窗体上有一个 Text1 文本框，并编写了下面事件过程：Private Sub Text1_KeyPress(KeyAsc
11、ii As Integer)KeyAscii=KeyAscii+3End Sub程序运行时，在文本框中输入字符“A“，则在文本框中实际显示的是_。 A.A B.B C.C D.D（分数：2.50）A.B.C.D.29.设窗体上有一个水平滚动条 HScroll1 和一个命令按钮 Command1，及下面的事件过程： Private Sub Form_Load() HScroll1.Min=0 HScroll1.Max=100 End Sub Private Sub Command1_Click() HScroll1.Value=70 End Sub 程序运行时单击命令按钮，则滚动条上滚动块位置的
12、图示是_。 AB C D （分数：2.50）A.B.C.D.30.窗体上有一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮。以下程序的功能是从顺序文件中读取数据：Private Sub Command1_Click()Dim s1 As String, s2 As StringOpen “c:/d4.dat“ For Append As #3Line Input #3, s1Line Input #3, s2Text1.Text=s1+s2Close End Sub该程序运行时有错误，应该进行的修改是_。 A.将 Open 语句中的 For Append 改为 For
13、 Input B.将 Line Input 改为 Line C.将两条 Line Input 语句合并为 Line Input #3, s1, s2 D.将 Close 语句改为 Close #3（分数：2.50）A.B.C.D.31.设有如下事件过程：Private Sub Command1_Click()For i=1 To 5j=iDoPrint“*“j=j-1Loop Until j=0Next iEnd Sub运行程序，输出“*“的个数是_。 A.5 B.15 C.20 D.25（分数：2.50）A.B.C.D.32.设有如下事件过程：Private Sub Command1_Cli
14、ck()Dim aa=Array(3,5,6,3,2,6,5,3,5,4,3,9,4,5,6,3,5)x=0n=UBound(a)For i=0 To nm=0For j=0 To nIf a(i)=a(j)Thenm=m+1End IfNext jIf mx Then x=m:b=a(i)Next iPrint bEnd Sub运行程序，输出是_。 A.2 B.3 C.5 D.9（分数：2.50）A.B.C.D.33.设窗体上有 2 个文本框 Text1 和 Text2，并有下面的事件过程：Dim nPrivate Sub Text1_KeyPress(KeyAscii As Integer
15、)If “A“=Chr(KeyAscii)And Chr(KeyAscii)=“Z“ Thenn=n+1End IfIf KeyAscii=13 ThenText2.Text=nEnd IfEnd Sub程序运行时，在文本框 Text1 中输入“Visual Basic 6.0“并按回车键后，在文本框 Text2 中显示的是_。 A.2 B.9 C.13 D.16（分数：2.50）A.B.C.D.34.设有如下事件过程：Private Sub Command1_Click()Dim aa=Array(12,3,8,5,10,3,5,9,2,4)For k=1 To 9Print fun(a(k
16、1), a(k); “ “;Next kEnd SubPrivate Function fun(x,y)As IntegerDo While x=yx=x-yLoopfun=xEnd Function程序运行时的输出结果是_。 A.4 0 1 0 3 0 0 4 0 B.0 3 3 5 1 3 5 1 2 C.9 5 3 5 7 2 4 72 D.9 3 3 5 7 3 5 7 2（分数：2.50）A.B.C.D.35.设有下面的语句：Print IIf(x0, 1, IIf(x0,-1, 0)与此语句输出结果不同的程序段是_。 A.If x0 Then x=1 ElseIf x0 Then
17、x=-1 End If Print x B.If x0 Then Print 1 ElseIf x0 Then Print-1 Else Print 0 End If C.Select Case x Case Is0 Print 1 Case Is0 Print-1 Case Else Print 0 End Select D.If x0 Then If x0 Then Print 1 ElseIf x0 Then Print-1 Else Print 0 End If（分数：2.50）A.B.C.D.36.下面的程序是利用公式：=4-4/3+4/5-4/7+4/9-4/11+计算机 的近似值
18、Pvivate Sub Command1_Click()Dim PI As Double, x As Double, k As Long, sign As Integersign=1k=1PI=0Dox=sign*4/(2*k-1)PI=PI+xk=k+1sign=_Loop Unti1 Abs(x)0.000001Print PIEnd Sub在空的处应填写的是_。 A.sign+1 B.-sign C.x D.k（分数：2.50）A.B.C.D.37.要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为 Label1)中，如图所示，放开鼠标左键
19、后，停止同步显示。（分数：2.50）A.B.C.D.38.窗体上有一个名为 List1 的列表框和一个名为 Command1 的命令按钮，并有下面的事件过程：Private Sub Command1_Click()n%=List1.ListIndexIf n0 Thench$=List1.List(n)List1.List(n)=List1.List(n-1)List1.List(n-1)=chEnd IfEnd Sub程序运行时，选中 1 个列表项，然后单击 Command1 按钮，则产生的结果是_。 A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 B.选中的列表项与
20、它前面的列表项互换位置 C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置 D.选中的列表项与它后面的列表项互换位置（分数：2.50）A.B.C.D.39.设有如下函数：Function DelSpace(ch As String)As IntegerDim n%, st$, c$st=“n=0For k=1 To Len(ch)c=Mid(ch,k,1)If c“ “ Thenst=st & cElsen=n+1End IfNext kch=stDelSpace=nEnd Function函数的功能是_。 A.统计并返回字符串 ch 中字符的个数 B.删除字符串 ch 中
21、的空格符，返回删除字符的个数 C.统计并返回字符串 ch 中非空格字符数 D.删除字符串 ch 中除空格符外的其他字符，返回删除字符的个数（分数：2.50）A.B. C.D.解析：解析 过程中对传入的字符串的字符一个个取出，判断如果不是空格则依次连接到一个字符串变量中，如果是空格则计数加 1。最后，返回不包含空格的字符串和空格的个数。因此选项 B 正确。40.设在当前目录下有一个名为“file.txt“的文本文件，其中有若干行文本。编写如下程序：Private Sub Command1_Click()Dim ch$, ascii As IntegerOpen “file.txt“ For In
22、put As #1While Not EOF(1)Line Input #1, chascii=toascii(ch)Print asciiWendClose #1End SubPrivate Function toascii(mystr As String)As Integern=0For k=1 To Len(mystr)n=n+Asc(Mid(mystr,k,1)Next ktoascii=nEnd Function程序的功能是_。 A.按行计算文件中每行字符的 ASCII 码之和，并显示在窗体上 B.计算文件中所有字符的 ASCII 码之和，并显示在窗体上 C.把文件中所有文本行按行显
23、示在窗体上 D.在窗体上显示文件中所有字符的 ASCII 码值（分数：2.50）A. B.C.D.解析：解析 过程 toascii 的功能是依次取出传入字符串中的每个字符，用 Asc 函数将这个字符转换为相应的 ASCII 码值，通过 For 循环将这些值累加。累加值由过程名返回。Click 事件中以顺序输入方式打开 file.txt 文件，即以读取方式打开文件。While 循环的结束条件是到达文件尾部，在循环体中，Line Input #语句读取文件中的一行数据存入变量 ch 中，然后以 ch 为参数调用过程 toascii，即计算这一行字符中所有字符的 ASCII 码值的和，返回值赋给变量 ascii，在窗体上输出 ascii 的值。所以 While 循环结束时，将在窗体上显示输出 file.txt 中每一行数据的 ASCII 码值的和。因此答案为 A。
