1、二级 VISUAL+BASIC-61及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.数据库设计中反映用户对数据要求的模式是_。（分数：2.50）A.内模式B.概念模式C.外模式D.设计模式2.在 Visual Basic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是_。 A B C D （分数：2.50）A.B.C.D.3.一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是_。（分数：2.50）A.一对一B.一对多C.多对多D.多对一4.下面描述中，不属于软件危机表现的是
2、_。（分数：2.50）A.软件过程不规范B.软件开发生产率低C.软件质量难以控制D.软件成本不断提高5.软件生命周期是指_。（分数：2.50）A.软件产品从提出、实现、使用维护到停止使用退役的过程B.软件从需求分析、设计、实现到测试完成的过程C.软件的开发过程D.软件的运行维护过程6.面向对象方法中，继承是指_。（分数：2.50）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制7.层次型、网状型和关系型数据库划分原则是_。（分数：2.50）A.记录长度B.文件的大小C.联系的复杂程度D.数据之间的联系方式8.软件测试的目的是_。
3、（分数：2.50）A.评估软件可靠性B.发现并改正程序中的错误C.改正程序中的错误D.发现程序中的错误9.下列叙述中正确的是_。（分数：2.50）A.线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B.线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C.线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D.上述三种说法都不对10.有三个关系 R、S 和 T如下： （分数：2.50）A.自然连接B交C.投影D并11.下列叙述中正确的是_。（分数：2.50）A.在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B.在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变
4、化C.在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D.上述三种说法都不对12.在 Visual Basic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是_。（分数：2.50）A.工程资源管理器窗口B.属性窗口C.工具箱窗口D.代码窗口13.下列叙述中错误的是_。（分数：2.50）A.列表框和组合框都有 List属性B.列表框有 Selected属性，而组合框没有C.列表框和组合框都有 Style属性D.组合框有 Text属性，而列表框没有14.设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是_。（分数：2.50）A.NameB.IndexC.CaptionD
5、.Left15.滚动条可以响应的事件是_。（分数：2.50）A.LoadB.ScrollC.ClickD.MouseDown16.设 a=5，b=6，c=7，d=8，执行语句 x=IIf(ab)And(cd)，10，20)后，x 的值是_。（分数：2.50）A.10B.20C.30D.20017.语句 Print Sgn(-62)+Abs(-62)+Int(-62)的输出结果是_。（分数：2.50）A.-36B.1C.-1D.-7218.在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如图所示，则命令按钮的 Top属性值是_。 （分数：2.50）A.200B.300C.500D.7001
6、9.在窗体上画一个名称为 Command1的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() a$=“software and hardware“ b$=Right(a$, 8) c$=Mid(a$,1,8) MsgBox a$,bs,cs,1 End sub 则在弹出的信息框标题栏中显示的标题是_。（分数：2.50）A.software and hardwareB.hardwareC.softwareD.120.在窗体上画一个文本框(名称为 Text1)和一个标签(名称为 Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相
7、同的内容。以下可以实现上述操作的事件过程是_。（分数：2.50）A.Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubB.Private Sub Label1_Change()Label1.Caption=Text1.TextEnd SubC.Private Sub Text1_Click()Label1.Capnon=Text1.textEnd SubD.Private Sub Label1_Click()Label1.Caption=Text1.TextEnd sot21.以下说法中错误的是_。（分数：2.50）A.如果把一
8、个命令按钮的 Default属性设置为 True，则按回车健与单击该命令按钮的作用相同B.可以用多个命令按钮组成命令按钮数组C.命令按钮只能识别单击(Click)事件D.通过设置命令按钮的 Enabled属性，可以使该命令按钮有效或禁用22.以下关于局部变量的叙述中错误的是_。（分数：2.50）A.在过程中用 Dim语句或 Static语句声明的变量是局部变量B.局部变量的作用域是它所在的过程C.在过程中用 Static语句声明的变量是静态局部变量D.过程执行完毕，该过程中用 Dim或 Static语句声明的变量即被释放23.以下程序段的输出结果是_。 x=1 y=4 Do Until y4
9、x=x*y y=y+1 Loop Print x（分数：2.50）A.1B.4C.8D.2024.如果执行一个语句后弹出如图所示的窗口，则这个语句是_。 （分数：2.50）A.InputBox(“输入框“,“请输入 VB数据“)B.x=InputBox(“输入框“,“请输入 VB数据“)C.InputBox(“请输入 VB数据“,“输入框“)D.x=InputBox(“请输入 VB数据“,“输入框“)25.有如下事件过程： Private Sub Form_C1ick() Dim n As Integer x=0 n=InputBox(“请输入一个整数“) For i=1 To i For j
10、=1 To i x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入 5，则在窗体上显示的内容是_。（分数：2.50）A.13B.14C.15D.1626.请阅读程序： Sub subP(b()As Integer) For i=1 To4 b(i)=2*i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4)As Integer a(1)=5: a(2)=6: a(3)=7: a(4)=8 subP a() For i=1 To 4 Print a(i) Next i
11、 End Sub 运行上面的程序，单击命令按钮，则输出结果是_。（分数：2.50）A.246B.5678C.10121416D.出错27.Fibonacci数列的规律是：前 2个数为 1，从第 3个数开始，每个数是它前 2个数之和，即1，1，2，3，5，8，13，21，34，55，89，某人编写了下面的函数，判断大于 1的整数 x是否是Fibonacci数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim a As Integer, b As Integer, c As Integer, flag
12、As Boolean flag=False a=1: b=1 Do While xb c=a+b a=b b=c If x=b Then flag=True Loop Isfab=flag End Function 测试时发现对于所有正整数 x，函数都返回 False，程序需要修改。下面的修改方案中正确的是_。（分数：2.50）A.把 a=b与 b=c的位置互换B.把 c=a+b移到 b=c之后C.把 Do While xb 改为 Do While xbD.把 If x=b Then flag=True改为 If x=a Then flag=True28.在窗体上画一个命令按钮，其名称为 Co
13、mmand1，然后编写如下事件过程： Private Sub Command1_Click() Dim a$, b$, c$, k% a=“ABCD“ b=“123456“ c=“ k=1 Do While k=Len(a) Or k=Len(b) If k=Len(a)Then c=c m=m+1 For j=1 To i Print “*“; Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是_。（分数：2.50）A.1*2*3*4*B.4*3*2*1*C.*D.*30.在窗体上画一个命令按钮(其名称为 Command1)，然后编写如下代码： Pri
14、vate Sub Command1_Click() Dim a a=Array(1,2,3,4) i=3: j=1 Do While i=0 s=s+a(i)*j i=i-1 j=j*10 Loop Print s End Sub 运行上面的程序，单击命令按钮，则输出结果是_。（分数：2.50）A.4321B.123C.234D.123431.下列可以打开随机文件的语句是_。（分数：2.50）A.Open “file1.dat“ For Input As#1B.Open “file1.dat“ For Append As#1C.Open “file1.dat“ For Output As#1D
15、.Open “file1.dat“ For Randow As#1 Len=2032.设有打开文件的语句如下： Open “test_dat“ For Random As#1 要求把变量 a中的数据保存到该文件中，应该使用的语句是_。（分数：2.50）A.Input#1 aB.Write#1 aC.Put#1,aD.Get#1,a33.请阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(4,4)AS Integer For i=1 To 4 For j=1 To 4 Arr(i,j)=(i-1)*2+j Next j Next i For
16、 i=3 To 4 For j=3 To 4 Print Arr(j,i); Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是_。（分数：2.50）A.5 76 8B.6 87 9C.7 98 10D.8 108 1134.下面函数的功能应该是：删除字符串 str中所有与变量 ch相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD“, ch=“B“，则函数的返回值为：“ACDACD“ Function delchar(str As String,ch As String)As String Dim k As Integer,temp
17、As String,ret As String ret=“ For k=1 To Len(str) temp=Mid(str,k,1) If temp=ch Then ret=ret m=m+1 For j=1 To i Print “*“; Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是_。（分数：2.50）A.1*2*3*4* B.4*3*2*1*C.*D.*解析：解析 本题是利用循环语句输出，每次循环在一行中输出 i个星号，变量 m是行号，j 是星号个数，无参数的 print语句让程序在新的一行输出。30.在窗体上画一个命令按钮(其名称为 Co
18、mmand1)，然后编写如下代码： Private Sub Command1_Click() Dim a a=Array(1,2,3,4) i=3: j=1 Do While i=0 s=s+a(i)*j i=i-1 j=j*10 Loop Print s End Sub 运行上面的程序，单击命令按钮，则输出结果是_。（分数：2.50）A.4321B.123C.234D.1234 解析：解析 此程序的作用是将数组 a中 a(0)、a(1)、a(2)、a(3)作为千位、百位、十位、个位组成一个新数，i 是数组的下标，作用是依次取 a(3)、a(2)、a(1)、a(0)，s=s+a(i)*j 的作
19、用是将取到的数依次放到个位、百位、十位、千位，这是因为 j四次循环的取值分别为 1、10、100、1000。所以 s四次循环的取值为 4、4+30、34+200、324、324+1000。31.下列可以打开随机文件的语句是_。（分数：2.50）A.Open “file1.dat“ For Input As#1B.Open “file1.dat“ For Append As#1C.Open “file1.dat“ For Output As#1D.Open “file1.dat“ For Randow As#1 Len=20 解析：解析 本题主要考查随机文件与顺序文件的特点与区别及文件操作的特点
20、。Visual Basic 中有 3种文件访问的类型：顺序文件、随机文件、二进制文件。 随机文件又称直接存取文件，简称随机文件或直接文件。随机文件的每个记录都有一个记录号，在写入数据时只要指定记录号，就可以把数据直接存入指定位置。而在读取数据时，只要给出记录号，就可直接读取。在记录文件中，可以同时进行读、写操作，所以能快速地查找和修改每个记录，不必为修改某个记录而像顺序文件那样，对整个文件进行读、写操作。其优点是数据存取较为灵活，方便，速度快，容易修改，主要缺点是占空间较大，数据组织复杂。顺序文件：顺序文件将文件中的记录一个接一个地按顺序存放。 二进制访问能提供对文件的完全控制，因为文件中的字
21、节可以代表任何东西，当要使文件的尺寸尽量小时，应使用二进制访问。 在文件处理过程中，执行完 Open操作后，程序将生成一个文件指针，程序可以调用 LOF函数来获得返回给文件分配的字节数。在随机文件中，每个记录的长度是固定的，记录中的每个字段的长度也是固定的。因为是操作随机文件，所以选 D。32.设有打开文件的语句如下： Open “test_dat“ For Random As#1 要求把变量 a中的数据保存到该文件中，应该使用的语句是_。（分数：2.50）A.Input#1 aB.Write#1 aC.Put#1,a D.Get#1,a解析：解析 将文件打开后，将 a的值放入到文件中，读取文
22、件的内容使用 Get，写操作用 Put，所以答案为 C。33.请阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(4,4)AS Integer For i=1 To 4 For j=1 To 4 Arr(i,j)=(i-1)*2+j Next j Next i For i=3 To 4 For j=3 To 4 Print Arr(j,i); Next j Print Next i End Sub 程序运行后，单击窗体，则输出结果是_。（分数：2.50）A.5 76 8B.6 87 9C.7 98 10 D.8 108 11解析：解析 本
23、题利用嵌套 for循环给数组 Arr赋值。结果是 Arr(3，3)=7，Arr(3，4)=8，Arr(4，3)=9，Arr(4，4)=10，其他与后面程序无关。然后再次利用嵌套循环输出，输出顺序为 Arr(3，3)，Arr(4，3)，print，Arr(3，4)，Arr(4，4)，所以结果为 C。34.下面函数的功能应该是：删除字符串 str中所有与变量 ch相同的字符，并返回删除后的结果。例如：若 str=“ABCDABCD“, ch=“B“，则函数的返回值为：“ACDACD“ Function delchar(str As String,ch As String)As String Dim
24、 k As Integer,temp As String,ret As String ret=“ For k=1 To Len(str) temp=Mid(str,k,1) If temp=ch Then ret=ret&temp End If Next k delchar=ret End Function 但实际上函数有错误，需要修改，下面的修改方案中正确的是_。（分数：2.50）A.把 ret=ret&temp改为 ret=tempB.把 If temp=ch Then改为 If tempch Then C.把 delchar=ret改为 delchar=tempD.把 ret=“改为 t
25、emp=“解析：解析 Mid 函数用于提取字符串中的指定位数。Len 函数的作用是返回串的长度。本题中，For k=1 To Len(str)，语句的作用是每次循环提取 str串中的一个字符，语句 temp=Mid(sir，k，1)的作用是将提取的字符存入字符变量 temp中，然后将 temp和用户欲删除的字符做比对，若不同，则将此字符插入的字符串 ret的末尾。循环结束 ret中保存的就是不包含用户欲删除字符的字符串，也就是题目要求的字符串了。所以选 B。35.在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、Text1 和 Text2，在属性窗口中把窗体的 KeyPrev
26、iew属性设置为 True，然后编写如下程序： Dim S1 As String,S2 As String Private Sub Form_Load() Text1.Text=“ Text2.Text=“ Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) S2=S2&Chr(KeYCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) S1=S1&Chr(Ke
27、vAscii) End Sub Private Sub Command1_Click() Text1.Text=S1 Text2.Text=S2 S1=“ S2=“ End Sub 程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框 Text1和 Text2中显示的内容分别为_。（分数：2.50）A.abc和 ABC B.空白C.ABC和 abcD.出错解析：解析 KeyPreview 属性被设置为 True，则一个窗体先于该窗体上的控件接收到此事件。Form_Load事件是窗体载入事件，常用于窗体的初始化，Text1 和 Text2的属性 Enabled设置成 false
28、，禁止向文本框里输入。本题中 Form_KeyDown，Form_KeyPress 事件的作用是将用户按下的按键值分别传给字符串 s1、s2.然后通过命令按钮输出。36.使用驱动器列表框 Drive1、目录列表框 Dir1、文件列表框 File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是_。（分数：2.50）A.Dir1.Path=Drive1.PathB.File1.Path=Dri1.PathC.File1.Path=Drive1.PathD.Drive1.Drive=Dri1.Path 解析：解析 要设置控件的同步可使 Drive1.Drive=Dir1.Path或者
29、Dir1.Path=Fiter.Path来实现控件的同步，所以答案为 D。37.以下关于弹出式菜单的叙述中，错误的是_。（分数：2.50）A.一个窗体只能有一个弹出式菜单 B.弹出式菜单在菜单编辑器中建立C.弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为 FalseD.弹出式菜单通过窗体的 PopupMenu方法显示解析：解析 在窗体中可以在不同的控件中设置不同的弹出式菜单，所以 A选项错误。38.有如下程序： Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As
30、 stu a.X=“ABCD“ a.Y=12345 Print a End Sub 程序运行时出现错误，错误的原因是_。（分数：2.50）A.Type定义语句没有放在标准模块中B.变量声明语句有错C.赋值语句不对D.输出语句 Print不对 解析：解析 本题程序的含义是，定义了一个 stu类型，此类型包含有两个变量 X和 Y，当单击 Command控件时，定义一个类型为 stu类型的变量 a，其中 a.X的值为“ABCD”，a.Y 的值为 12345，再输出 a。其中输出语句是错误的，此时输出只能标准输出可以输出 a.X或者 a.Y。39.在窗体上画两个名称分别为 Text1、Text2 的文
31、本框，一个名称为 Label1标签，窗体外观如图 1所示，要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图 2所示。实现上述功能的程序如下： （分数：2.50）A.ShowText过程的参数类型可以是 ControlB.ShowText过程的参数类型可以是 VariantC.两个过程调用语句有错，应分别改为 Call ShowText(Text1，Text)、Call Show Text(Text2，Text)D.ShowText过程中的 T是控件变量解析：解析 两个过程中不能改为 Call ShowText(Text1.Text)和 Call ShowText(Text2
32、.Text)因为此时会产生形参和实参不匹配。40.有弹出式菜单的结构如右表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是_。 （分数：2.50）A.Private Sub Form_Click()PopupMenu cutEnd SubB.Private Sub Command1_Click()PopupMenu editEnd SubC.Private Sub Form_Click()PopupMenu editEnd Sub D.Private Sub Form_Click()PopupMenu cutPopupMenu pasteEnd Sub解析：解析 PopupMenu 方法用来显示弹出式菜单，其格式为：对象.PopupMenu 菜单名，Flags，X，Y，BoldCommand。根据题意，为了显示菜单，要把 PopupMenu方法放到 Form_Click事件中，菜单名为 edit，所以选 C。
