1、VB 笔试-试卷 25 及答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.算法的时间复杂度是指( )。（分数：2.00）A.算法的长度B.执行算法所需要的时间C.算法中的指令条数D.算法执行过程中所需要的基本运算次数3.以下数据结构中，属于非线性数据结构的是( )。（分数：2.00）A.栈B.线性表C.队列D.二叉树4.数据结构中，与所使用的计算机无关的是数据的( )。（分数：2.00）A.存储结构B.物理结构C.逻
2、辑结构D.线性结构5.内聚性是对模块功能强度的衡量，下列选项中，内聚性较弱的是( )。（分数：2.00）A.顺序内聚B.偶然内聚C.时间内聚D.逻辑内聚6.在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键，它们称为该表的( )。（分数：2.00）A.连接码B.关系码C.外码D.候选码7.检查软件产品是否符合需求定义的过程称为( )。（分数：2.00）A.确认测试B.需求测试C.验证测试D.路径测试8.数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是( )。（分数：2.00）A.控制流B.加工C.存储
3、文件D.源和潭9.待排序的关键码序列为(15，20，9，30，67，65，45，90)，要按关键码值递增的顺序排序，采取简单选择排序法，第一趟排序后关键码 15 被放到第( )个位置。（分数：2.00）A.2B.3C.4D.510.对关系 s 和关系 R 进行集合运算，结果中既包含关系 S 中的所有元组也包含关系 R 中的所有元组，这样的集合运算称为( )。（分数：2.00）A.并运算B.交运算C.差运算D.除运算11.下列选项中，不属于数据管理员(DBA)职责的是( )。（分数：2.00）A.数据库维护B.数据库设计C.改善系统性能，提高系统效率D.数据类型转换12.为了在运行时能显示窗体左
4、上角的控制框(系统菜单)，可以设置以下哪个属性的值为 True( )。（分数：2.00）A.ControlBOXB.MinButtonC.MaxButtonD.BorderStyle13.设有如下的记录类型： Type Student Number As String Name As String Age As Integer End Type 则能正确引用该记录类型变量的代码是( )。（分数：2.00）A.Studentname=“”B.Dim s As Student sage=17C.Dim s As Type Studentsname=“小明”D.Dim s As Type sNumb
5、er=“1001”14.下列叙述中有错误的是( )。（分数：2.00）A.变量名的第一个字符必须是字母B.变量名的长度不超过 255 个字符C.变量名可以包含小数点或者内嵌的类型声明字符D.变量名不能使用关键字15.下列是 Visual Basic 中所允许的形式数是( )。（分数：2.00）A.2574B.3457E-100C.368D.187E+5016.指令“Circle(1500，1200)，1000,05”将会绘制出的图形为( )。（分数：2.00）A.圆B.正方形C.椭圆D.圆弧17.在表达式 2+3*45-Sin(x+1)2 中，首先进行的运算是( )。（分数：2.00）A.45
6、B.3*4C.x+1D.Sin()18.在窗体上有一个名为 Commandl 的命令按钮，并有如下事件过程： Private Sub Commandl_Click() a$=“Swallows Mod Genulled” b$=Right(a$，8):c$=Mid(a$，1，8) MsgBox a$,b$，c$，1 End Sub 程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。（分数：2.00）A.Swallows Mod GenulledB.GenulledC.SwallowsD.119.在文本框控件中，将 Text 的内容全部显示为用户所定义的字符的属性是( )。（分
7、数：2.00）A.PasswordCharB.需要编程来实现C.PasswordD.以上都不是20.下列关于控件焦点的叙述中正确的是( )。（分数：2.00）A.标签控件不能接收焦点事件B.如果将文本框控件中 TabStop 属性值设为 False，则该文本框将不能接收焦点事件C.窗体控件不能接收焦点事件D.不能通过程序代码设置焦点属性21.为了使名称为 Commandl 的命令按钮右移 200，应使用的语句是( )。（分数：2.00）A.CommandlMove-200B.CommandlMove 200C.CommandlLeft=CommandlLeft+200D.CommandlLef
8、t=CommandlLeft-20022.在窗体上画一个名为 Check1 的复选框，如果在窗体启动事件中编写语句“Check1Enabled=False”，则运行后复选框的状态为( )。（分数：2.00）A.选中状态B.未选中状态C.0D.灰色23.在窗体上有一个名称为 List1 的列表框和一个名称为 Commandl 的命令按钮，并编写有如下事件过程： Private Sub Form_Load() List1Addltem“Item1”：List1Addltem“Item2”：List1Addltem“Item3” End Sub Private Sub Commandl_Click(
9、) List1List(List1ListCount)=“New Item” End Sub 程序执行时，单击命令按钮，其结果为( )。（分数：2.00）A.把字符串“New Item”添加到列表框中，但位置不能确定B.把列表框中原有的最后一项改为“New Item”C.把字符串“New Item”添加到列表框的最后(即“Item3”的后面)D.把字符串“New Item”插入到列表框的最前面(即“Item1”的前面)24.设窗体上有 1 个垂直滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是( )。（分数：2.00）A.程序运行时，若使滚
10、动块向左移动，滚动条的 Value 属性值就减少B.由于滚动条的 Max 值小于 Min 值，程序运行时滚动条的长度会缩为一点，滚动块无法移动C.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加D.由于滚动条的 Max 属性值小于 Min 属性值，程序会出错25.设有下列语句： x=5 Ifx0 Then y=1 Y=5 程序运行后，则下列叙述中正确的是( )。（分数：2.00）A.变量 y 的值是 1B.变量 y 的值是 5C.变量 x 的值是 5，变量 y 的值是 1D.变量 y 的值不能确定26.下面的程序运行时，单击窗体后，窗体上显示的结果是( )。 Private
11、Sub Form_Click() Dim a(1 To 6)As Integer Dim min1，i，j，n，t，k a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min1=i 、 Forj=i+1 To n Ifa(j)A.9 8 7 6 3 2B.2 3 6 7 8 9C.9 8 7 6 3D.2 3 6 7 827.有如下函数： Function fun(a As Integer，n As Integer)As Integer Dim m As Integer While a=n a=an:m=m+1 Wend
12、 fun=m End Function 该函数的返回值是( )。（分数：2.00）A.a 乘以 n 的乘积B.a 加 n 的和C.a 减 n 的差D.a 除以 n 的商(不含小数部分)28.下面程序运行后，语句“Print i”执行的次数是( )。 Private Sub Form_Click() Dim i As Integer,j As Integer i=0 Do i=i+1 Forj=10 To 1 Step-3 i=i+j Print i Next j Loop While iA.4B.8C.12D.1629.标准模块中有如下程序代码： Public x As Integer，Y A
13、s Integer Sub TempSub() x=10:y=20 End Sub 在窗体上有 1 个命令按钮，并有如下事件过程： Private Sub Commandl_Click() Dim x As Integer Call TempSub x=x+100:y=y+100 Print x；Y End Sub 运行程序后单击命令按钮，窗体上显示的是( )。（分数：2.00）A.110 100B.100 100C.100 120D.1 10 12030.在窗体上有一个名称为 Check1 的复选框数组(含 4 个复选框)，还有一个名称为 Text1 的文本框，初始内容为空。程序运行时，单击
14、任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见图)。下面能实现此功能的事件过程是( )。 （分数：2.00）A.Private Sub Checkl_Click(Index As Integer) Text1Text=“” For k=0 To 3 If Checkl (k)Value=1 Then Text1Text=Text1Text&Checkl(k)Caption&“”双引号中是空格 EndIf Nextk EndSubB.Private Sub Checkl_Click(Index As Integer) For k=0 To 3 If Checkl (k)Value=
15、1 Then Text1Text=Text1Text&Checkl(k)Caption&“”双引号中是空格 EndIf Nextk End SubC.Private Sub Checkl_Click(Index As Integer) Text1Text=“” For k=0 To 3 If Checkl(Index)Value=1 Then Text1Text=Text1Text&Checkl(Index)Caption&“”双引号中是空格 End If Nextk End SubD.Private Sub Checkl_Click(Index As Integer) Text1Text=“
16、” For k=0 To 3 If Checkl (k)Value=1 Then Text1Text=Text1Text&Checkl(k)Caption&“”双引号中是空格 Exit For EndIf Nextk End Sub31.在 E 盘当前目录文件夹下建立一个名为“Student:txt”的随机文件，要求用 InputBox 函数输入 5 个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String * 10 St
17、uGrade As String * 10 StuAge As Integer End Type Private Sub Form Click() Dim s As student Open“c:studenttxt”For Random As#1 Len=Len(s) For i=1 To 5 sStuName=InputBox(“请输入姓名”) sStuGrade=InputBox(“请输入年级号”) sStuAge=Val(InputBox(“请输入年龄”) Nexti Close#1 End Sub（分数：2.00）A.Print#1，sB.Print#1，iC.Put#1,sD.Pu
18、t#1,i32.单击命令按钮执行以下程序，则输出结果为( )。 Private Sub Commandl_Click() Dim x As Integer,y As Integer x=14:y=48 Call Proc(x，y) Printx；y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=nMod 10:m=m Mod 10 EndSub（分数：2.00）A.4 8B.14 8C.14 48D.4 4833.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每
19、输入一个字母( )。（分数：2.00）A.只触发 KeyUp 事件B.这 3 个事件都会触发C.只触发 KeyDown、KeyPress 事件D.不触发其中任何一个事件34.关于菜单设计，下列叙述中错误的是( )。（分数：2.00）A.弹出式菜单也在菜单编辑器中定义B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C.程序运行过程中，可以重新设置菜单的 Visible 属性D.在同一窗体的菜单项中，不允许出现标题相同的菜单项35.设工程中有 2 个窗体：Form1、Foma2，Form1 为启动窗体。Form2 中有菜单，其结构如表。要求在程序运行时，在 Form1 的文本框
20、Text1 中输入口令并按回车键(回车键的 ASCII 码为 13)后，隐藏 Form1，显示Form2。若口令为“XSLNCER”，所有菜单项都可见：否则看不到“成绩录入”菜单项。为此，某人在Form1 窗体文件中编写如下程序： （分数：2.00）A.把 2 个 Form2inputVisible 中的“Form2”删去B.把 Form1 中 Text1 文本框及相关程序放到 Form2 窗体中C.把 IfKeyAsii=13 Then 改为 IfKeyAscii=“XSLNCER”ThenD.把 Form1Hide、Form2Show 两行移动到 2 个 End If 之问36.在窗体上有
21、一个名称为 Drivel 的驱动器列表框，一个名称为 Dirl 的目录列表框，一个名称为 Filel的文件列表框，两个名称分别为 Labell、Label2 的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 Label1 中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是( )。（分数：2.00）A.Private Sub Dir1_Change() File1Path=Dir1Path End Sub Private Sub Drivel_Change() Dir1Path=DrivelDrive Label1Ca
22、ption=File1ListCount End SubB.Private Sub Dir1_Change() File1Path=Dir1Path End Sub Private Sub Drivel_Change() Dir1Path=DfivelDrive Label1Caption=File1List EndSubC.Private Sub Dir1_Change() File1Path=Dir1Path Label1Caption=File1ListCpunt End Sub Private Sub Drivel_Change() Dir1Path=DrivelDrive Label
23、1Caption=File1ListCount End SubD.Private Sub Dir1_Change() File1Path=Dir1Path Label1Caption=File1List End Sub Private Sub Drivel_Change() Dir1Path=DrivelDrive Label1Caption=File1List End Sub二、填空题(总题数：12，分数：24.00)37.填空题（每空）请将每一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_38.软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和
24、维护阶段。编码和测试属于 1 阶段。（分数：2.00）填空项 1:_39.不改变关系表中的属性个数但能减少元组个数的是 1。（分数：2.00）填空项 1:_40.用树形结构表示实体之间联系的模型是 1。（分数：2.00）填空项 1:_41.在两种基本测试方法中， 1 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。（分数：2.00）填空项 1:_42.与二维表中的“行”的概念最接近的概念是 1。（分数：2.00）填空项 1:_43.以下程序段的功能是 1。 x=86 y=Int(x+05) Printy（分数：2.00）填空项 1:_44.文本框接受的最长字符数由文本框的 1 属性确
25、定。（分数：2.00）填空项 1:_45. 1 语句的作用是暂时停止 VB 程序的运行，将控制权转交给操作系统。（分数：2.00）填空项 1:_46.以下程序段的功能是：从文本框中输入一个数值，如果该数值满足“除以 4 余 1，除以 5 余 2”的条件，则在窗体上输出文本框中的数值，否则，将焦点定位在文本框中，并清除文本框的内容。请填空。 Pfivate Sub Commandl_Click() x=Valflbxt1Text) If 1Then Print x Else 2 Text1Fext=“” EndIf End Sub（分数：2.00）填空项 1:_47.设在界面上放置了一个滚动条
26、Hscrolll 和一个标签控件 Labell，请补齐以下代码，要求每次单击滚动条两端箭头，或滚动条滑块与两端箭头之间的空白区域时，滚动条的值能够反映在标签中。 Private Sub Hscrolll 1 LabellCaption=Hscrolll 2 End Sub（分数：2.00）填空项 1:_填空项 1:_48.在窗体上画一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click() Open“d:Temptxte1txt”For：Input As#1 Do While
27、Not 1。 Line Input#1aspect$ wholes=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ 2。 Open“d:Temptext2txt”For Output As#1 Print#1， 3。 Close#1 End Sub 运行程序，单击窗体，将把磁盘文件 Temptext1txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 Temptext2txt。请填空。（分数：2.00）填空项 1:_VB 笔试-试卷 25 答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总
28、题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_解析：2.算法的时间复杂度是指( )。（分数：2.00）A.算法的长度B.执行算法所需要的时间C.算法中的指令条数D.算法执行过程中所需要的基本运算次数 解析：解析：算法的时间复杂度，是指执行算法所需要的工作量，可以用算法在执行过程中所需基本运算的执行次数来度量算法的工作量。3.以下数据结构中，属于非线性数据结构的是( )。（分数：2.00）A.栈B.线性表C.队列D.二叉树 解析：解析：二叉树属于非线性结构。栈是一种特殊的线性表，这种
29、线性表只能在固定的一端进行插入和删除操作；队列可看作是插入在一端进行，删除在另一端进行的线性表。4.数据结构中，与所使用的计算机无关的是数据的( )。（分数：2.00）A.存储结构B.物理结构C.逻辑结构 D.线性结构解析：解析：数据的逻辑结构反映的是数据元素之间的逻辑关系，与使用的计算机无关。5.内聚性是对模块功能强度的衡量，下列选项中，内聚性较弱的是( )。（分数：2.00）A.顺序内聚B.偶然内聚 C.时间内聚D.逻辑内聚解析：解析：内聚是从功能角度来衡量模块的联系，它描述的是模块内的功能联系。内聚有如下种类，它们之间的内聚度由弱到强排列： 偶然内聚模块中的代码无法定义其不同功能的调用。
30、但它使该模块能执行不同的功能，这种模块为巧合强度模块。 逻辑内聚这种模块把几种相关的功能组合在一起，每次被调用时，由传送给模块的参数来确定该模块应完成哪一种功能。 时间内聚这种模块顺序完成一类相关功能，比如初始化模块，它顺序地为变量置初值。 过程内聚如果一个模块内的处理元素是相关的，而且必须以特定次序执行，则称为过程内聚。 通信内聚这种模块除了具有过程内聚的特点外，还有另外一种关系，即它的所有功能都通过使用公用数据而发生关系。 顺序内聚如果一个模块内各个处理元素和同一个功能密切相关，而且这些处理必须顺序执行，处理元素的输出数据作为下一个处理元素的输入数据，则称为顺序内聚。 功能内聚如果一个模块
31、包括为完成某一具体任务所必需的所有成分，或者说模块中所有成分结合起来是为了完成一个具体的任务，此模块则为功能内聚模块。6.在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键，它们称为该表的( )。（分数：2.00）A.连接码B.关系码C.外码D.候选码 解析：解析：在关系中凡能惟一标识元组的最小属性集称为该表的键或码。二维表中可能有若干个键，它们称为该表的候选码或候选键。从二维表的所有候选键中选取一个作为用户使用的键称为主键或主码。7.检查软件产品是否符合需求定义的过程称为( )。（分数：2.00）A.确认测试 B.需求测试C.验证测试D.路径测试解析：解析：确认测试
32、的任务是验证软件的功能和性能，以及其他特性是否满足需求规格说明中确定的各种需求。8.数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下列图符名标识的图符不属于数据流图合法图符的是( )。（分数：2.00）A.控制流 B.加工C.存储文件D.源和潭解析：解析：数据流图用于抽象描述一个软件的逻辑模型，它由一些特定的图符构成，包括 4 个方面，即加工、数据流、存储文件、源和潭。9.待排序的关键码序列为(15，20，9，30，67，65，45，90)，要按关键码值递增的顺序排序，采取简单选择排序法，第一趟排序后关键码 15 被放到第( )个位置。（分数：2.00）A.2 B.3C
33、.4D.5解析：解析：选择排序的基本思想是扫描整个线性表，从中选出最小的元素，将它交换到表的最前面，然后对剩下的子表采用同样的方法，直到子表为空。所以第一趟排序后，将选出最小的元素 9 放在第一个位置，元素 15 则放在第二个位置。10.对关系 s 和关系 R 进行集合运算，结果中既包含关系 S 中的所有元组也包含关系 R 中的所有元组，这样的集合运算称为( )。（分数：2.00）A.并运算 B.交运算C.差运算D.除运算解析：解析：关系的并运算是指，由结构相同的两个关系合并，形成一个新的关系，其中包含两个关系中的所有元组。11.下列选项中，不属于数据管理员(DBA)职责的是( )。（分数：2
34、.00）A.数据库维护B.数据库设计C.改善系统性能，提高系统效率D.数据类型转换 解析：解析：数据库管理员(DataBaseAdministrator，DBA)是指对数据库的规划、设计、维护、监视等的人员，其主要工作如下：数据库设计。DBA 的主要任务之一是数据库设计，具体地说是进行数据模式的设计；数据库维护。DBA 必须对数据库中的数据安全性、完整性、并发控制及系统恢复、数据定期转储等进行实施与维护：改善系统性能，提高系统效率。DBA 必须随时监视数据库的运行状态，不断调整内部结构，使系统保持最佳状态与效率。12.为了在运行时能显示窗体左上角的控制框(系统菜单)，可以设置以下哪个属性的值为
35、 True( )。（分数：2.00）A.ControlBOX B.MinButtonC.MaxButtonD.BorderStyle解析：解析：本题考查窗体的常见属性。窗体中 ControlBox 属性用来控制是否显示控制菜单，属性值为False 时不显示控制菜单。属性 MinButton 和 MaxButton 拧制是否显示最大化和最小化按钮，属性BorderStyle 则是设置窗体的边界样式。13.设有如下的记录类型： Type Student Number As String Name As String Age As Integer End Type 则能正确引用该记录类型变量的代码是
36、( )。（分数：2.00）A.Studentname=“” B.Dim s As Student sage=17C.Dim s As Type Studentsname=“小明”D.Dim s As Type sNumber=“1001”解析：解析：本题考查记录类型变量的访问。VB 中的变量在定义时不能同时赋初值，赋初值语句为单独的语句，对于记录型变量，不能整体访问，使用时要说明其访问的具体成员。14.下列叙述中有错误的是( )。（分数：2.00）A.变量名的第一个字符必须是字母B.变量名的长度不超过 255 个字符C.变量名可以包含小数点或者内嵌的类型声明字符 D.变量名不能使用关键字解析：
37、解析：本题考查变量命名。变最命名规则为以字母开头，后面可跟汉字、字母、数字或下划线，长度小于等于 255 个字符，不能使用 VB 中的关键字。15.下列是 Visual Basic 中所允许的形式数是( )。（分数：2.00）A.2574B.3457E-100C.368 D.187E+50解析：解析：本题考查 VB 中的数据表示。VB 中的实数可以分为单精度和双精度，单精度指数形式为n；nEm，表示数据的最大值为 3402823E38；实际在使用的时候，“”不能同时出现。16.指令“Circle(1500，1200)，1000,05”将会绘制出的图形为( )。（分数：2.00）A.圆B.正方形
38、C.椭圆 D.圆弧解析：解析：本题考查绘图方法。Circle 可以用来绘制圆、椭圆以及圆弧。具体的使用格式为：“对象Circle(x，y)，半径，颜色，起始角，终止角，长短轴比例”；圆弧和扇形通过起始角和终止角来控制；椭圆通过长短轴比例来设置，比例为 1 或默认为圆。17.在表达式 2+3*45-Sin(x+1)2 中，首先进行的运算是( )。（分数：2.00）A.45B.3*4C.x+1 D.Sin()解析：解析：本题考查表达式的优先级。题目中表达式的优先级最高的是函数调用，先进行甬数运算，接下来由高到低依次为算术运算符、字符运算符、关系运算符、逻辑运算符。算术运算符的优先级从高创低为：()
39、，*，+-，因此首先进行的运算是(x+1)。18.在窗体上有一个名为 Commandl 的命令按钮，并有如下事件过程： Private Sub Commandl_Click() a$=“Swallows Mod Genulled” b$=Right(a$，8):c$=Mid(a$，1，8) MsgBox a$,b$，c$，1 End Sub 程序执行时，单击命令按钮，则在弹出的消息框的标题栏中显示的是( )。（分数：2.00）A.Swallows Mod GenulledB.GenulledC.Swallows D.1解析：解析：本题考查 MsgBox 过程的。MsgBox 为提示框，在 Ms
40、gBox 过程中，第 1 个参数是提示信息，第 2 个参数是按钮和图表的类型，若省略的话要有逗号占位，第 3 个参数是对话框的标题。阕此标题为变量 b 中的内容。19.在文本框控件中，将 Text 的内容全部显示为用户所定义的字符的属性是( )。（分数：2.00）A.PasswordChar B.需要编程来实现C.PasswordD.以上都不是解析：解析：本题考查文本框常见属性。文本框的 Passwordchar 属性设置显示文本为实际内容还是规定的字符显示：文本框控件不存在 Password 属性。20.下列关于控件焦点的叙述中正确的是( )。（分数：2.00）A.标签控件不能接收焦点事件
41、B.如果将文本框控件中 TabStop 属性值设为 False，则该文本框将不能接收焦点事件C.窗体控件不能接收焦点事件D.不能通过程序代码设置焦点属性解析：解析：本题考查控件的焦点。设置控件的 Tablndex 属性可以改变控件的焦点的移动顺序，在窗体上绘制控件的时候，VB 默认分配给控件的 TabIndex 属性，第一个默认为 0，以下类推，可以在代码中更改。当控件的 Visible 和 Enabled 属性为真时，控件可以接受焦点，某些控件没有焦点，如标签、框架、计时器等。TabStop 属性决定是否可以使用 Tab 来选定对象。21.为了使名称为 Commandl 的命令按钮右移 20
42、0，应使用的语句是( )。（分数：2.00）A.CommandlMove-200B.CommandlMove 200C.CommandlLeft=CommandlLeft+200 D.CommandlLeft=CommandlLeft-200解析：解析：本题考查控件的移动。窗体上的控件可以利用 Move 方法或者 Left 属性来发生移动。Left属性表示控件的左边缘距容器左边缘的距离。因此命令按钮右移时 Left 属性值增加。Move 方法为移动到的位置，其格式为：对象Move 左边距离,上边距离，宽度，高度/。22.在窗体上画一个名为 Check1 的复选框，如果在窗体启动事件中编写语句“
43、Check1Enabled=False”，则运行后复选框的状态为( )。（分数：2.00）A.选中状态B.未选中状态C.0D.灰色 解析：解析：本题考查复选框的常见属性。复选框的 Enabled 属性表示复选框是否可用，为 True 时复选框可用：为 False 时复选框为灰色的，不可以使用。23.在窗体上有一个名称为 List1 的列表框和一个名称为 Commandl 的命令按钮，并编写有如下事件过程： Private Sub Form_Load() List1Addltem“Item1”：List1Addltem“Item2”：List1Addltem“Item3” End Sub Pri
44、vate Sub Commandl_Click() List1List(List1ListCount)=“New Item” End Sub 程序执行时，单击命令按钮，其结果为( )。（分数：2.00）A.把字符串“New Item”添加到列表框中，但位置不能确定B.把列表框中原有的最后一项改为“New Item”C.把字符串“New Item”添加到列表框的最后(即“Item3”的后面) D.把字符串“New Item”插入到列表框的最前面(即“Item1”的前面)解析：解析：本题考查列表框的常见属性。列表框巾 ListCount 表示现在列表框中存在的总的项目数，列表框的所有项都存放在 L
45、ist 数组中，数组的下标从 0 开始。题目中程序开始运行时，ListCount 的值为3，因此单击命令按钮时，执行的语句为：List1List(3)=“New Item”，加入到所有项的后面。24.设窗体上有 1 个垂直滚动条，已经通过属性窗口把它的 Max 属性设置为 1，Min 属性设置为 100。下面叙述中正确的是( )。（分数：2.00）A.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就减少B.由于滚动条的 Max 值小于 Min 值，程序运行时滚动条的长度会缩为一点，滚动块无法移动C.程序运行时，若使滚动块向左移动，滚动条的 Value 属性值就增加 D.由于滚动条
46、的 Max 属性值小于 Min 属性值，程序会出错解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。其 Max 属性用于设置或返回滚动条所能表示的最大值，Min 属性用于设置或返回滚动条所能表示的最小值。默认情况下，Max 的值大于 Min 的值，即当滚动块向右移动时，其 Value 属性值增加。如果希望滚动条显示的信息从较大数值向较小数值变化，可将 Min 设置成大于 Max 的值，此时当滚动块向左移动时，其 Value 属性值增加。25.设有下列语句： x=5 Ifx0 Then y=1 Y=5 程序运行后，则下列叙述中正确的是( )。（分数：2.00）A.变量
47、 y 的值是 1B.变量 y 的值是 5 C.变量 x 的值是 5，变量 y 的值是 1D.变量 y 的值不能确定解析：解析：本题考查选择语句。选择语句形式一般分为两种，如果分支语句 If 和 Then 在同一行，不需要写上 End If 语句，否则必须加上 Endlf 语句。题目中 x 的初值为 5，大于 0，因此执行 if 语句，y 值为 1；接下来执行赋值语句 y=5，因此 y 值变为 5。26.下面的程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim a(1 To 6)As Integer Dim min1，i，j，n，t，k a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7 n=6 For i=1 To n-1 min1=i 、 Forj=i+1 To n Ifa(j)A.9 8 7 6 3 2B.2 3 6 7 8 9 C.9 8 7 6 3D.2 3 6 7 8解析：解析：本题考查循环程序的分析。程序主要包括两条循环语句，一条为两层循环的嵌套语句，内层循环找到当前 i 到 n 之间的最小元素的下标，退出内循环则把最小元素放到 a(i
