1、二级 VISUAL+BASIC 笔试-144 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列程序段的结果为A=“ABBACDDCBA“Fori=6 To 2 Step-2X=Mid(A,i,i)Y=Left(A,i)Z=Right(A,i)Z=X&Y&ZNextPrint Z（分数：2.00）A.ABCB.AABAABC.BBABBAD.ABBABA2.设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为 a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是（分数：2.00）A
2、.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single)If Button=2 Then PopupMenu al,2End SubB.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As SinglePopupMenu al,0End SubC.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_
3、X As Single，Y As SinglePopupMenu alEnd SubD.Private Sub Form MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As SingleIf(Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu alEnd Sub3.下面的数组声明语句中正确的是（分数：2.00）A.Dim gg1,5As StringB.Label1.BackStyle=1C.Dim gg(1 To 5)As StringD.Dim gg1
4、:5,1:5As String4.下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFtrSt=“abcdef“Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As StringDim tempStr As String，strLen As IntegertempStr=“strLen=Len(xStr)i=1Do While i=Len(xStr)-3tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen -i+1,1)
5、i=i+1LoopPat=tempStrEnd Function（分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc5.定时器的 Interval 属性以什么为单位指定 Timer 事件之前的时间间隔（分数：2.00）A.分B.秒C.毫秒D.微秒6.以下不属于对象的基本特点的是（分数：2.00）A.分类性B.多态性C.继承性D.封装性7.数据结构中，与所使用的计算机无关的是数据的（分数：2.00）A.存储结构B.物理结构C.逻辑结构D.物理和存储结构8.在设计程序时，应采纳的原则之一是（分数：2.00）A.不限制 goto 语句的使用B.减少或取消注解行C.程序越
6、短越好D.程序结构应有助于读者理解9.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命令按钮的大小都相同D.命令按钮共享相同的事件过程10.线性表的顺序存储结构和线性表的链式存储结构分别是（分数：2.00）A.顺序存取的存储结构、顺序存取的存储结构B.随机存取的存储结构、顺序存取的存储结构C.随机存取的存储结构、随机存取的存储结构D.任意存取的存储结构、任意存取的存储结构11.下列有关数据库的描述正确的是（分
7、数：2.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合D.数据库是一组文件12.为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择，应将列表框的 Multi-select 属性设置为（分数：2.00）A.0B.1C.2D.313.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*
8、.*|Text Files(*.txt)|*.txtCommonDialog1.Filterlndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.All Files(*.*)B.Text Files(*.txt)C.*.txtD.All Files(*.*)|Text Files(*.*)14.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（分数：2.00）A.MenuOneVisible=TrueB.M
9、enuOneVisible=FalseC.MenuOne.Enabled=TrueD.MenuOne.Enabled=False15.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Fun1(x)End SubPrivate Function Fun1(x As Integer)As Integerx=x+y y=x+yFun1=x+yEnd Funct
10、ionPrivate Function Fun2(x As Integer,y As Integer)As IntegerFun2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别是（分数：2.00）A.2 42 4B.2 44 8C.10 1058 58D.4 48 816.在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有内容，对应的事件过程是（分数：2.00）A.Private Sub Text1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Te
11、xt)End SubB.Private Sub Text1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End SubC.Private Sub Text1_Change()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End SubD.Private Sub Text1_SetFocus()Text.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub17.用于获得字符串 S 最左边 4 个字符的函数是（分数：2.00）A.Lef
12、t(S,4)B.Left(1,4)C.Leftsv(S)D.Leftstr(3,4)18.当文本框 ScrollBars 属性设置了非零值，却没有效果，原因是（分数：2.00）A.文本框中没有内容B.文本框的 MultiLine 属性为 FalseC.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True19.单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click()Dim a As Integer，b As Integer，c As Integera=3:b=4:c=5Print SecProc(c,b,（分数：2.00）
13、A.20.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件，那么执行语句Open“c:studata.dat“For Append As # 1 之后，将（分数：2.00）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾填加新内容C.保留文件中原有内容，并在文件头填加新内容D.以上均不对21.下列叙述中正确的是（分数：2.00）A.程序执行的效率与数据的存储结构密切相关B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上 3 种说法都不对22.树是结点的集合，它的根结点数目是（分数：2.00）A.有且只有 1B.1 或多于 1
14、C.0 或 1D.至少 223.阅读下列程序：Private Sub Command1_Click()Dim i As Integer，k As Integerk=2For i=1 To 3Print Fun(k)；NextEnd SubFunction Fun(j As Integer)Static ba=0a=a+1b=b+1Fun=a*b+jEnd Function程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.345C.567D.35624.执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click()Print“Click“：End Sub
15、Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single)Print“Donw“End SubPrivate Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single，Y As Single)Print“Up“End Sub（分数：2.00）A.DownUpClickB.CfickDownUpC.DownClickUpD.UpDownClick25.执行以下语句过程，在窗体上显示的内容是Option Base 0
16、Prirate Sub Command3_Click()Dim dd=Array(“a“,“b“,“c“,“d“)Print d(1)；d(3)End Sub（分数：2.00）A.abB.bdC.acD.出错26.执行下列程序段后，输出的结果是For k1=0 To 4Y=20For k2=0 To 3y=10For k3=0 To 2y=y+10Next k3，k2，k1Print y（分数：2.00）A.90B.60C.40D.1027.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j=1 To
17、3x=3For k=1 To 2x=x+6NextNextNextPrint xEnd Sub程序运行后，单击命令按钮，输出的结果是（分数：2.00）A.7B.15C.157D.53828.下列代码运行后输出结果是Defstr B-EPrivate Sub Command1_Click()B$=“123“C=“456“Print B+C$End Sub（分数：2.00）A.123456B.“123456“C.123+“456“D.显示出错信29.下列语句中，获得列表框 List1 中项目个数的语句是（分数：2.00）A.x=List1.ListCountB.x=ListCountC.x=Lis
18、t1.ListIndexD.x=ListIndex30.软件是指（分数：2.00）A.程序B.程序和文档C.算法加数据结构D.程序、数据与相关文档的完整集合31.检查软件产品是否符合需求定义的过程称为（分数：2.00）A.确认测试B.集成测试C.验证测试D.验收测试32.设在窗体上有个文本框，然后编写如下的事件过程：Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)Const Alt=4Const Key_F2=&H71altdown%=(Shift And Alt)0f2down%=(KeyCode=Key_F2)If
19、 altdown% And f2down% ThenText1.Text=“BBBBB“End IfEnd Sub上述程序运行后，如果按Shift+F2，则在文本框中显示的是（分数：2.00）A.Alt+F2B.BBBBBC.随机出几个数D.文本框内容无变化33.数据库、数据库系统和数据库管理系统之间的关系是（分数：2.00）A.数据库包括数据库系统和数据库管理系统B.数据库系统包括数据库和数据库管理系统C.数据库管理系统包括数据库和数据库系统D.三者没有明显的包含关系34.当程序运行时，在窗体上单击鼠标，以下哪个事件是窗体不能响应的事件（分数：2.00）A.MouseDownB.MouseU
20、PC.LoadD.Click35.以下各项中，Visual Basic 不能接收的图形文件是（分数：2.00）Aico 文件Bjpg 文件Cpsd 文件Dbmp 文件二、填空题(总题数：13，分数：30.00)36.需求分析的最终结果是产生 1。（分数：2.00）填空项 1:_37.为了便于对照检查，测试用例应由输入数据和预期的 1 两部分组成。（分数：2.00）填空项 1:_38.数据结构分为逻辑结构和存储结构，线性链表属于 1。（分数：2.00）填空项 1:_39.某二叉树中度为 2 的结点有 18 个，则该二叉树中有 1 个叶子结点。（分数：2.00）填空项 1:_40. 1 是数据库设
21、计的核心。（分数：2.00）填空项 1:_41.在窗体上面有一个列表，然后编写如下两个事件过程：Private Sub Form_Click()List1.RemoveItem 1：List1.RemoveItem 2List1.RemoveItem 3End SubPrivate Sub Form_Load()List1.AddItem“ItemA“：List1.AddItem“ItemB“List1.AddItem“ItemC“：List1.AddItem“ItemD“List1.AddItem“ItemE“End Sub运行上面的程序，然后单击窗体，列表框中显示的项目是_。（分数：2.0
22、0）填空项 1:_42.控件数组的名字由 Name 属性指定，而数组中的每个元素由 1 属性指定。（分数：2.00）填空项 1:_43.为了能自动放大或缩小图像框中的图形与图像框的大小相适应，必须把该图片框的 Stretch 属性设置为 1。（分数：2.00）填空项 1:_44.下列程序的功能是：将数据 1，2，10 写入顺序文件 Base.txt 中，请填空。Private Sub Form_Click()Dim i As IntegerOpen _ As #1For i=1 To 10Prin t#1,iNextClose #1End Sub（分数：2.00）填空项 1:_45.下列程序的
23、功能是：将数据 1，2，8 写入顺序文件 Num.txt 中，请补充完整。Private Sub Form_Click()Dim i As IntegerOpen“Num.txt“For Output As #1For i=1 To 8_NextClose #1End Sub（分数：2.00）填空项 1:_执行下面程序，第一行输出结果是 (11) ，第二行输出结果是 (12) 。Option ExplicitPrivate Sub Form_Click()Dim A As IntegerA=2Call Subl(A)End SubPrivate Subl(x As Integer)x=x*2+
24、1If x10 ThenCall Subl(x)End Ifx=x*2+1Print xEnd Sub（分数：4.00）填空项 1:_填空项 1:_46.能够将文本框控件隐藏起来的属性是 1。（分数：2.00）填空项 1:_下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。SubPR()RandomizeDim a(10)For j=1 To 10a(i)=Int( (14) )If (15) Then k=k+1Print a(j)Next jPrintPrint k/10Fnd Sub（分数：4.00）填空项
25、1:_填空项 1:_二级 VISUAL+BASIC 笔试-144 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列程序段的结果为A=“ABBACDDCBA“Fori=6 To 2 Step-2X=Mid(A,i,i)Y=Left(A,i)Z=Right(A,i)Z=X&Y&ZNextPrint Z（分数：2.00）A.ABCB.AABAABC.BBABBA D.ABBABA解析：解析 Right(字符串，n)：返回字符串的最后 n 个字符。Mid(字符串，p，n)：从第 p 个字符开始，向后截取 n 个字符。p 和 n 都是算术表达式。L
26、eft(字符串，n)：返回“字符串”的前 n 个字符。“”：字符串连接运算符，将两个字符串按顺序连接起来。分析程序：因为每次循环，Z 都被重新赋值，所以只需要跟踪最后一次循环即可得出最终结果，最后一次循环时，i=2X=Mid(“ABBACDDCBA“，2，2)=“BB“Y=Left(“ABBACDDCBA“，2)=“AB“X=Right(“ABBACDDCBA“，2)=“BA“Z=X&Y&Z=“BBABBA/2.设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为 a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是（分数：2.00）A
27、.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As Single)If Button=2 Then PopupMenu al,2End SubB.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As SinglePopupMenu al,0End SubC.Private Sub Form_MouseDown(Button As Integer，Shift As Integer,_
28、X As Single，Y As SinglePopupMenu alEnd Sub D.Private Sub Form MouseDown(Button As Integer，Shift As Integer,_X As Single，Y As SingleIf(Button=vbLetfButton)Or(Button=vbRightButton)Then PopupMenu alEnd Sub解析：解析 MouseDown 事件用来响应鼠标单击，其中 Button 的参数用来确认鼠标按钮(1：左键；2：右键)，PopupMenu 方法用以在指定坐标位置显示弹出式菜单，语法如下：对象.P
29、opupMenu 菜单名，标志，x，y。其中 x，y 提供菜单显示位置，标志指定快捷菜单的行为。3.下面的数组声明语句中正确的是（分数：2.00）A.Dim gg1,5As StringB.Label1.BackStyle=1C.Dim gg(1 To 5)As String D.Dim gg1:5,1:5As String解析：解析 声明数组时，数组的默认下界为 0，如果希望下界不是 0，可以用关键字 To 规定下界。如选项 C 中，数组 gg 的索引从 1 到 5。4.下列程序的执行结果为Private Sub Command1_Click()Dim FirStr As StringFtr
30、St=“abcdef“Print Pat(FirStr)End SubPrivate Function Pat(xStr As String)As StringDim tempStr As String，strLen As IntegertempStr=“strLen=Len(xStr)i=1Do While i=Len(xStr)-3tempStr=tempStr+Mid(xStr,i,1)+Mid(xStr，strLen -i+1,1)i=i+1LoopPat=tempStrEnd Function（分数：2.00）A.abcdefB.afbecd C.fedcbaD.defabc解析：解
31、析 主调函数最终输出值是 Pat(FirStr)过程的返回值，这就需要调用函数过程 Pat。被调过程 Pat 的参数 xStr 从主调函数中收到实参 FirStr 传来的值“abcdef“，过程 Pat 开始声明了两个变量：一个是 String 型的 tempStr；一个是 Integer 型的 strLen。语句 ternpStr=“。strLen=Len(xStr)以上两条语句的功能是：为变量 tempstr 赋空值，变量 strkn 的值就是 xstr 的长度，此题为 6。程序代码执行 Do WhileLoop 的循环语句：第 1 次循环结束后，tempStr=“af“；第 2 次循环，
32、i=2，i=3 成立，继续执行循环体，tempStr=“afbe“；第 3 次循环，i=3，i=3 成立，继续执行循环体，tempStr=“afbecd“；第 4 次循环，i=4，i=3 不成立，则跳出循环体，执行语句 Pat=tempStr。所以最终 Pat(FirStr)=“afbecd”。5.定时器的 Interval 属性以什么为单位指定 Timer 事件之前的时间间隔（分数：2.00）A.分B.秒C.毫秒 D.微秒解析：解析 Interval 属性用来返回或设置对 Timer 控件的计时事件各调用间的毫秒数。6.以下不属于对象的基本特点的是（分数：2.00）A.分类性B.多态性C.继
33、承性 D.封装性解析：解析 对象的基本特点：标识唯一性、分类性、多态性、封装性和模块独立性。7.数据结构中，与所使用的计算机无关的是数据的（分数：2.00）A.存储结构B.物理结构C.逻辑结构 D.物理和存储结构解析：解析 数据结构概念一般包括数据的逻辑结构、存储结构及数据上的运算集合等。数据的逻辑结构只抽象地反映数据元素之间的逻辑关系，而不管它在计算机中的存储形式。8.在设计程序时，应采纳的原则之一是（分数：2.00）A.不限制 goto 语句的使用B.减少或取消注解行C.程序越短越好D.程序结构应有助于读者理解 解析：解析 滥用 goto 语句将使程序流程无规律，可读性差，因此 A)不选；
34、注解行有利于对程序的理解，不应减少或取消，B)也不选；程序的长短要依照实际情况而论，而不是越短越好，C)也不选。9.设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是（分数：2.00）A.命令按钮的所有 Caption 属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1 C.命令按钮的大小都相同D.命令按钮共享相同的事件过程解析：解析 数组控件中的每一个控件都有唯一的索引号，即 Index 属性。10.线性表的顺序存储结构和线性表的链式存储结构分别是（分数：2.00）A.顺序存取的存储结构、顺序存取的存储结构B.随机存
35、取的存储结构、顺序存取的存储结构 C.随机存取的存储结构、随机存取的存储结构D.任意存取的存储结构、任意存取的存储结构解析：解析 顺序存储结构中，数据元素存放在一组地址连续的存储单元中，每个数据元素地址可通过公式 LOC(ai)=LOC(a1)+(i-1)L 计算得到，从而实现了随机存取。对于链式存储结构，要对某结点进行存取，得从链的头指针指向的结点开始，这是一种顺序存取的存储结构。11.下列有关数据库的描述正确的是（分数：2.00）A.数据库是一个 DBF 文件B.数据库是一个关系C.数据库是一个结构化的数据集合 D.数据库是一组文件解析：解析 数据库(DataBase，简称 DB)是数据的
36、集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，可被各个应用程序所共享。数据库中的数据具有“集成”、“共享”的特点。12.为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择，应将列表框的 Multi-select 属性设置为（分数：2.00）A.0B.1C.2 D.3解析：解析 列表框的 Multiselect 属性有 3 个可选值。ONone：默认值，不能选择多个选项。1Simple：在不按任何键的情况下可选择多个选项。2Extended：使用 Ctrl 或 Shift 键进行分别多选或选择连续多个选项。13.在窗体上画一个通用对话框，其名称为 C
37、ommonDialog1，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.Filterlndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（分数：2.00）A.A
38、ll Files(*.*) B.Text Files(*.txt)C.*.txtD.All Files(*.*)|Text Files(*.*)解析：解析 通用对话框控件的 CommonDialogl 的 Filter 属性用来指定在对话框中显示的文件类型。利用该属性可以设置多个文件类型，供用户在对话框的“文件类型”的下拉列表中选择。Fiher 的属性值由一对或多对文本字符串组成，每对字符串用管道符“|”隔开，在管道符“|”前面的部分称为描述，后面的部分一般为通配符和文件扩展名，称为“过滤器”。如“*.txt”等，各对字符串之间也用管道符隔开。其格式如下：窗体.对话框名.Filter=“描述符
39、 1|过滤器 1|描述符 2|过滤器 2“如果省略窗体，则为当前窗体。本题执行语句后，可以在文件类型栏内通过下拉列表选择所要显示的文件类型，而最初默认显示的文件类型(过滤器)可以由 FilterIndex 属性来指定，该属性是一个整数。用Filter 属性设置多个过滤器后，每个过滤器都有一个值，第 1 个过滤器的值为 1，第 2 个过滤器的值为2用 FilterIndex 属性可以指定作为默认显示的过滤器，本题中的值是 1，所以显示 All Files(*.*)。14.要使菜单项 MenuOne 在程序运行时失效，使用的语句是（分数：2.00）A.MenuOneVisible=TrueB.Me
40、nuOneVisible=FalseC.MenuOne.Enabled=TrueD.MenuOne.Enabled=False 解析：解析 Enabled 属性：返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。Visible 属性：用来设置窗体或控件的可见性。15.窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1，编写下列程序：Dim y As IntegerPrivate Sub Command1_Click()Dim x As Integerx=2Text1.Text=Fun2(Funl(x),y)Text2.Text=Fun1(x
41、)End SubPrivate Function Fun1(x As Integer)As Integerx=x+y y=x+yFun1=x+yEnd FunctionPrivate Function Fun2(x As Integer,y As Integer)As IntegerFun2=2*x+yEnd Function当单击 1 次和单击 2 次命令按钮后，文本框 Text1 和 Text2 内的值分别是（分数：2.00）A.2 42 4B.2 44 8C.10 1058 58 D.4 48 8解析：解析 函数 Fun1 和 Fun2 都是传值调用，其中，Text1 文本框中的内容使用
42、了嵌套调用。实参 X是过程变量，实参 Y 是窗体变量。16.在运行阶段，要在文本框 Text1 获得焦点时选中文本框中所有内容，对应的事件过程是（分数：2.00）A.Private Sub Text1_GotFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub B.Private Sub Text1_LostFocus()Text1.SelStart=0Text1.SelLength=Len(Text1.Text)End SubC.Private Sub Text1_Change()Text1.SelStart=0Text1
43、.SelLength=Len(Text1.Text)End SubD.Private Sub Text1_SetFocus()Text.SelStart=0Text1.SelLength=Len(Text1.Text)End Sub解析：解析 GotFocus 事件过程用以指定当控件或窗体首次接收焦点时发生的操作。属性：SelStart-返回或设置所选择的文本的起始点。如果没有文本被选中，则指出插入点的位置；SelLength-返回或设置所选择的字符数。17.用于获得字符串 S 最左边 4 个字符的函数是（分数：2.00）A.Left(S,4) B.Left(1,4)C.Leftsv(S)D.
44、Leftstr(3,4)解析：解析 字符串截取函数，格式是：Left$(字符串，n)。返回“字符串”的前 n 个字符。18.当文本框 ScrollBars 属性设置了非零值，却没有效果，原因是（分数：2.00）A.文本框中没有内容B.文本框的 MultiLine 属性为 False C.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True解析：解析 只有当 Multiline 属性被设置为 True 时，才能用 SerollBons 属性在文本框中设置滚动条。19.单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click()
45、Dim a As Integer，b As Integer，c As Integera=3:b=4:c=5Print SecProc(c,b,（分数：2.00）A.解析：解析 此题程序代码中用了双层调用，我们对这样的问题要多加小心，千万不要把实参和相对应的形参弄混。主调过程 Command1_Click 输出的是 SecProc(c,b,a)的返回值，调用过程 SecProc 时，主调过程分别把实参 c、b、a 地址传给形参 x、y、z，此时在过程 SecProc 中，SecProc=FirProc(a,c,b)+c。由此看出，程序段执行此语句时，将调用过程 FirProc。把实参 a、c、b
46、 的地址分别传给形参 x、y、z，此时在过程 FirProc 中，FirProc=2*x+y+3*z，所以 FirProc(a,c,b)=6+4+15=25，SecProc(a,c,b)=25+3=28，所以选项 C)是正确的。20.如果在 C 盘当前文件下已存在名称为 studata.dat 的顺序文件，那么执行语句Open“c:studata.dat“For Append As # 1 之后，将（分数：2.00）A.删除文件中原有内容B.保留文件中原有内容，并在文件尾填加新内容 C.保留文件中原有内容，并在文件头填加新内容D.以上均不对解析：解析 Open 语句对文件“输入/输出”操作，语
47、法如下：Open文件名For模式As#文件号其中模式为 Append，表示以追加数据的方式在文尾写数据。21.下列叙述中正确的是（分数：2.00）A.程序执行的效率与数据的存储结构密切相关 B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上 3 种说法都不对解析：解析 程序执行的效率与很多因素有关，如数据的存储结构、程序所处理的数据量、程序所采用的算法等。顺序存储结构在数据插入和删除操作上的效率比链式存储结构的效率低。22.树是结点的集合，它的根结点数目是（分数：2.00）A.有且只有 1B.1 或多于 1C.0 或 1 D.至少 2解析：解析 树是 N(
48、N0)个结点的有限集合，当 N=0 时称为空树，空树没有根结点，即根结点的个数为 0，非空树有且只有一个根结点，所以树的根结点数目为 0 或 1。23.阅读下列程序：Private Sub Command1_Click()Dim i As Integer，k As Integerk=2For i=1 To 3Print Fun(k)；NextEnd SubFunction Fun(j As Integer)Static ba=0a=a+1b=b+1Fun=a*b+jEnd Function程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.345 C.567D.356解析：解析 在此题中，被调过程是一个函数过程，它有一个形式参数 j，在被调过程声明中，定义了一个参数 a，初值为 0，一个静态变量 b。语句 a=a+1 和 b=b+1 分别使 a 和 b 各增加 1，然后返回 H 的值，因为 b 是静态变量，所以每次调用同一个参数 k 时，b 会保留前次的数值，使输出结果变化，否则每次输出的结果都将是一样的。根据分析，第一次调用时 a=1，b=1，Fun=3；第二次调用时 a=1，b=2，Fun=4；第三
