1、二级公共基础知识-68 及答案解析(总分：100.00，做题时间：90 分钟)一、B单项选择题/B(总题数：40，分数：100.00)1.数据结构主要研究的是数据的逻辑结构、数据的运算和_。 A.数据的方法 B.数据的存储结构 C.数据的对象 D.数据的逻辑存储（分数：2.50）A.B.C.D.2.一棵二叉树的前序遍历结果是 ABCEDF，中序遍历结果是 CBAEDF，则其后序遍历的结果是_。 A.DBACEF B.CBEFDA C.FDAEBC D.DFABEC（分数：2.50）A.B.C.D.3.在数据处理中，其处理的最小单位是_。 A.数据 B.数据项 C.数据结构 D.数据元素（分数：
2、2.50）A.B.C.D.4.在数据库系统的内部结构体系中，索引属于_。 A.模式 B.内模式 C.外模式 D.概念模式（分数：2.50）A.B.C.D.5.以下_不属于对象的基本特征。 A.继承性 B.封装性 C.分类性 D.多态性（分数：2.50）A.B.C.D.6.数据库系统的核心是_。 A.数据模型 B.软件开发 C.数据库设计 D.数据库管理系统（分数：2.50）A.B.C.D.7.开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称做_。 A.软件矛盾 B.软件危机 C.软件藕合 D.软件产生（分数：2.50）A.B.C.D.8.关系模型允许定义 3 类数据约束，下列不属
3、于数据约束的是_。 A.实体完整性约束 B.参照完整性约束 C.属性完整性约束 D.用户自定义的完整性约束（分数：2.50）A.B.C.D.9.关系表中的每一行记录称为一个_。 A.字段 B.元组 C.属性 D.关键码（分数：2.50）A.B.C.D.10.在数据库管理技术的发展中，数据独立性最高的是_。 A.人工管理 B.文件系统 C.数据库系统 D.数据模型（分数：2.50）A.B.C.D.11.设 a=2，b=3，c=4，d=5，下列表达式的值是_。32*b Or a=c And bc Or ba+c A.1 B.True C.False D.-1（分数：2.50）A.B.C.D.12.
4、下列可以激活属性窗口的操作是_。 A.用鼠标双击窗体的任何部位 B.按 Ctrl+F4 键 C.执行“工程”菜单中的“属性窗口”命令 D.按 F4 键（分数：2.50）A.B.C.D.13.VB 的数值型数据分为_两种。 A.整数和长整数 B.整数和浮点数 C.单精度浮点数和双精度浮点数 D.整数和货币数据类型（分数：2.50）A.B.C.D.14.设有变量声明为“Dim aDate As Date”，则能为变量 aDate 正确赋值的表达方式是_。 A.aDate=#8/2008# B.aDate=#“8/8/2008“# C.aDate=Date(“8/8/2008“) D.aDate=F
5、ormat(“m/d/yy“,“8/8/2008“)（分数：2.50）A.B.C.D.15.从键盘上输入一个浮点数 asingle，利用字符串函数对该数进行处理后，如果输出的内容不是“非浮点数”，则对程序输出的内容分析正确的是_。asingle=InputBox(“请输入一个浮点数:“)str1$=Str$(asingle):P=InStr(str1$,“.“)If p0 ThenPrint Mid$(str1$, p)ElsePrint “非浮点数“End If A.输出 asingle 的字符串形式 B.输出数据 asingle 的整数部分 C.输出数据 asingle 的小数点及小数点后
6、面的数字 D.只去掉数据中的小数点，保留所有数字输出（分数：2.50）A.B.C.D.16.表达式 Abs(-5)+Len(“ABCDE“)的值是_。 A.5ABCDE B.-5ABCDE C.10 D.0（分数：2.50）A.B.C.D.17.当一个工程含有多个窗体时，其中启动窗体是_。 A.启动 Visual Basic 时建立的窗体 B.第一个添加的窗体 C.最后一个添加的窗体 D.在“工程属性”对话框中指定的窗体（分数：2.50）A.B.C.D.18.有下列程序，运行后的结果为_。X=2.4:Y=3:Z=5Print “A(“;X+Y*Z;“)“ A.A(17) B.A(17.4) C
7、.A(18) D.A(2.4+3*5)（分数：2.50）A.B.C.D.19.下面不能在信息框中输出“Visual Basic”的是_。 A.x=MsgBox(“Visual Basi“) B.MsgBox(“Visual Basic“) C.MsgBox“Visual Basic“ D.Call MsgBox“Visual Basic“（分数：2.50）A.B.C.D.20.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是_。 A.它的 Y1、Y2 属性的值相等 B.它的 X1、X2 属性的值相等 C.它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等 D.它的 X1、X2
8、属性的值分别与 Y1、Y2 属性的值相等（分数：2.50）A.B.C.D.21._控件可以使图形根据控件大小而改变大小。 A.图片框 B.标签 C.图像框 D.框架（分数：2.50）A.B.C.D.22.要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为_。 A.0 B.1 C.2 D.其他（分数：2.50）A.B.C.D.23.以下_操作不能触发滚动条 Change 事件。 A.拖动滚动块 B.单击两端箭头 C.单击滚动块 D.单击箭头与滚动块之间的滚动条（分数：2.50）A.B.C.D.24.语句 Print For
9、mat(Int(12345.6789*100+0.5)/100, “0000,0.00“)的输出结果是_。 A.12,3456.8 B.12,34.5 C.12,3.45 D.12,345.68（分数：2.50）A.B.C.D.25.假定有如下的 Sub 过程：Sub S(x As Single,y As Single)t=xx=t/yy=t Mod YEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Single, Dim b As Singlea=5:b=4S a,bPrint a,bEnd Sub程序运行
10、后，单击命令按钮，输出结果为_。 A.5 4 B.1 1 C.1.25 4 D.1.25 1（分数：2.50）A.B.C.D.26.下列程序执行后，变量 x 的值为_。Dim a,b,c,d As SingleDim x As Singlea=10:b=30:c=400If ba Thend=a:a=b:b=dEnd IfIf bc Thenx=bElseIf ac Thenx=cElsex=aEnd If A.10 B.30 C.400 D.430（分数：2.50）A.B.C.D.27.窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框_。Private Sub Co
11、mmand1_Click()Text1.Text=“程序设计“Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text=“等级考试“End Sub运行以上程序，单击命令按钮后_。 A.文本框中显示的是“程序设计”，且焦点在文本框中 B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上 D.文本框中显示的是“等级考试”，且焦点在命令按钮上（分数：2.50）A.B.C.D.28.下列程序代码段中，在单击命令按钮调用 SelMid 函数时，其运行结果为_。Private Function
12、 SelMid(aStr As String)As StringDim temp As StringDim sLen As Integertemp=“sLen=Len(aStr)i=1Do While i=sLen/2temp=temp+Mid(aStr,i,1)+Mid(aStr,sLen-i+1,1)i=i+1LoopSelMid=tempEnd FunctionPrivate Sub Command1_Click()Dim Str As StringStr=“abcdef“:Print SelMid(Str)End Sub A.abcdef B.afbecd C.fedcba D.def
13、abc（分数：2.50）A.B.C.D.29.设有一个有 10 个元素的数组，下列程序将该数组的第 1 个元素与第 10 个元素交换，第 2 个元素与第9 个元素交换，第 5 个元素与第 6 个元素交换，在横线处应填写_。Private Sub Command1_Click()Dim a(1 To 10)As IntegerDim i As Integer, Dim p As IntegerDim t As Integer, Dim j As IntegerFor i=1 To 10a(i)=iNext iFor j=1 To 5t=a(j)_Next jFor i=1 To 10Print
14、a(i)Next iEnd Sub A.a(j)=a(11-j) a(11-j)=t B.a(11-j)=a(j) a(j)=t C.a(j)=a(11-j) a(j)=t D.a(11-j)=t a(j)=a(11-j)（分数：2.50）A.B.C.D.30.下面正确使用动态数组的是_。 A.Dim arr1()As Integer . ReDim arr1(3,5) B.Dim arr1()As Integer . ReDim arr1(50)As String C.Dim arr1() . ReDim arr1(50)As Integer D.Dim arr1(50)As integer
15、 . ReDim arr1(20)（分数：2.50）A.B.C.D.31.已知数组 Dim a(1 To 10)As Integer，则下面正确调用 GetValue 函数的是_。Private Function GetValue(a() As Integer)As IntegerFor i=1 To 10GetValue=GetValue+a(i)Next iEnd Function A.S=GetValue(a(1 To 10) B.S=GetValue(a) C.S=GetValue(a(10) D.S=GetValue a（分数：2.50）A.B.C.D.32.单击一次命令按钮，下列程
16、序代码的执行结果为_。Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integera=2:b=3:c=4Print P2(c,b,a)End SubPrivate Function P1(x As Integer, y As Integer, z As Integer)P1=2*x+y+3*zEnd FunctionPrivate Function P2(x As Integer, y As Integer, z As Integer)P2=P1(z,x,y)+xEnd Function A.21 B.19 C
17、.17 D.34（分数：2.50）A.B.C.D.33.在窗体中有一个名为 Command1 的命令按钮，并编写有以下代码。程序执行时，单击命令按钮，输出的结果为_。Public Sub Procl(n As Integer, ByVal m As Integer)n=n Mod 10:m=m/10End SubPrivate Sub Command1_Click()Dim x As Integer, y As Integerx=12:y=34Call Procl(x,y)Print x; yEnd Sub A.2 3 B.2 34 C.12 3 D.12 34（分数：2.50）A.B.C.D
18、.34.设有如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenPopupMenu popMenuEnd IfEnd Sub则以下描述中错误的是_。 A.该过程的功能是弹出一个菜单 B.popMenu 是在菜单编辑器中定义的弹出式菜单的名称 C.参数 X、Y 指明鼠标的当前位置 D.Button=2 表示按下的是鼠标左键（分数：2.50）A.B.C.D.35.以下叙述中正确的是_。 A.任何时候都可以使用标准工具栏的“菜单编辑器”
19、按钮打开菜单编辑器 B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器 C.只有当窗体设计窗口为当前活动窗体时，才能打开菜单编辑器 D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器（分数：2.50）A.B.C.D.36.窗体上有一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，要求程序运行时，单击命令按钮(如下图所示)，就可以把文本框中的内容写到文件 Out.txt 中，每次写入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是_。（分数：2.50）A.B.C.D.37.假设用复制、粘贴的方法建立了一个命令按钮数组 Command
20、1，以下对该数组的说法错误的是_。 A.命令按钮的所有 Caption 属性都是 Command1 B.在代码中访问任意一个命令按钮只需使用名称 Command1 C.命令按钮的大小都相同 D.命令按钮共享相同的事件过程（分数：2.50）A.B.C.D.38.下面关于多重窗体的叙述中，正确的是_。 A.作为启动对象的 Main 子过程只能放在窗体模块内 B.如果启动对象是 Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体 C.没有启动窗体，程序不能执行 D.以上都不对（分数：2.50）A.B.C.D.39.设在工程中有一个标准模块，并定义了
21、如下类型：Type Stutypeino As Integerstrname As String*20strsexAs String*2smark As SingleEnd Type在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程 Command1_Click 时，在 C 盘根目录下的随机文件 Student.dat 中写入一条记录。下列能够完成该操作的是_。 A.Sub Command1_Click() Dim student As Studtype Dim record_no As Integer record_no=1 With student .ino=12:.st
22、rname=“smith“: .strsex=“男“:.smark=89 End With Open “c:/Student.dat“ For Input As #1 Len=Len(Student) Put #1, record_no, Student Close #1 End Sub B.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 Ope
23、n “c:/Student.dat“ For Random As #1 Len=Len(Student) Put #1, Record_no, Student Close #1 End Sub C.Private 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:/student.dat“ For Random As 1 Len=L
24、en(Student) Write #1, Record_no, Student Close #1 End Sub D.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:/student.dat “For Output As #1 Len=Len(Student) Put #1, Record_no, Student Close #
25、1 End Sub（分数：2.50）A.B.C.D.40.为计算 1+2+22+23+24+210。的值，并把结果显示在文本框 Text1 中，若编写如下事件过程：Private Sub Command1_Click()Dim a%, b%, i%s=1a=2For i=2 To 10a=a*2b=b+aNext iText1.Text=bEnd Sub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是_。 A.把 b=1 改为 b=0 B.把 For k=2 To 10 改为 For i=1 To 10 C.交换语句 b=b+a 和 a=a*2 的顺序 D.同时进行 B、C
26、两种修改（分数：2.50）A.B.C.D.二级公共基础知识-68 答案解析(总分：100.00，做题时间：90 分钟)一、B单项选择题/B(总题数：40，分数：100.00)1.数据结构主要研究的是数据的逻辑结构、数据的运算和_。 A.数据的方法 B.数据的存储结构 C.数据的对象 D.数据的逻辑存储（分数：2.50）A.B. C.D.解析：解析 数据结构是研究数据元素及其之间的相互关系和数据运算的一门学科，它包含 3 个方面的内容，即数据的逻辑结构、存储结构和数据的运算。2.一棵二叉树的前序遍历结果是 ABCEDF，中序遍历结果是 CBAEDF，则其后序遍历的结果是_。 A.DBACEF B
27、.CBEFDA C.FDAEBC D.DFABEC（分数：2.50）A.B. C.D.解析：解析 由于该二叉树的前序遍历结果是 ABCEDF，显然 A 结点为根结点，所以后序遍历时 A 结点是最后遍历的，其后序遍历的结果为 CBEFDA。3.在数据处理中，其处理的最小单位是_。 A.数据 B.数据项 C.数据结构 D.数据元素（分数：2.50）A.B. C.D.解析：解析 数据元素是由多个数据项组成，数据是能够被计算机识别、存储和加工处理的信息载体，数据处理的最小单位是数据项。4.在数据库系统的内部结构体系中，索引属于_。 A.模式 B.内模式 C.外模式 D.概念模式（分数：2.50）A.B
28、. C.D.解析：解析 内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法，如数据存储的文件结构、索引、集簇及 hash 等存取方式与存取路径，内模式的物理性主要体现在操作系统及文件级上，它还未深入到设备级上(如磁盘及磁盘操作)。5.以下_不属于对象的基本特征。 A.继承性 B.封装性 C.分类性 D.多态性（分数：2.50）A. B.C.D.解析：解析 对象具有特征为：标识惟一性。指对象是可区分的；分类性。指可以将具有相同属性和操作的对象抽象成类；多态性。指同一个操作可以是不同对象的行为；封装性。从外面看只能看到对象的外部特征，而不知道也无需知道数据的具体结构以及实现操作的算法；模
29、块独立性好。对象是面向对象的软件的基本模块，对象内部各种元素彼此结合得很紧密，内聚性强。6.数据库系统的核心是_。 A.数据模型 B.软件开发 C.数据库设计 D.数据库管理系统（分数：2.50）A.B.C.D. 解析：解析 数据库管理系统 DBMS 是数据库系统的核心。DBMS 是负责数据库的建立、使用和维护的软件。DBMS 建立在操作系统之上，实施对数据库的统一管理和控制。用户使用的各种数据库命令以及应用程序的执行，最终都必须通过 DBMS。另外，DBMS 还承担着数据库的安全保护工作，按照 DBA 所规定的要求，保证数据库的完整性和安全性。7.开发软件所需高成本和产品的低质量之间有着尖锐
30、的矛盾，这种现象称做_。 A.软件矛盾 B.软件危机 C.软件藕合 D.软件产生（分数：2.50）A.B. C.D.解析：解析 随着计算机软件规模的扩大，软件本身的复杂性不断增加，研制周期显著变长，正确性难以保证，软件开发费用上涨，生产效率急剧下降，从而出现了入们难以控制软件发展的局面，即所谓的“软件危机”。8.关系模型允许定义 3 类数据约束，下列不属于数据约束的是_。 A.实体完整性约束 B.参照完整性约束 C.属性完整性约束 D.用户自定义的完整性约束（分数：2.50）A.B.C. D.解析：解析 关系模型允许 3 类数据约束，它们是： 实体完整性约束：该约束要求关系的主键中属性值不能为
31、空值，这是数据库完整性的最基本要求； 参照完整性约束：该约束是关系之间相关联的基本约束，它不允许关系引用不存在的元组：即在关系中的外键要么是所关联关系中实际存在的元组，要么就为空值； 用户定义的完整性约束：用户定义的完整性就是针对某一具体关系数据库的约束条件，它反映某一具体应用所涉及的数据必须满足的语义要求。9.关系表中的每一行记录称为一个_。 A.字段 B.元组 C.属性 D.关键码（分数：2.50）A.B. C.D.解析：解析 在关系表中，每一列称为一个属性，对应表中的一个字段；每一行称为一个元组，对应表中的一条记录。10.在数据库管理技术的发展中，数据独立性最高的是_。 A.人工管理 B
32、.文件系统 C.数据库系统 D.数据模型（分数：2.50）A.B.C. D.解析：解析 在人工管理阶段，数据无法共享，冗余度大，不独立，完全依赖程序；在文件系统阶段，数据共享性差；在数据库系统阶段，共享性好，独立性高。11.设 a=2，b=3，c=4，d=5，下列表达式的值是_。32*b Or a=c And bc Or ba+c A.1 B.True C.False D.-1（分数：2.50）A.B.C. D.解析：解析 一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下：(1)首先进行函数运算；(2)接着进行算术运算，其次序为：算术运算符，幂运算符()优先级最高，其次
33、是取负运算(-)、乘(*)、浮点除(/)、整除(/)、取模(Mod)、加(+)、减(-)、字符串连接符(X+Y*Z;“)“ A.A(17) B.A(17.4) C.A(18) D.A(2.4+3*5)（分数：2.50）A.B. C.D.解析：解析 本题考查 Print 方法的输出。使用 Print 方法可以在窗体或图片框上输出文本，方法的参数为输出的内容，各个输出项之间可以使用逗号或分号隔开，如果用“,”隔开，则表示输出项分区输出，否则表示连续输出。因此题目中的输出项“A(“;X+Y*Z;“)”之间用分号分隔是连续输出。19.下面不能在信息框中输出“Visual Basic”的是_。 A.x=
34、MsgBox(“Visual Basi“) B.MsgBox(“Visual Basic“) C.MsgBox“Visual Basic“ D.Call MsgBox“Visual Basic“（分数：2.50）A.B.C. D.解析：解析 MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 Integer 类型值，当其作为函数使用时必须将参数放在括号内部，而返回值可以赋值给一个变量，也可以单独使用此函数而不将其返回值赋值给变量；MsgBox 过程也用于显示提示信息，作为过程必须使用 Call 关键字来进行调用，其参数不能加括号。20.如果一个直线控件在窗体上呈现为一条
35、垂直线，则可以确定的是_。 A.它的 Y1、Y2 属性的值相等 B.它的 X1、X2 属性的值相等 C.它的 X1、Y1 属性的值分别与 X2、Y2 属性的值相等 D.它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等（分数：2.50）A.B. C.D.解析：解析 Line 控件有四个属性分别为 X1、Y1，X2、Y2，分别代表两个端点的横坐标和纵坐标，如果显示为一条纵线，则意味着两个端点的横坐标一致，即 X1=X2。21._控件可以使图形根据控件大小而改变大小。 A.图片框 B.标签 C.图像框 D.框架（分数：2.50）A.B.C. D.解析：解析 本题考查常见控件的基本属性。图片
36、框的 AutoSize 属性设定图片框是否按装入图形的大小来调整大小；图像框的 Stretch 属性设定是否调整图形的大小以适用图像框控件。标签一般用来处理文本，而框架主要用来作为其他控件的容器。22.要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为_。 A.0 B.1 C.2 D.其他（分数：2.50）A.B. C.D.解析：解析 本题考查列表框的 MultiSelect 属性。默认状况下列表框仅可以选择一项，通过设置MultiSelect 可改变多选设置，该属性有 3 种值：0 表示禁止多选；1 表示简单多选，在选
37、项上单击可以选定多项；2 为借助 Ctrl 和 Shift 键进行的多项选择。23.以下_操作不能触发滚动条 Change 事件。 A.拖动滚动块 B.单击两端箭头 C.单击滚动块 D.单击箭头与滚动块之间的滚动条（分数：2.50）A.B.C. D.解析：解析 本题考查滚动条。单击滚动条的箭头或者滚动条的滑块位置改变(也就是更改其 Value 属性)都可以触发 Change 事件，而拖动滑块不但会触发 Change 事件还会触发 Scroll 事件。24.语句 Print Format(Int(12345.6789*100+0.5)/100, “0000,0.00“)的输出结果是_。 A.12
38、,3456.8 B.12,34.5 C.12,3.45 D.12,345.68（分数：2.50）A.B.C.D. 解析：解析 本题考查格式化函数 Format，格式化函数 Format 的作用是使第一个参数的数字按照第二个参数的格式来输出。格式为：0000,0.00，表示小数点前面有多少位全部输出，且每隔 3 位输出一个逗号，小数点后面保存 2 位。25.假定有如下的 Sub 过程：Sub S(x As Single,y As Single)t=xx=t/yy=t Mod YEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Di
39、m a As Single, Dim b As Singlea=5:b=4S a,bPrint a,bEnd Sub程序运行后，单击命令按钮，输出结果为_。 A.5 4 B.1 1 C.1.25 4 D.1.25 1（分数：2.50）A.B.C.D. 解析：解析 本题考察过程调用知识。在命令按钮单击事件过程中，初始时 a=5、b=4；在 S 过程初始时，x=5、y=4，S 过程计算后，x=1.25、y=1，所以 S 过程返回后 a=1.25、b=1。26.下列程序执行后，变量 x 的值为_。Dim a,b,c,d As SingleDim x As Singlea=10:b=30:c=400I
40、f ba Thend=a:a=b:b=dEnd IfIf bc Thenx=bElseIf ac Thenx=cElsex=aEnd If A.10 B.30 C.400 D.430（分数：2.50）A.B. C.D.解析：解析 本题考查选择语句的程序分析。If 语句的执行是 If 条件表达式值为 True 时执行 If 分支，否则执行 ElseIf 分支或者结束。本题中首先判断 ba 成立，因此 a、b 的值交换；接下来由于 bc 不成立，ac 也不成立，因此 x 的值为 a。27.窗体上有名称为 Command1 的命令按钮和名称为 Text1 的文本框_。Private Sub Comm
41、and1_Click()Text1.Text=“程序设计“Text1.SetFocusEnd SubPrivate Sub Text1_GotFocus()Text1.Text=“等级考试“End Sub运行以上程序，单击命令按钮后_。 A.文本框中显示的是“程序设计”，且焦点在文本框中 B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上 D.文本框中显示的是“等级考试”，且焦点在命令按钮上（分数：2.50）A.B. C.D.解析：解析 SetFocus 方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过
42、程。28.下列程序代码段中，在单击命令按钮调用 SelMid 函数时，其运行结果为_。Private Function SelMid(aStr As String)As StringDim temp As StringDim sLen As Integertemp=“sLen=Len(aStr)i=1Do While i=sLen/2temp=temp+Mid(aStr,i,1)+Mid(aStr,sLen-i+1,1)i=i+1LoopSelMid=tempEnd FunctionPrivate Sub Command1_Click()Dim Str As StringStr=“abcdef
43、“:Print SelMid(Str)End Sub A.abcdef B.afbecd C.fedcba D.defabc（分数：2.50）A.B. C.D.解析：解析 本题考查函数过程分析。单击命令按钮时，事件过程内部调用 SelMid 函数。SelMid 函数的功能是，将字符串重组，重组的规则是：从原字符串中前后各取一个字符重新连接起来并存入中间变量temp 中(追加到中间变量原有字符的后面)；然后再取原字符串中的前面第 2 个和倒数第 2 个字符连接起来，再连接到变量 temp 中；以此类推，直到将原字符串中的字符全部追加到变量 temp 中为止。29.设有一个有 10 个元素的数组，
44、下列程序将该数组的第 1 个元素与第 10 个元素交换，第 2 个元素与第9 个元素交换，第 5 个元素与第 6 个元素交换，在横线处应填写_。Private Sub Command1_Click()Dim a(1 To 10)As IntegerDim i As Integer, Dim p As IntegerDim t As Integer, Dim j As IntegerFor i=1 To 10a(i)=iNext iFor j=1 To 5t=a(j)_Next jFor i=1 To 10Print a(i)Next iEnd Sub A.a(j)=a(11-j) a(11-j
45、)=t B.a(11-j)=a(j) a(j)=t C.a(j)=a(11-j) a(j)=t D.a(11-j)=t a(j)=a(11-j)（分数：2.50）A. B.C.D.解析：解析 本题考查数组中元素的逆置操作。循环次数为数组中元素个数的一半，每一次都要进行下标之和为 11 的前后两个元素交换。30.下面正确使用动态数组的是_。 A.Dim arr1()As Integer . ReDim arr1(3,5) B.Dim arr1()As Integer . ReDim arr1(50)As String C.Dim arr1() . ReDim arr1(50)As Integer
46、 D.Dim arr1(50)As integer . ReDim arr1(20)（分数：2.50）A. B.C.D.解析：解析 通常把需要在编译时分配内存区的数组叫做静态数组，而把需要在运行时分配内存区的数组叫做动态数组。定义动态数组通常分两步：首先在窗体层或标准模块中用 Dim、Private 或 Public 声明一个没有下标的数组(括号不能省略)，然后在过程中用 ReDim 语句定义带下标的数组。ReDim 语句只能用于动态数组，它可以改变每一维的大小，但不能改变维数和数组类型。31.已知数组 Dim a(1 To 10)As Integer，则下面正确调用 GetValue 函数的是_。Private Function GetValue(a() As Integer)As IntegerFor i=1 To 10GetValue=GetValue+a(i)Next iEnd Function A.S=GetValue(a(1 To 10) B.S=GetValue(a) C.S=GetValue(a(10) D.S=GetValue a（分数：2.50）A.B. C.D.解析：解析 本题
