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