1、VB 笔试-试卷 79 及答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.下列程序执行后，变量 a 的值为( )。 Dim a,b,c,d as single a=100 b=20 c=1000 if ba Then d=a:a=b:b=d End if if ca Then d=a:a=c:c=d End if if cb Then d=b:b=c:c=d End if（分数：2.00）A.0B.1000C.20
2、D.1003.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.Alt+BB.Alt+QC.Alt+ShiftD.Alt+a4.当发生 Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出_。 Option Explicit Private Sub Form Click () Dim num As String * 1, n As Integer Open “C:/ Check. txt“ For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek
3、 #10, 3: Get #10, , num Print Loc(10); Seek(10) End Sub（分数：2.00）A.3 4B.4 5C.5 3D.3 35.下列数据结构中，属于非线性的是( )。（分数：2.00）A.线性表B.队列C.树D.栈6.设计程序时，应采纳的原则之一是( )。（分数：2.00）A.程序的结构应有助于读者的理解B.限制 GOTO 语句的使用C.减少或取消注释行D.程序越短越好7.设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA8.软件工程与计算机科学性质不同，软件工程着重于_。（分数：2.00）A.理论研
4、究B.建造软件系统C.原理和理论D.原理探寻9.在软件工程中，白盒测试法可用于测试程序的内部结构。此方法将程序看做是_。（分数：2.00）A.路径的集合B.循环的集合C.目标的集合D.地址的集合10.数据库的概念模型_。（分数：2.00）A.依赖于计算机硬件和 DBMSB.独立于计算机硬件，依鞍子 DBMSC.依赖于计算机硬件，独立于 DBMSD.独立于计算机硬件和 DBMS11.检查软件产品是否符合需求定义的过程称为（分数：2.00）A.确认测试B.集成测试C.验证测试D.验收测试12.窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。Privat
5、e Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub（分数：2.00）A.10B.14C.15D.12013.以下关于窗体的描述中，错误的是( )。（分数：2.00）A.执行 UnLoad Forml 语句后，窗体 Forml 消失，但仍在内存中B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽14.设置组合框的风格,可用的
6、属性是（分数：2.00）A.BackstyleB.BorderstyleC.StyleD.Sorted15.通过文本框( )事件过程可以获取文本框中输入字符的 ASCII 码值。（分数：2.00）A.ChangeB.LostFocusC.KeyPressD.GotFocus16.复选框是否被选中，取决于复选框的( )。（分数：2.00）A.Enabled 属性B.Value 属性C.Checked 属性D.Visible 属性17.在设计程序时，应采纳的原则之一是( )。（分数：2.00）A.不限制 goto 语句的使用B.减少或取消注解行C.程序越短越好D.程序结构应有助于读者理解18.运行
7、下面的程序后,输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i, i) =1: Next For i=1 To 5 For j=1 To 5 Print t(i, j), Next Print Next（分数：2.00）A.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1B.1 1 1 1 1C.1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1D.1 1 1 1 119.下列各项中，不是通用过程特点的是( )。（分数：2.00）A.通用过程不
8、与任何特定事件相联系B.通用过程完成特定任务C.通用过程由用户创建D.通用过程可以由鼠标激发20.在窗体上画 1 个名称为 Cornmandl 的命令按钮，并编写以下程序： Private Sub Commandl_Click() Print fun(“ABCDEFG”) End Sub Function fun(st As String)As String stlen=Len(st) temp=“” For k=1 To stlen2 temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1) Next k fun=temp End Function 程序运行时，单击
9、命令按钮，则在窗体上显示的是( )。（分数：2.00）A.ABCDEFGB.AGBFCEC.GFEDCBAD.AGBFCED21.以下声明语句中错误的是_。（分数：2.00）A.Constvar1=123B.Dimvar2=ABCC.Dim intSum As IntegerD.Static vat3 As Integer22.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为_。（分数：2.00）A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put 文件号，变量名，记录号D.Put 文件号，记录号，变量名23.为了使列表框中的项目分为多列显示，需要
10、设置的属性为( )。（分数：2.00）A.ColumnsB.StyleC.ListD.MultiSelect24.已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic 表达式为( )。（分数：2.00）A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(x)*Sin(30*3.14/180)*2*x/(x+y)*Log(x)D.Exp(X)*Sin(30*3.14/180)*2*X/(X+Y)*Ln(X)25.窗体上有一个组合框，编写下列程序：Private Sub
11、 Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form Load() Combo1. AddItem “上海” Combo1. AddItem “北京” Combo1. AddItem “天津” Combo1. AddItem “重庆”End Sub 程序执行时，单击 Command1，则在组合框中将不再出现_。（分数：2.00）A.上海B.北京C.天津D.重庆26.若要将窗体从内存中卸载出去，应该使用的方法是_。（分数：2.00）A.ShowB.UnLoadC.LoadD.Hide27.在 VB 语言中，6 个关系运算符
12、在运算过程中优先级从高到低的顺序是（分数：2.00）A.B.C.D.不分先后顺序28.我们可以在设计时(属性窗口中)和运行时(程序代码中)设置属性的属性值，以下关于属性设置的说法正确的是（分数：2.00）A.在属性窗口中可以设置所有属性的属性值B.在程序代码中可以设置所有属性的属性值C.属性的名称由 VB 事先定义，用户不能改变D.所有对象的属性都是可见的29.设 A=“12345678“，则表达式 Val(Left(A，4)+Mid(A，4，2)的值为 _。（分数：2.00）A.123456B.123445C.8D.630.在列表框中当前被选中的列表项的序号是由下列哪个属性表示 _。（分数：
13、2.00）A.ListB.IndexC.ListindexD.Tabindex31.要把一个命令按钮设置成无效，应设置属性 _ 的值为 False。（分数：2.00）A.VisibleB.EnabledC.DefaultD.Cancel32.当一个工程含有多个窗体时，其中的启动窗体是 _。（分数：2.00）A.启动 Visual Basic 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体33.以下能够正确计算 1+2+3+10 的程序是（分数：2.00）A.Private sub Command1_Click( ) sum=0 For 1=1 To
14、10 Sum=sum+1， Next I Print Sum End SubB.Private sub Command1_Click( ) Sum=0,I=1 Do While l=10 Sum=Sum+1 I=I+1 Print Sum End SubC.Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I10 Print Sum End SubD.Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I10 Prin
15、t Sum End Sub34.以下关系表达式中，其值为 False 的是（分数：2.00）A.ABC“AbC“B.the“they“C.VISUAl，=UCase(“Visual“)D.Integer“Int“35.能够获得一个文本框中被选取文本的内容的属性是_。（分数：2.00）A.TextB.SelLengthC.SelTextD.SelStart36.在窗体上画一个名称为 File 的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1FileName，1) End Sub 以下关于该程序的叙述中，错误的是（分数：2.00
16、）A.x 没有实际作用，因此可以将该语句写为：Call Shell(FilE.FileName，1)B.双击文件列表框中的文件，将触发该事件过程C.要执行的文件的名字通过 File1FileName 指定D.File1 中显示的是当前驱动器、当前目录下的文件二、填空题(总题数：16，分数：32.00)37.填空题（每空）请将每一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_38.一个消息由三个部分组成：接收消息的对象的名称、 1 和零个或多个参数。（分数：2.00）填空项 1:_39.结构化程序设计的 3 种基本结构分别是顺序、选择和 1。（分数：2.0
17、0）填空项 1:_40.数据库恢复是将数据库从 1 状态恢复到某一已知的正确状态。（分数：2.00）填空项 1:_41.数据模型按不同应用层次分成 3 种类型，它们是概念数据模型、 1 和物理数据模型。（分数：2.00）填空项 1:_42.一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管”与实体“项目”的联系属于 1 的联系。（分数：2.00）填空项 1:_43.在窗体上画一个文本框，名称为 Text1，画一个命令按钮，名称为 Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的
18、内容，将程序补充完整。Private Sub Command1_Click() Open“c：/test.dat“For Output As #1 For I=1 to Len(Text1.text) 1 Next I Close #1 End Sub（分数：2.00）填空项 1:_44.下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。 Sub PrintOut() Dim a As Integer a=MsgBox(“输出结果?“，vblnformation+vbYesNo，“提示：“) If a= 1Then Print “Myresult“ End I
19、f End Sub（分数：2.00）填空项 1:_45.窗体下面有一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=0Do Until x = -1a=InputBox(“请输入第一个数字 a 的值“)a=Val(a)b=InputBox(“请输入第二个数字 b 的值“)b=Val(b)x=InputBox(“请输入第三个数字 x 的值“)x=Val(x)a=a+b+xLoopPrint aEnd Sub 在程序运行后，单击命令按钮，在对话框中分别输入 5，4，8，5，8，-1，输出结果为 1。（分数：2.00）填空项 1:_46.为了在运行时把“
20、d:/pie”文件夹下的图形文件“a. jpg”装入图片框 Picturel，所使用的语句为 1。（分数：2.00）填空项 1:_47.执行下面的程序段后，S 的值为 1。s=5For i=2.6 To 4.9 Step 0.6s=s+1Next i（分数：2.00）填空项 1:_48.下图是应用程序的窗体，要求用户选中复选框 Check1 后，文本框 Text1 中的文字以粗体显示，选中复选框 Check2 后，文本框 Text1 中的文字以斜体显示，单击“关闭”按钮 Command1 后结束应用程序运行。Private Sub Check1_ Click ()if 1thenText1.
21、FontBold = TrueElseText1. FontEold = 2End ifEnd SubPrivate Sub check2_ click()if 3thenText1. FontItalic = FalseElseText1. FontItalic = TrueEnd ifEnd subPrivate Sub Command1_ Click() 4MeEnd Sub （分数：2.00）填空项 1:_49.下列程序的作用是：打开顺序文件 C:/stuDatA.txt，读取文件中的数据，并将数据显示在窗体上。该程序不完整，请补充完该程序。 Private Sub Form_Clic
22、k() 1 Do While Not EOF(1) Input # 1，StrNo，StuName，StuEng Print StuNo；Tab(10)；StuName；Tab(20)；StuEng Loop Close #1End Sub（分数：2.00）填空项 1:_50.下列程序的运行机结果是 1。 Private Sub Form_ Click() Dim k As Integer n= 5 m= 1 k= 1 Do m=m+2 k= k+1 Loop While k=n Print mEnd Sub（分数：2.00）填空项 1:_51.执行下面的程序段后，S 的值为 1。 s=5 F
23、or i=6 To 9 Step 0.6 S=S+1 Next i（分数：2.00）填空项 1:_52.在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1 Click()Text1.Text=Left(UCase(SaveAll),4)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)SaveAll=SaveAllChr(KeyAscii)End Sub 程序运行后，在文本框中输入 abcdefg
24、，单击命令按钮，则文本框中显示的内容是 1。（分数：2.00）填空项 1:_VB 笔试-试卷 79 答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_解析：2.下列程序执行后，变量 a 的值为( )。 Dim a,b,c,d as single a=100 b=20 c=1000 if ba Then d=a:a=b:b=d End if if ca Then d=a:a=c:c=d End if if cb Then
25、d=b:b=c:c=d End if（分数：2.00）A.0B.1000 C.20D.100解析：3.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.Alt+BB.Alt+Q C.Alt+ShiftD.Alt+a解析：解析：Alt+Q 关闭当前的工程并退出 Visual Basic。4.当发生 Form_ Click 事件后，下面这段程序代码的执行结果为在窗体中输出_。 Option Explicit Private Sub Form Click () Dim num As String * 1, n As Integer Open “C:/ Check. tx
26、t“ For Random As #10 For n = 1 To 6 num = Chr(n + 64) Put %10, n, num Next n Seek #10, 3: Get #10, , num Print Loc(10); Seek(10) End Sub（分数：2.00）A.3 4 B.4 5C.5 3D.3 3解析：5.下列数据结构中，属于非线性的是( )。（分数：2.00）A.线性表B.队列C.树 D.栈解析：解析：线性结构，是指数据元素只有一个直接前件元素和直接后件元素。线性表是线性结构。栈和队列是指对插入和删除操作有特殊要求的线性表，树是非线性结构。6.设计程序时，应
27、采纳的原则之一是( )。（分数：2.00）A.程序的结构应有助于读者的理解 B.限制 GOTO 语句的使用C.减少或取消注释行D.程序越短越好解析：解析：程序设计的风格主要强调程序的简单、清晰和可理解性，以便读者理解。程序滥用 GOTO 语句将使程序流程无规律，可读性差；添加注释行有利于对程序的理解，不应减少或取消，程序的长短要依据实际的需要而定，并不是越短越好。7.设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA 解析：解析：二叉树的遍历分为先序，中序、后序三种不同方式。本题要求后序遍历，其遍历顺序应该为：后序遍历左子树?后序遍历右子树?访
28、问根结点。按照定义，后序遍历序列是 DBEFCA，故答案为 D。8.软件工程与计算机科学性质不同，软件工程着重于_。（分数：2.00）A.理论研究B.建造软件系统 C.原理和理论D.原理探寻解析：解析：计算机科学中的研究成果均可用于软件工程，但计算机科学着重于原理和理论，而软件工程着重于如何建造一个软件系统。从工程化角度对软件的开发加以科学的设计和管理。9.在软件工程中，白盒测试法可用于测试程序的内部结构。此方法将程序看做是_。（分数：2.00）A.路径的集合 B.循环的集合C.目标的集合D.地址的集合解析：解析：软件的白盒测试方法是把测试对象看做一个打开的盒子，它允许测试人员利用程序内部的逻
29、辑结构及有关信息，设计或选择测试用例，对程序所有逻辑路径进行测试。10.数据库的概念模型_。（分数：2.00）A.依赖于计算机硬件和 DBMSB.独立于计算机硬件，依鞍子 DBMSC.依赖于计算机硬件，独立于 DBMSD.独立于计算机硬件和 DBMS 解析：11.检查软件产品是否符合需求定义的过程称为（分数：2.00）A.确认测试 B.集成测试C.验证测试D.验收测试解析：解析：确认测试的任务是验证软件的功能和性能，以及其他特性是否满足需求规格说明中确定的各种需求；集成测试的主要目的是发现与接口有关的错误。12.窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结
30、果是( )。Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End Sub（分数：2.00）A.10B.14 C.15D.120解析：解析： 解答本题的关键是读懂程序。程序中首先通过赋值语句定义一个有 5 个元素的数组(数组的下标从零开始)；接下来通过 For 循环来循环给变量 S 赋值(即对数组元素求和)，这里循环中 k 从 1 开始，因此 a(k)从 2 开始取值，到 a(4)也就是 5 结束，计算结果为 14。13.以下关于窗体的描述中，错误的是( )。（
31、分数：2.00）A.执行 UnLoad Forml 语句后，窗体 Forml 消失，但仍在内存中 B.窗体的 Load 事件在加载窗体时发生C.当窗体的 Enabled 属性为 False 时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的 Height、Width 属性用于设置窗体的高和宽解析：14.设置组合框的风格,可用的属性是（分数：2.00）A.BackstyleB.BorderstyleC.Style D.Sorted解析：解析：Style 属性返回或设置一个值,指定控件的行为或外观。15.通过文本框( )事件过程可以获取文本框中输入字符的 ASCII 码值。（分数：2.00）A.Ch
32、angeB.LostFocusC.KeyPress D.GotFocus解析：16.复选框是否被选中，取决于复选框的( )。（分数：2.00）A.Enabled 属性B.Value 属性 C.Checked 属性D.Visible 属性解析：解析：本题考查复选框的常见属性。复选框的 Enabled 属性决定复选框是否可用，Value 属性决定复选框是否选定，其属性值有 3 种：0|Unchecked：表示未被选定，1-Checked：选定，2-Grayed：灰色，禁止选择；Visihle 属性决定其是否可见；复选框没有 Checked 属性。17.在设计程序时，应采纳的原则之一是( )。（分数
33、：2.00）A.不限制 goto 语句的使用B.减少或取消注解行C.程序越短越好D.程序结构应有助于读者理解 解析：18.运行下面的程序后,输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i, i) =1: Next For i=1 To 5 For j=1 To 5 Print t(i, j), Next Print Next（分数：2.00）A.1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1B.1 1 1 1 1C.1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0
34、1 0 0 0 0 0 1 D.1 1 1 1 1解析：解析：考查考生对多重循环和 Print 方法的掌握。程序以矩阵格式输出一个二维数组,由程序可知,数组的主对角线上的元素赋值为 1,其他元素未赋值,初值为 0。所以输出结果如选项 C)所示。嵌套使用多重循环时,应注意程序执行过程。19.下列各项中，不是通用过程特点的是( )。（分数：2.00）A.通用过程不与任何特定事件相联系B.通用过程完成特定任务 C.通用过程由用户创建D.通用过程可以由鼠标激发解析：20.在窗体上画 1 个名称为 Cornmandl 的命令按钮，并编写以下程序： Private Sub Commandl_Click()
35、 Print fun(“ABCDEFG”) End Sub Function fun(st As String)As String stlen=Len(st) temp=“” For k=1 To stlen2 temp=temp+Mid(st，k，1)+Mid(st，stlen-k+1，1) Next k fun=temp End Function 程序运行时，单击命令按钮，则在窗体上显示的是( )。（分数：2.00）A.ABCDEFGB.AGBFCE C.GFEDCBAD.AGBFCED解析：解析：本题考查函数过程。fun 函数中包含一个 For 循环语句，主要功能是：首先从字符串头和尾开
36、始执行，每次分别取出一个字符，共取 3 次，并连接到一起产生一个新字符串。21.以下声明语句中错误的是_。（分数：2.00）A.Constvar1=123B.Dimvar2=ABC C.Dim intSum As IntegerD.Static vat3 As Integer解析：解析：Visual Basic 中 Dim 只能声明变量，而不能声明一个常量。声明常量要用 Const。Static则是用来定义一个静态变量的。22.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为_。（分数：2.00）A.Get 文件号，记录号，变量名B.Get 文件号，变量名，记录号C.Put
37、 文件号，变量名，记录号D.Put 文件号，记录号，变量名 解析：解析：Put 语句的格式为：Put#filenumber,recnumber, vamame 其中 filenumber 表示有效的文件号。recnumber 表示记录号或字节数，即开始写入的地方。varname 表示变量名。23.为了使列表框中的项目分为多列显示，需要设置的属性为( )。（分数：2.00）A.Columns B.StyleC.ListD.MultiSelect解析：解析：Columns 属性返回或设置一个值，以决定控件是水平还是垂直滚动以及如何显示列中的项目。Columns 属性值为 0 时，控件为垂直滚动；C
38、olumns 属性值为 1 时，则列表框呈多行多列显示；Columns属性值大于 1 时，为水平滚动，Columns 属性值的数量决定在控件中的可见宽度内显示列的数量。Columns 属性用来确定列表框的列数。24.已知代数式 eXSin(30)2x/(x+y)Lnx，则正确的 Visual Basic 表达式为( )。（分数：2.00）A.E*Sin(30*3.14/180)*2*X/X+Y*Log(X)B.Exp(X)*Sin(30)*2*X/(X+Y)*Ln(X)C.Exp(x)*Sin(30*3.14/180)*2*x/(x+y)*Log(x) D.Exp(X)*Sin(30*3.14
39、/180)*2*X/(X+Y)*Ln(X)解析：解析：“Exp”函数功能是计算 e(e2.71828)的某次方，其格式为是 Exp(number)；“Sin”函数指定参数的正弦值，它的参数是表示以弧度为单位的角的 Double 型数据：“Log”函数得到某数的自然对数值，正确的表达方式是 Log(number)；“30”在计算机中应该写成 30*3.14/180；并且各个表达式之间的乘号不能省略。25.窗体上有一个组合框，编写下列程序：Private Sub Command1_ Click () Combo1. RemoveItem 2End subPrivate Sub form Load(
40、) Combo1. AddItem “上海” Combo1. AddItem “北京” Combo1. AddItem “天津” Combo1. AddItem “重庆”End Sub 程序执行时，单击 Command1，则在组合框中将不再出现_。（分数：2.00）A.上海B.北京C.天津 D.重庆解析：解析：程序在窗体加载的时候，通过 form_Load 事件给组合框添加了 4 个选项，当发生 Command1的单击事件时，移去序号为 2 的选项，即“天津”。26.若要将窗体从内存中卸载出去，应该使用的方法是_。（分数：2.00）A.ShowB.UnLoad C.LoadD.Hide解析：2
41、7.在 VB 语言中，6 个关系运算符在运算过程中优先级从高到低的顺序是（分数：2.00）A.B.C.D.不分先后顺序 解析：解析：在 VB 语言中，6 个关系运算符在运算过程中优先级不分先后顺序。28.我们可以在设计时(属性窗口中)和运行时(程序代码中)设置属性的属性值，以下关于属性设置的说法正确的是（分数：2.00）A.在属性窗口中可以设置所有属性的属性值B.在程序代码中可以设置所有属性的属性值C.属性的名称由 VB 事先定义，用户不能改变 D.所有对象的属性都是可见的解析：解析：属性的名称由 VB 事先定义，用户不能改变。选项 C 的说法正确。29.设 A=“12345678“，则表达式
42、 Val(Left(A，4)+Mid(A，4，2)的值为 _。（分数：2.00）A.123456B.123445 C.8D.6解析：解析：Left(A,4)=“1234“ Mid(A,4,2)=“45“ Val(“1234“+“45“)=123445 注意：Left 和 Mid 均为字符串截取函数，“+”为字符串连接符。30.在列表框中当前被选中的列表项的序号是由下列哪个属性表示 _。（分数：2.00）A.ListB.IndexC.Listindex D.Tabindex解析：解析：List 属性：该属性用来列出列表项的内容。List 属性保存了列表框中所有值的数组，可以通过下标访问数组中的值
43、(下标值介于 0 到 List.ListCount-1 之间)。 List Index 属性：该属性的设置值是已选中的列表项的位置。列表项位置由索引值指定，第一项的索引值为 0，第二项为 1，依次类推。如果没有选中任何列表项，ListIndex 的值将设置为-1。31.要把一个命令按钮设置成无效，应设置属性 _ 的值为 False。（分数：2.00）A.VisibleB.Enabled C.DefaultD.Cancel解析：解析：命令按钮的部分属性： Visible 属性：返回/设置一个值，决定对象是否可见；Cancel 属性：当一个命令按钮的 Cancel 属性设置为 True 时，按 E
44、sc 键与单击该命令按钮的作用相同。 Enabled 属性：返回/设置一个值，决定对象是否响应用户生成事件。 Default 属性：当一个命令按钮的 Default 属性被设置为 True 时，按回车键和单击该命令按钮的作用相同。32.当一个工程含有多个窗体时，其中的启动窗体是 _。（分数：2.00）A.启动 Visual Basic 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体 解析：解析：在“工程-属性”对话框中可以指定工程的启动对象(可以是窗体、Sub Main()。33.以下能够正确计算 1+2+3+10 的程序是（分数：2.00）A.Pr
45、ivate sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub B.Private sub Command1_Click( ) Sum=0,I=1 Do While l=10 Sum=Sum+1 I=I+1 Print Sum End SubC.Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I10 Print Sum End SubD.Private Sub command1_Click( ) Su
46、m=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I10 Print Sum End Sub解析：解析：A 选项进行 10 次循环，分别将 1 至 10 累加给 Sum，故正确。选项 B 缺少 Loop 关键词，否则也是正确的。选项 C 与 D 由于受条件“Iclo限制，Do 循环只能进行一次。34.以下关系表达式中，其值为 False 的是（分数：2.00）A.ABC“AbC“ B.the“they“C.VISUAl，=UCase(“Visual“)D.Integer“Int“解析：解析：字符串数据是按照其 ASCII 码的值进行比较的。如果两个字符串的第一个字符一
47、样大，则比较第二个字符的 ASCII 码的大小。大写字母 B 的 ASCII 码值小于小写字母 b 的 ASCII 码值。35.能够获得一个文本框中被选取文本的内容的属性是_。（分数：2.00）A.TextB.SelLengthC.SelText D.SelStart解析：解析：文本框有很多属性，其中 Text 属性用来设置文本框中显示的内容。 SelLength 属性存放当前选中的字符数。 SelText 属性含有当前所选择的文本字符串，如果没有选择文本，则该属性含有一个空字符串。 SelStart 属性定义当前选择的文本的起始位置。36.在窗体上画一个名称为 File 的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1FileName，1) End Sub 以下关
