1、二级 VISUAL+BASIC 笔试 62 及答案解析(总分：94.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是_ 。（分数：2.00）A.MoveB.ChangeC.ScrollD.GetFocus2.执行下面的程序段后，x 的值为_ 。 X=5 For i=1 To 20 Step 2 x=x+ i/5 Next i（分数：2.00）A.21B.22C.23D.243.软件生命周期是指_ 的过程。（分数：2.00）A.软件系统从投入运行开始到软件系统升级B.软件系统开始研制到软件系统投入运行
2、。C.软件系统开始研制到软件系统被淘汰。D.软件系统投入试运行到软件系统被淘汰。4.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为 True，这个属性是_ 。（分数：2.00）A.ValueB.DefaultC.CancelD.Enabled5.设 a=6，则执行 x=IIf (a5，-1，0)后，x 的值为_ 。（分数：2.00）A.5B.6C.0D.-16.在数据流图中，(椭圆)代表_ 。（分数：2.00）A.源点B.终点C.加工D.模块7.在窗体中添加一个命令按钮，名称为 Command1，两个文本框名称分别为 Text1、Text2，然后编写如下程序：
3、Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (a) d=UCase (b) Print c；d End Sub 程序运行后，在文本框 Text1、Text2 中分别输入 AbC 和 Efg，结果是_ 。（分数：2.00）A.abcEFGB.abcefgC.ABCefgD.ABCEFG8.下列不能打开菜单编辑器的操作是_ 。（分数：2.00）A.按 Ctrl+ EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”，命令D.按 Shift+ Alt+ M9.在窗体上画两个文本框(其 Name
4、属性分别为 Text1 和 Text2)和一个命令按钮(真 Name 属性为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str (n) Text2.Text=Str (x) End Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为_ 。（分数：2.00）A.1 和 0B.2 和 72C.3 和 50D.4 和 16810.假定有一个菜单项，名为 Menultem，为了在运行时使该菜单项失效(变灰)，应使用的语句为_
5、。（分数：2.00）A.MenuIte Enabled=FalseB.MenuIte Enabled=TrueC.MenuIte Visible=TrueD.MenuIte Visible=False11.在数据库系统中，把具有以下特征中之_ 两个特征的数据模型称为网状模型。（分数：2.00）A.允许有一个以上的结点没有双亲B.有且仅有一个结点无双亲C.根以外的结点有且仅有一个双亲D.一个结点可以有多个双亲12.为了把焦点移到某个指定的控件，所使用的方法是_ 。（分数：2.00）A.SetFocusB.VisibleC.RefreshD.GetFocus13.在窗体上面画一个命令按钮，然后编写
6、如下事件过程_ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是_ 。（分数：2.00）A.4321B.12C.34D.123414.为了把一个记录型变量的内容写入文件中指定的位置，所使用语句的格式为_ 。（分数：2.00）A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put 文件号，变量名，记录号D.Put
7、 文件号，记录号，变量名15.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程： Private Sub Commnd1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_ Load () Text1 Text=“” Text2 Text=“” End sub 程序运行后，在第一个文本框(Text1)和第二个文本框(text2)中分别输入 123 和321，然后单击命令按钮，则输
8、出结果为_ 。（分数：2.00）A.444B.321123C.123321D.13223116.在窗体上有两个命令按钮 Command1 和 Commnd2，三个文本框 Text1，Text2 和 Text3，有如下事件过程：Private Sub Comuand1_Click() Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click() Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text) End Sub 程序运行后，在 Text1 和 Tex
9、t2 中分别输入 123、456，然后依次单击 Command1 和 Command2，则在 Text3 中显示的内容依次是_ 。（分数：2.00）A.123456 579B.123456 123456C.579 579D.579 12345617.在工程中的标准模块中定义了如下数据类型： Type fruit orange As Integer apple As Integer End Type 在窗体上有命令按钮 Command1，要求当单击命令按钮时在 C:/根目录下的顺序文件myfrtac.txt 中写入一条记录，下列能够完成改操作的事件过程是_ 。（分数：2.00）A.Private
10、 Sub Command1_Click() Dim myfrt As fruit myfr orange = 5 myfr apple = 10 Open “c:/myfrt txt” For Output As #1 Print #1, myfr orange; myfr apple Close #1 End SubB.Private Sub Command1_Click() Dim myfrt As fruit myfr orange= 5 myfr apple= 10 Open “c:/myfrta txt”For Input As #1 Print #1, myfrt, orange;
11、 myfr apple Close #1 End SubC.Private Sub Command1_Click() Dim myfrt As fruit myfr orange= 5 myfr apple = 10 Open “c:/myfrta txt” For As #1 Print #1, myfr orange; myfr apple Close #1 End SubD.Private Sub Command1_Click() Dim myfrt As fruit myfr orange = 5 myfr apple= 10 Open “c:/myfrta.txt” For Outp
12、ut As #1 Print myfr orange; myfr apple Close #1 End Sub18.在窗体上面一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j =3 To 4 Print a(j，i)； Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为
13、_ 。（分数：2.00）A.6 9 7 10B.7 10 8 11C.8 11 9 12D.9 12 10 1319.结构化程序设计主要强调的是_ 。（分数：2.00）A.程序的规模B.程序的效率C.程序设计语言的先进性D.程序的易读性20.对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Butt
14、on As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为_ 。（分数：2.00）A.AAAAA BBBBBB.BBBBBC.AAAAAD.BBBBB AAAAA21.在下列概念中，不属于面向对象方法的是_ 。（分数：2.00）A.类B.过程调用C.对象D.多态性22.若结点的存储地址与其关键字之间存在某种映射关系，则称这种存储结构为_ 。（分数：2.00）A.顺序存储结构B.链式存储结构C.索引存储结构D.散列存储结构23.对于只在表的首、尾两端进行插入
15、操作的线性表，宜采用的存储结构为_ 。（分数：2.00）A.顺序表B.用头指针表示的单循环链表C.用尾指针表示的单循环链表D.单链表24.假定窗体上有一个标签，名为 Labe11，为了使该标签透明并且没有边框，则正确的属性设置为_ 。（分数：2.00）A.Labe11.BackStyle=0 Labe11.Borderstyle=0B.Labe11.BackStyle=1 Labe11.Bordkrstyle=1C.Labe11.BaekStyle=True Labe11.BorderStyle=TrueD.Labe11.BackStyle=False Labe11.BOrderstyle=F
16、alse25.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.AddItem“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为_ 。（分数：2.00）A.1245B.456789C.7
17、89456D.026.在窗体上画一个文本框(其中 Name 属性为 Text1)，然后编写如下事件过程： Private Sub Form_ Load() Text1.Text=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是_ 。（分数：2.00）A.在文本框 Text1 中输出 55B.在文本框 Text1 中输出 0C.出错D.在文本框 Text1 中输出不定值27.执行以下程序段后，变量 c的值为_ 。 a=“Visual Basic Programing” b=“Qui
18、ck” c= b myfr apple Close #1 End Sub B.Private Sub Command1_Click() Dim myfrt As fruit myfr orange= 5 myfr apple= 10 Open “c:/myfrta txt”For Input As #1 Print #1, myfrt, orange; myfr apple Close #1 End SubC.Private Sub Command1_Click() Dim myfrt As fruit myfr orange= 5 myfr apple = 10 Open “c:/myfrt
19、a txt” For As #1 Print #1, myfr orange; myfr apple Close #1 End SubD.Private Sub Command1_Click() Dim myfrt As fruit myfr orange = 5 myfr apple= 10 Open “c:/myfrta.txt” For Output As #1 Print myfr orange; myfr apple Close #1 End Sub解析：18.在窗体上面一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Option Base 1 Priva
20、te Sub Command1_Click() Dim a(4，4) For i=1 To 4 For j=1 To 4 a(i，j)=(i-1)*3+j Next j Next i For i=3 To 4 For j =3 To 4 Print a(j，i)； Next j Print Next i End Sub 程序运行后，单击命令按钮，其输出结果为_ 。（分数：2.00）A.6 9 7 10B.7 10 8 11C.8 11 9 12D.9 12 10 13 解析：19.结构化程序设计主要强调的是_ 。（分数：2.00）A.程序的规模B.程序的效率C.程序设计语言的先进性D.程序的易
21、读性 解析：20.对窗体编写如下事件过程： Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button =2 Then Print “AAAAA” End If End Sub Private Sub Form_ MouseUp (Button As Integer，Shift As Integer，X As Single，Y As Single) Print “BBBBB” End Sub 程序运行后，如果单击鼠标右键，则输出结果为_ 。（分数：2.00）A
22、.AAAAA BBBBB B.BBBBBC.AAAAAD.BBBBB AAAAA解析：21.在下列概念中，不属于面向对象方法的是_ 。（分数：2.00）A.类B.过程调用 C.对象D.多态性解析：22.若结点的存储地址与其关键字之间存在某种映射关系，则称这种存储结构为_ 。（分数：2.00）A.顺序存储结构 B.链式存储结构C.索引存储结构D.散列存储结构解析：23.对于只在表的首、尾两端进行插入操作的线性表，宜采用的存储结构为_ 。（分数：2.00）A.顺序表B.用头指针表示的单循环链表C.用尾指针表示的单循环链表 D.单链表解析：24.假定窗体上有一个标签，名为 Labe11，为了使该标签
23、透明并且没有边框，则正确的属性设置为_ 。（分数：2.00）A.Labe11.BackStyle=0 Labe11.Borderstyle=0 B.Labe11.BackStyle=1 Labe11.Bordkrstyle=1C.Labe11.BaekStyle=True Labe11.BorderStyle=TrueD.Labe11.BackStyle=False Labe11.BOrderstyle=False解析：25.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_ Load () Liet1.AddItem“357” List1.Add
24、Item“246” List1.AddItem“123” List1.AddItem“456” Text1.Text=“” End Sub Private Sub List1_DblClick() a=List1.Text Print a+Text1.Text End Sub 程序运行后，在文本框中输入“789”，然后双击列表框中的“456”，则输出结果为_ 。（分数：2.00）A.1245B.456789 C.789456D.0解析：26.在窗体上画一个文本框(其中 Name 属性为 Text1)，然后编写如下事件过程： Private Sub Form_ Load() Text1.Text
25、=“” Text1.SetFocus For i=1 To 10 Sum=Sam+ i Next i Text1.Text=Sam End Sub上述程序的运行结果是_ 。（分数：2.00）A.在文本框 Text1 中输出 55B.在文本框 Text1 中输出 0C.出错 D.在文本框 Text1 中输出不定值解析：27.执行以下程序段后，变量 c的值为_ 。 a=“Visual Basic Programing” b=“Quick” c= b & UCase (Mid(a，7，6)Right ，(a ，11)（分数：2.00）A.Visual BASIC ProgramingB.Quick
26、Basic ProgramingC.QUICK Basic ProgramingD.Quick BASIC Programing 解析：28.为了能在列表框中利用 Ctrl 和 Shift 键进行多个列表项的选择，则应将列表框的 Multiselect 属性设置为_ 。（分数：2.00）A.0B.1C.2 D.3解析：29.如果在立即窗口中执行以下操作：_ 。 a=8 (是回车键，下同) b=9 print ab 则输出结果是_ 。（分数：2.00）A.-1B.0C.False D.True解析：30.有关系 R 和 S，关系代数运算 R S 等价于_ 。（分数：2.00）A.S-(R-B.R
27、-(R- C.R-SD.S-R解析：31.以下程序的输出结果是 D) 9 12 Option Base 1 Private Sub Command1_Click() Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End sub（分数：2.00）A.33 B.28C.35D.37解析：32.用下面语句定义的数组的元素个数是_ 。 Dim A(-3 To 5) As Integer（分数：
28、2.00）A.6B.7C.8D.9 解析：33.以下语句的输出结果是_ 。 Print Format(32548.5，“000，000.00”)（分数：2.00）A.32548.5B.32，548.5C.032，548.50 D.32，548.50解析：34.线性表最常用的操作是存取第 i 个元素及其前趋的值，则采用_ 存储方式节省时间。（分数：2.00）A.单链表B.双向链表 C.单循环链表D.顺序表解析：35.E-R 模型设计属于数据库的_ 。（分数：2.00）A.概念设计 B.逻辑设计C.物理设计D.程序设计解析：二、B填空题/B(总题数：12，分数：24.00)36.某二叉树的先根遍历
29、序列为 CEDBA，中根遍历序列为 DEBAC，则其后根遍历序列为U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：DADEC）解析：37.若进栈序列为 a，b，c，则通过入出栈操作可能得到的 a，b，c 的不同排列个数为U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：5）解析：38.若二叉树中度为 2 的结点有 15 个，度为 1 的结点有 10 个，则有U 【3】 /U个叶结点。（分数：2.00）填空项 1:_ （正确答案：16）解析：39.结构化方式由结构化分析、结构化设计和U 【4】 /U构成，它是一种面向数据流的开发方法。（分数：2.00）填空项 1:_
30、 （正确答案：结构化程序设计）解析：40.DBMS 的数据控制功能包括完整性控制、并发控制、安全性控制和U 【5】 /U。（分数：2.00）填空项 1:_ （正确答案：故障恢复）解析：41.执行下面的程序段后，b 的值为U 【6】 /U。 a=300 b=20 a=a+ b b=a-b a=a-b（分数：2.00）填空项 1:_ （正确答案：300）解析：42.以下程序段的输出结果是U 【7】 /U。 num=0 While hum=2 num=num+1 Print num Wend（分数：2.00）填空项 1:_ （正确答案：1）解析：2 343.在窗体画一个命令按钮，然后编写如下事件过程
31、： Private Sub Command1_CIick() Dim a(1 To 10) Dim p(1 To 3) k=5 For i =1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是U 【8】 /U。（分数：2.00）填空项 1:_ （正确答案：33）解析：44.下面的程序用“冒泡”法将数组 a 中的 10 个整数按升序排列，请在U 【9】 /U、U 【10】 /U、U 【11】 /U处将程序补充完
32、整。 Option Base 1 Private Sub Command1_Click () Dim a a=Array (678, 45, 324, 528, 439, 387, 87, 875, 273,823) For i=U 【9】 /U For j=U 【10】 /U If a(i)U 【11】 /Ua(j) Then a1=a(i) a(i)=a(j) a (j) =a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub（分数：2.00）填空项 1:_ （正确答案：9 a To 9）解析：10 i+1 To 1
33、0 11 =45.在窗体画一个命令按钮，然后编写如下过程: Function fun(ByVal num As Long)As Lone Dim k As Long k=1 num=Abs (num) Do While num k=k*(num Mod 10) num=num/10 Loop fun=k End Function Private Sub Command1_Click() Dim n As Long Dim r As Long n= InputBox (“请输入一个数”) n=CLng (n) r=fun (n) Print r End Sub 程序运行后，单击命令按钮，在输入对
34、话框中输入 234，输出结果为U 【12】 /U。（分数：2.00）填空项 1:_ （正确答案：24）解析：46.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为U 【13】 /U。（分数：2.00）填空项 1:_ （正确答案：-）解析：47.假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为 Form1 和 Form2，启动窗体为 Form1。在 Form1 画一个命令按钮 Command1，程序运行后，要求当单击该命令按钮时，Form1 窗体消失，显示窗体 Form2，请在U 【14】 /U和U 【15】 /U处将程序补充完整。 Private Sub Command1_Click() U 【14】 /UForm1 Form2.U 【15】 /U End Sub（分数：2.00）填空项 1:_ （正确答案：14 Unload）解析：15 Show
