1、国家二级 VB机试（选择题）模拟试卷 209及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.数据结构主要研究的是数据的逻辑结构、数据的运算和( )。（分数：2.00）A.数据的方法B.数据的存储结构C.数据的对象D.数据的逻辑存储2.一棵二叉树的前序遍历结果是 ABCEDF，中序遍历结果是 CBAEDF，则其后序遍历的结果是( )。（分数：2.00）A.DBACEFB.CBEFDAC.FDAEBCD.DFABEC3.在数据处理中，其处理的最小单位是( )。（分数：2.00）A.数据B.数据项C.数据结构D.数据元素4.在数据库系统的内部结构体
2、系中，索引属于( )。（分数：2.00）A.模式B.内模式C.外模式D.概念模式5.以下( )不属于对象的基本特征。（分数：2.00）A.继承性B.封装性C.分类性D.多态性6.数据库系统的核心是( )。（分数：2.00）A.数据模型B.软件开发C.数据库设计D.数据库管理系统7.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做( )。（分数：2.00）A.软件矛盾B.软件危机C.软件藕合D.软件产生8.关系模型允许定义 3类数据约束，下列不属于数据约束的是( )。（分数：2.00）A.实体完整性约束B.参照完整性约束C.属性完整性约束D.用户自定义的完整性约束9.关系表中的每
3、一行记录称为一个( )。（分数：2.00）A.字段B.元组C.属性D.关键码10.在数据库管理技术的发展中，数据独立性最高的是( )。（分数：2.00）A.人工管理B.文件系统C.数据库系统D.数据模型11.设 a=2，b=3，c=4，d=5，下列表达式的值是( )。 32*b Or a=c And ba+c（分数：2.00）A.1B.TrueC.FalseD.-112.下列可以激活属性窗口的操作是( )。（分数：2.00）A.用鼠标双击窗体的任何部位B.按 Ctrl+F4键C.执行“工程”菜单中的“属性窗口”命令D.按 F4键13.VB的数值型数据分为( )两种。（分数：2.00）A.整数和
4、长整数B.整数和浮点数C.单精度浮点数和双精度浮点数D.整数和货币数据类型14.设有变量声明为“Dim aDate As Date”，则能为变量 aDate正确赋值的表达方式是( )。（分数：2.00）A.aDate=#82008#B.aDate=#“882008“#C.aDate=Date(“882008“)D.aDate=Format(“mdyy“，“882008“)15.从键盘上输入一个浮点数 asingle，利用字符串函数对该数进行处理后，如果输出的内容不是“非浮点数”，则对程序输出的内容分析正确的是( )。 asingle=InputBox(“请输入一个浮点数:“) str1$=St
5、r$(asingle)：p=InStr(str1$，“) If p0 Then Print Mid$(strl$，p) Else Print“非浮点数“ End If（分数：2.00）A.输出 asingle的字符串形式B.输出数据 asingle的整数部分C.输出数据 asingle的小数点及小数点后面的数字D.只去掉数据中的小数点，保留所有数字输出16.表达式 Abs(-5)+Len(“ABCDE“)的值是( )。（分数：2.00）A.5ABCDEB.-5ABCDEC.10D.017.当一个工程含有多个窗体时，其中启动窗体是( )。（分数：2.00）A.启动 Visual Basic时建立
6、的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体18.有下列程序，运行后的结果为( )。 X=24：Y=3：Z=5 Print“A(“；X+Y*Z；“)”（分数：2.00）A.A(17)B.A(174)C.A(18)D.A(24+3*5)19.下面不能在信息框中输出“Visual Basic”的是( )。（分数：2.00）A.x=MsgBox(“Visual Basi“)B.MsgBox(“Visual Basic“)C.MsgBox“Visual Basic“D.Call MsgBOX “Visual Basic“20.如果一个直线控件在窗体上呈现为一条垂
7、直线，则可以确定的是( )。（分数：2.00）A.它的 YI、Y2 属性的值相等B.它的 X1、X2 属性的值相等C.它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等D.它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等21.( )控件可以使图形根据控件大小而改变大小。（分数：2.00）A.图片框B.标签C.图像框D.框架22.要想不使用 Shift或 Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect属性设置为( )。（分数：2.00）A.0B.1C.2D.其他23.以下( )操作不能触发滚动条 Change事件。（分数：2.00）A.拖动滚
8、动块B.单击两端箭头C.单击滚动块D.单击箭头与滚动块之间的滚动条24.语句 Print Format(Int(123456789*100+05)100，“0000，000“)的输出结果是( )。（分数：2.00）A.12，34568B.12，34，5C.12，345D.12，3456825.假定有如下的 Sub过程： Sub S(x As Single，y As Single) t=x：x=ty y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single，Dim b As Sin
9、gle a=5：b=4：S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为( )。（分数：2.00）A.5 4B.1 1C.125 4D.125 126.下列程序执行后，变量 x的值为( )。 Dim a，b，c，d As Single Dim x As Single a=10：b=30：c=400 If ba TIlen d=a：a=b：b=d End If Ifbc Then x=b Else lf ac Then x=c Else x=a End If（分数：2.00）A.10B.30C.400D.43027.窗体上有名称为 Command1的命令按钮和
10、名称为 Text1的文本框( )。 Private Sub Command1_Click() Text1Text=“程序设计“：Text1SetFocus End Sub Private Sub Text1_GotFocus() Text1Text=“等级考试“ End Sub 运行以上程序，单击命令按钮后( )。（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上28.下列程序代码段中，在单击命令按钮调用 SelMid 函数
11、时，其运行结果为( )。 Private Function SelMid(aStr As String)As String Dim temp As String，sLen As Integer temp=“：sLen=Len(aStr) i=1 Do While i=sLen2 temp=temp+Mid(aStr，i，1)+Mid(aStr，sLen -i+1，1) i=i+1 Loop SelMid=temp End Function Private Sub Command1_Slick() Dim Sir As String Str=“abcdef“：Print SelMid(Str)
12、End Sub（分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc29.设有一个有 10个元素的数组，下列程序将该数组的第 1个元素与第 10个元素交换，第 2个元素与第9个元素交换，第 5个元素与第 6个元素交换，在横线处应填写( )。 Private Sub Command1_Click() Dim a(1 To 10)As Integer Dim i As Integer，Dim p As Integer Dim t As Integer，Dim j As Integer For i=1 To 10 a(i)=i Next i Forj=1 To 5 t=a
13、0) Nextj For i=1 To 10 Print a(i) Next i End Sub（分数：2.00）A.a(j)=a(11-j) a(11-j)=tB.a(11-j)=a(j) a(j)=tC.a(j)=a(11-j) a(i)=tD.a(11-j)=t a(j)=a(11-j)30.下面正确使用动态数组的是( )。（分数：2.00）A.Dim art1() As Integer ReDim arr1(3，5)B.Dim arr10 As Integer ReDim arr1(50)As StringC.Dim arr1() ReDim arr1(50)As IntegerD.D
14、im arr1(50)As Integer ReDim arr1(20)31.已知数组 Dim a(1 To 10)As Integer，则下面正确调用 GetValue函数的是( )。 Private Function GetValue(a()As Integer) As Integer For i=1 To 10 GetValue=GetValue+a(i) Next i End Function（分数：2.00）A.S=GetValue(a(1 To 10)B.S=GetValue(a)C.S=GetValue(a(10)D.S=GetValue a32.单击一次命令按钮，下列程序代码的
15、执行结果为( )。 Private Sub Command1 Slick() Dim a As Integer，b As Intege，c As Integer a=2：b=3：c=4 Print P2(c，b，a) End Sub PrivateFunction P1(x As Integer，y As Integer， z As Integer) P1=2*x+y+3*z End Function Private Function P2(x AS Integer，y As Integer， z As Integer) P2=P1(z，x，y)+x End Function（分数：2.00）
16、A.21B.19C.17D.3433.在窗体中有一个名为 Command1的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为( )。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10：m=m10 End Sub Private Sub Command1_Click()Dim x As Integer，y As Integer X=12：y=34 Call Procl(x，y) Printx；y End Sub（分数：2.00）A.2 3B.2 34C.12 3D.12 3434.设有如下事件过程： Pri
17、vate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) IfButton=2 Then PopupMenu popMenu End If End Sub 则以下描述中错误的是( )。（分数：2.00）A.该过程的功能是弹出一个菜单B.popMenu是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.Button=2表示按下的是鼠标左键35.以下叙述中正确的是( )。（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当
18、代码窗口为当前活动窗口时，才能打开菜单编辑器C.只有当窗体设计窗口为当前活动窗体时，才能打开菜单编辑器D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器36.窗体上有一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，要求程序运行时，单击命令按钮(如图所示)，就可以把文本框中的内容写到文件 Outtxt 中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是( )。 （分数：2.00）A.Private Sub Command1_Click() Open“Outtxt“For Input As #1 Print #1Text1Text
19、 Close #1 End SubB.Private Sub Command1_Click() Open“Outtxt“For Output As #1 Print #1Text1Text Close #1 End SubC.Private Sub Command1_Click() Open“Outtxt“For Append As #1 Print #1，Text1Text Close #1 End SubD.Private Sub Command1_Click() Open“Outtxt“ForRandom As #1 Print #1Text1Text Close #1 End Sub3
20、7.假设用复制、粘贴的方法建立了一个命令按钮数组 Command1，以下对该数组的说法错误的是( )。（分数：2.00）A.命令按钮的所有 Caption属性都是 Command1B.在代码中访问任意一个命令按钮只需使用名称 Command1C.命令按钮的大小都相同D.命令按钮共享相同的事件过程38.下面关于多重窗体的叙述中，正确的是( )。（分数：2.00）A.作为启动对象的 Main子过程只能放在窗体模块内B.如果启动对象是 Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体C.没有启动窗体，程序不能执行D.以上都不对39.设在工程中有一个
21、标准模块，并定义了如下类型： Type Stutype ino As Integer strname As String*20 strsex As String*2 smark As Single End Type 在窗体上画一个名为 Command1的命令按钮，要求当执行事件过程 Command1_Click时，在 C盘根目录下的随机文件 Studentdat 中写入一条记录。下列能够完成该操作的是( )。（分数：2.00）A.Sub Command1_Click() Dim student As Studtype Dim record_no As Integer record_no=1 W
22、ith student ino=12：strname=“smith“： strsex=“男“：smark=89 End With Open“c：Studentdat“For Input As #1 Len =Len(Student) Put #1，record_no，Student Close #1 End SubB.Sub CommandI_Click() Dim Student As Stutype Dim Record_no As Integer Record no=1 With Student Ano=12：strname=“smith“ strsex=“男“：smark=89 End
23、With Open“c：studentdat“ForRandomAs #1 Len=Len(Student) Put #1，Record no，Student Close #1 End SubC.Private Sub Command1_Click() Dim Student As Smtype Dim Record_no As Integer Record_no=1 With Student ino=12：strname=“smith“ strsex=“男“：smark=89 EndWith Open“c：studentdat“For Random As 1 Len=Len(Student)
24、 Write #1，Record_no，Student Close #1 End SubD.Sub Command1_Click() Dim Student As Stutype Dim Record_no As Integer Record no=1 With Student ino=12：strname=“smith“ strsex=“男“：smark=89 End With Open“c：studentdat“For Output AS #1 Len=Len(Student) Put #1，Record_no，Student Close #1 End Sub40.为计算 1+2+2 2
25、+2 3 +2 4 +2 10 的值，并把结果显示在文本框 Text1中，若编写如下事件过程： Privme Sub CommandL_Click() Dim ao0，b，i s=1：a=2 For i=2 To 10 a=a*2：b=b+a Next i Text1Text=b End Sub 执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是( )。（分数：2.00）A.把 b=1改为 b=0B.把 For k=2 To 10改为 For i=1 To 10C.交换语句 b=b+a和 a=a*2的顺序D.同时进行E.B)国家二级 VB机试（选择题）模拟试卷 209答案解析(
26、总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.数据结构主要研究的是数据的逻辑结构、数据的运算和( )。（分数：2.00）A.数据的方法B.数据的存储结构 C.数据的对象D.数据的逻辑存储解析：解析：数据结构是研究数据元素及其之间的相互关系和数据运算的一门学科，它包含 3个方面的内容，即数据的逻辑结构、存储结构和数据的运算。2.一棵二叉树的前序遍历结果是 ABCEDF，中序遍历结果是 CBAEDF，则其后序遍历的结果是( )。（分数：2.00）A.DBACEFB.CBEFDA C.FDAEBCD.DFABEC解析：解析：由于该二叉树的前序遍历结果是 AB
27、CEDF，显然 A结点为根结点，所以后序遍历时 A结点是最后遍历的，其后序遍历的结果为 CBEFDA。3.在数据处理中，其处理的最小单位是( )。（分数：2.00）A.数据B.数据项 C.数据结构D.数据元素解析：解析：数据元素是由多个数据项组成，数据是能够被计算机识别、存储和加工处理的信息载体，数据处理的最小单位是数据项。4.在数据库系统的内部结构体系中，索引属于( )。（分数：2.00）A.模式B.内模式 C.外模式D.概念模式解析：解析：内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，如数据存储的文件结构、索引、集簇及 hash等存取方式与存取路径，内模式的物理性主要体现在
28、操作系统及文件级上，它还未深入到设备级上(如磁盘及磁盘操作)。5.以下( )不属于对象的基本特征。（分数：2.00）A.继承性 B.封装性C.分类性D.多态性解析：解析：对象具有特征为：标识惟一性，指对象是可区分的；分类性，指可以将具有相同属性和操作的对象抽象成类；多态性，指同一个操作可以是不同对象的行为； 封装性，从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法；模块独立性好。对象是面向对象的软件的基本模块，对象内部各种元素彼此结合得很紧密，内聚性强。6.数据库系统的核心是( )。（分数：2.00）A.数据模型B.软件开发C.数据库设计D.数据库管理系统 解
29、析：解析：数据库管理系统 DBMS是数据库系统的核心。DBMS 是负责数据库的建立、使用和维护的软件。DBMS建立在操作系统之上，实施对数据库的统一管理和控制。用户使用的各种数据库命令以及应用程序的执行，最终都必须通过 DBMS。另外，DBMS 还承担着数据库的安全保护工作，按照 DBA所规定的要求，保证数据库的完整性和安全性。7.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做( )。（分数：2.00）A.软件矛盾B.软件危机 C.软件藕合D.软件产生解析：解析：随着计算机软件规模的扩大，软件本身的复杂性不断增加，研制周期显著变长，正确性难以保证，软件开发费用上涨，生产效率急
30、剧下降，从而出现了人们难以控制软件发展的局面，即所谓的“软件危机”。8.关系模型允许定义 3类数据约束，下列不属于数据约束的是( )。（分数：2.00）A.实体完整性约束B.参照完整性约束C.属性完整性约束 D.用户自定义的完整性约束解析：解析：关系模型允许 3类数据约束，它们是： 实体完整性约束：该约束要求关系的主键中属性值不能为空值，这是数据库完整性的最基本要求； 参照完整性约束：该约束是关系之间相关联的基本约束，它不允许关系引用不存在的元组：即在关系中的外键要么是所关联关系中实际存在的元组，要么就为空值； 用户定义的完整性约束：用户定义的完整性就是针对某一具体关系数据库的约束条件，它反映
31、某一具体应用所涉及的数据必须满足的语义要求。9.关系表中的每一行记录称为一个( )。（分数：2.00）A.字段B.元组 C.属性D.关键码解析：解析：在关系表中，每一列称为一个属性，对应表中的一个字段；每一行称为一个元组，对应表中的一条记录。10.在数据库管理技术的发展中，数据独立性最高的是( )。（分数：2.00）A.人工管理B.文件系统C.数据库系统 D.数据模型解析：解析：在人工管理阶段，数据无法共享，冗余度大，不独立，完全依赖程序；在文件系统阶段，数据共享性差：在数据库系统阶段，共享性好，独立性高。11.设 a=2，b=3，c=4，d=5，下列表达式的值是( )。 32*b Or a=
32、c And ba+c（分数：2.00）A.1B.True C.FalseD.-1解析：解析：一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：(1)首先进行函数运算；(2)接着进行算术运算，其次序为：算术运算符，幂运算符()优先级最高，其次是取负运算(-)、乘(*)、浮点除()、整除()、取模(Mod)、加(+)、减(-)、字符串连接符(&)；(3)然后进行关系运算(=、=、=)；(4)最后进行逻辑运算(Not、And、or、Xor、Eqv、Imp) 本题先计算“2*b=6、a+c=5”，然后计算“32*b=False”、“a=c=False”、“bc=True”、“b
33、a+c=True”，那么表达式转化为“False Or FalseAnd True Or True”，所以最后结果为“True”。12.下列可以激活属性窗口的操作是( )。（分数：2.00）A.用鼠标双击窗体的任何部位B.按 Ctrl+F4键C.执行“工程”菜单中的“属性窗口”命令D.按 F4键 解析：解析：本题考查属性窗口的打开。属性窗口在设计阶段可用于改变窗体或控件的某些属性。如果VB集成环境中属性窗口没有显示，最常见的方法是利用 F4键打开，或者使用“视图”菜单中的“属性窗口”命令打开，还可以使用“标准”格式工具栏上的“属性窗口”命令打开。13.VB的数值型数据分为( )两种。（分数：2
34、.00）A.整数和长整数B.整数和浮点数 C.单精度浮点数和双精度浮点数D.整数和货币数据类型解析：解析：本题考查数值型数据。VB 中提供的数值类型包括整数、浮点数、货币类型和字节型。一般来讲货币类型为定点浮点数或者整数，而字节型为整数。14.设有变量声明为“Dim aDate As Date”，则能为变量 aDate正确赋值的表达方式是( )。（分数：2.00）A.aDate=#82008# B.aDate=#“882008“#C.aDate=Date(“882008“)D.aDate=Format(“mdyy“，“882008“)解析：解析：本题考查日期型数据。一般日期型数据可以是任何可以
35、表示的日期，放在一对“#”号中，或者可以用数字序列表示日期。注意，如“882008“”为字符串，不表示日期。函数 Date返回当前日期，函数的参数为空。Format 函数的第一个参数为日期，第二个参数为格式串。15.从键盘上输入一个浮点数 asingle，利用字符串函数对该数进行处理后，如果输出的内容不是“非浮点数”，则对程序输出的内容分析正确的是( )。 asingle=InputBox(“请输入一个浮点数:“) str1$=Str$(asingle)：p=InStr(str1$，“) If p0 Then Print Mid$(strl$，p) Else Print“非浮点数“ End I
36、f（分数：2.00）A.输出 asingle的字符串形式B.输出数据 asingle的整数部分C.输出数据 asingle的小数点及小数点后面的数字 D.只去掉数据中的小数点，保留所有数字输出解析：解析：本题考查字符串函数。题目中用到了 Instr()函数，字符串匹配函数 Instr主要用于查找字符串 2在字符串 1中第一次出现的位置，若未找到返回 O，因此 Instr(str1，”)用于查找字符串应Strl中为“的位置；Str(asingle)函数是把数字转化为字符串；Mid(strl，p)用于从 Strl中取出从p开始所有的字符。16.表达式 Abs(-5)+Len(“ABCDE“)的值是
37、( )。（分数：2.00）A.5ABCDEB.-5ABCDEC.10 D.0解析：解析：本题考查数学函数和字符串函数。数学函数 Abs(一 5)用于求一 5的绝对值，而 Len()函数则用于计算字符串中包含的字符个数。17.当一个工程含有多个窗体时，其中启动窗体是( )。（分数：2.00）A.启动 Visual Basic时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中指定的窗体 解析：解析：VB 规定，对于多窗体程序，必须在“工程属性”对话框中指定其中一个窗体为启动窗体。如果未指定，那么就默认设计时的第一个窗体为启动窗体，这个默认的启动窗体就是“工程属性”对话
38、框中的默认窗体。18.有下列程序，运行后的结果为( )。 X=24：Y=3：Z=5 Print“A(“；X+Y*Z；“)”（分数：2.00）A.A(17)B.A(174) C.A(18)D.A(24+3*5)解析：解析：本题考查 Print方法的输出。使用 Print方法可以在窗体或图片框上输出文本，方法的参数为输出的内容，各个输出项之间可以使用逗号或分号隔开，如果用“，”隔开，则表示输出项分区输出，否则表示连续输出。因此题目中的输出项”A(”；X+Y*Z：”)”之间用分号分隔是连续输出。19.下面不能在信息框中输出“Visual Basic”的是( )。（分数：2.00）A.x=MsgBox
39、(“Visual Basi“)B.MsgBox(“Visual Basic“)C.MsgBox“Visual Basic“ D.Call MsgBOX “Visual Basic“解析：解析：MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 Integer类型值，当其作为函数使用时必须将参数放在括号内部，而返回值可以赋值给一个变量，也可以单独使用此函数而不将其返回值赋值给变量；MsgBox 过程也用于显示提示信息，作为过程必须使用 Call关键字来进行调用，其参数不能加括号。20.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是( )。（分数：2.00）A.它
40、的 YI、Y2 属性的值相等B.它的 X1、X2 属性的值相等 C.它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等D.它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等解析：解析：Line 控件有四个属性分别为 X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即 X1=X2。21.( )控件可以使图形根据控件大小而改变大小。（分数：2.00）A.图片框B.标签C.图像框 D.框架解析：解析：本题考查常见控件的基本属性。图片框的AutoSize 属性设定图片框是否按装入图形的大小来调整大小：图像框的 Stretch属
41、性设定是否调整图形的大小以适用图像框控件。标签一般用来处理文本，而框架主要用来作为其他控件的容器。22.要想不使用 Shift或 Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect属性设置为( )。（分数：2.00）A.0B.1 C.2D.其他解析：解析：本题考查列表框的 MultiSelect属性。默认状况下列表框仅可以选择一项，通过设置MultiSelect属性值可改变多选设置，该属性有 3种值：0 表示禁止多选：1 表示简单多选，在选项上单击可以选定多项；2 为借助 Ctrl和 Shift键进行的多项选择。23.以下( )操作不能触发滚动条 Change事
42、件。（分数：2.00）A.拖动滚动块B.单击两端箭头C.单击滚动块 D.单击箭头与滚动块之间的滚动条解析：解析：本题考查滚动条。单击滚动条的箭头或者滚动条的滑块位置改变(也就是更改其 Value属性)都可以触发 Change事件，而拖动滑块不但会触发 Change事件还会触发 Scroll事件。24.语句 Print Format(Int(123456789*100+05)100，“0000，000“)的输出结果是( )。（分数：2.00）A.12，34568B.12，34，5C.12，345D.12，34568 解析：解析：本题考查格式化函数 Format，格式化函数 Format的作用是使
43、第一个参数的数字按照第二个参数的格式来输出。格式为：0000，000，表示小数点前面有多少位全部输出，且每隔 3位输出一个逗号，小数点后面保存 2位。25.假定有如下的 Sub过程： Sub S(x As Single，y As Single) t=x：x=ty y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single，Dim b As Single a=5：b=4：S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为( )。（分数：2.00）A.
44、5 4B.1 1C.125 4D.125 1 解析：解析：本题考察过程调用知识。在命令按钮单击事件过程中，初始时 a=5、b=4；在 S过程初始时，x=5、y=4， S 过程计算后，x=125、y=1，所以 S过程返回后 a=125、b=1。26.下列程序执行后，变量 x的值为( )。 Dim a，b，c，d As Single Dim x As Single a=10：b=30：c=400 If ba TIlen d=a：a=b：b=d End If Ifbc Then x=b Else lf ac Then x=c Else x=a End If（分数：2.00）A.10B.30 C.40
45、0D.430解析：解析：本题考查选择语句的程序分析。If 语句的执行是 If条件表达式值为 True时执行 If分支，否则执行 ElseIf分支或者结束。本题中首先判断 ba成立，因此 a、b 的值交换；接下来由于 bc不成立，ac也不成立，因此 x的值为 a。27.窗体上有名称为 Command1的命令按钮和名称为 Text1的文本框( )。 Private Sub Command1_Click() Text1Text=“程序设计“：Text1SetFocus End Sub Private Sub Text1_GotFocus() Text1Text=“等级考试“ End Sub 运行以上
46、程序，单击命令按钮后( )。（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上解析：解析：SetFocus 方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过程。28.下列程序代码段中，在单击命令按钮调用 SelMid 函数时，其运行结果为( )。 Private Function SelMid(aStr As String)As String Dim temp As String，sL
47、en As Integer temp=“：sLen=Len(aStr) i=1 Do While i=sLen2 temp=temp+Mid(aStr，i，1)+Mid(aStr，sLen -i+1，1) i=i+1 Loop SelMid=temp End Function Private Sub Command1_Slick() Dim Sir As String Str=“abcdef“：Print SelMid(Str) End Sub（分数：2.00）A.abcdefB.afbecd C.fedcbaD.defabc解析：解析：本题考查函数过程分析。单击命令按钮时，事件过程内部调用
48、SelMid函数。SelMid 函数的功能是，将字符串重组，重组的规则是：从原字符串中前后各取一个字符重新连接起来并存入中间变量temp中(追加到中间变量原有字符的后面)；然后再取原字符串中的前面第 2个和倒数第 2个字符连接起来，再连接到变量 temp中；以此类推，直到将原字符串中的字符全部追加到变量 temp中为止。29.设有一个有 10个元素的数组，下列程序将该数组的第 1个元素与第 10个元素交换，第 2个元素与第9个元素交换，第 5个元素与第 6个元素交换，在横线处应填写( )。 Private Sub Command1_Click() Dim a(1 To 10)As Intege
49、r Dim i As Integer，Dim p As Integer Dim t As Integer，Dim j As Integer For i=1 To 10 a(i)=i Next i Forj=1 To 5 t=a0) Nextj For i=1 To 10 Print a(i) Next i End Sub（分数：2.00）A.a(j)=a(11-j) a(11-j)=t B.a(11-j)=a(j) a(j)=tC.a(j)=a(11-j) a(i)=tD.a(11-j)=t a(j)=a(11-j)解析：解析：本题考查数组中元素的逆置操作。循环次数为数组中元素个数的一半，每一次都要进行下标之和为 11的前后两个元素交换。30.下面正确使用动态数组的是( )。（分数：2.00）A.Dim art1() As Integer ReDim arr1(3，5) B.Dim arr10 As Integer ReDim arr1
