1、二级 VISUAL+BASIC-68 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列关于栈叙述正确的是_。（分数：2.50）A.栈顶元素最先能被删除B.栈顶元素最后才能被删除C.栈底元素永远不能被删除D.以上三种说法都不对2.下列叙述中正确的是_。（分数：2.50）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构C.循环链表是非线性结构D.双向链表是非线性结构3.某二叉树共有 7 个结点，其中叶子结点只有 1 个，则陔二叉树的深度为(假设根结点在第 1 层)_。（分数：2.50）A.3B.
2、4C.6D.74.在软件丌发中，需求分析阶段产生的主要文档是_。（分数：2.50）A.软件集成测试计划B.软件详细设计说明书C.用户手册D.软件需求规格说明书5.结构化程序所要求的基本结构不包括_。（分数：2.50）A.顺序结构B.GOTO 跳转C.选择(分支)结构D.重复(循环)结构6.下面描述中错误的是_。（分数：2.50）A.系统总体结构图支持软件系统的详细设计B.软件设计将软件需求转换为软件表示C.数据结构与数据库设计是软件设计的任务之一D.PAD 图是软件详细设计的表示工具7.负责数据库中查询操作的数据库语言是_。（分数：2.50）A.数据定义语言B.数据管理语言C.数据操纵语言D.
3、数据控制语言8.一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是_。（分数：2.50）A.1:联系B.1:m 联系C.m:1 联系D.m:n 联系9.有三个关系 R、S 和 T 如下： （分数：2.50）A.自然连接B交C除D并10.定义无符号整数类为 UInt，下面可以作为类 T 实例化值的是_。（分数：2.50）A.-369B.369C.0.369D.整数集合1,2,3,4,511.在 Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是_。（分数：2.50）A.工程资源管理器窗口B.窗体设计窗口C.属性窗口D.代码窗口12.假定编写了如下
4、4 个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是_。（分数：2.50）A.LoadB.ClickC.LostFocusD.KeyPress13.为了使标签具有“透明”的显示效果，需要设置的属性是_。（分数：2.50）A.CaptionB.AlignmentC.BackStyleD.AutoSize14.下面可以产生 2030(含 20 和 30)的随机整数的表达式是_。（分数：2.50）A.Int(Rnd*10+20)B.Int(Rnd*11+20)C.Int(Rnd*20+30)D.Int(Rnd*30+20)15.设窗体上有一个名称为 HSl 的水平滚动条，如果执
5、行了语句： HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min 则_。（分数：2.50）A.滚动块处于最左端B.滚动块处于最右端C.滚动块处于中间位置D.滚动块可能处于任何位置，具体位置取决于 Max、Min 属性的值16.窗体上有一个名称为 Cb1 的组合框，程序运行后，为了输出选中的列表项，应使用的语句是_。（分数：2.50）A.Print Cb1.SelectedB.Print Cb1.List(Cb1.ListIndex)C.Print Cb1,Selected.TextD.Print Cb1.List(ListIndex)17.为了在窗体上建立 2 组单选按钮
6、，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是_。（分数：2.50）A.把这 2 组单选按钮设置为名称不同的 2 个控件数组B.使 2 组单选按钮的 Index 属性分别相同C.使 2 组单选按钮的名称分别不同D.把 2 组单选按钮分别画到 2 个不同的框架中18.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是_。（分数：2.50）A.它的 Y1、Y2 属性的值相等B.它的 X1、X2 属性的值相等C.它的 x1、Y1 属性的值分别与 X2、Y2 属性的值相等D.它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等19.设 a=2，b=3，c=4，d=
7、5，则下面语句的输出是_。 Print 32*b Or a=c And bc Or cd（分数：2.50）A.FalseB.1C.TrueD.-120.窗体 Form1 上有一个名称为 Command1 的命令按钮，以下对应窗体单击事件的事件过程是_。（分数：2.50）A.Private Sub Form1_Click()End SubB.Private Sub Form_Click()End SubC.Private Sub Command1_Click()End SubD.Private Sub Command_Click()End Sub21.默认情况下，下面声明的数组的元素个数是_。
8、Dim a(5,-2 To 2)（分数：2.50）A.20B.24C.25D.3022.设有如下程序段： Dim a(10) For Each x In a Print x; Next x 在上面的程序段中，变量 x 必须是_。（分数：2.50）A.整型变量B.变体型变量C.动态数组D.静态数组23.设有以下函数过程： Private Function Fun(a()As Integer, b As String) As Integer End Function 若已有变量声明： Dim x(5) As Integer, n As Integer, ch As String 则下面正确的过程调
9、用语句是_。（分数：2.50）A.x(0)=Fun(x,“ch“)B.n=Fun(n,ch)C.Call Fun x,“ch“D.n=Fun(x(5),ch)24.假定用下面的语句打开文件： Open “File1.txt“ For Input As #1 则不能正确读文件的语句是_。（分数：2.50）A.Input#1, ch$B.Line Input#1,ch$C.ch$=Input$(5,#1)D.Read#1,ch25.下面程序的执行结果是_。 Private Sub Command1_Click() a=10 For k=1 To 5 Step-1 a=a-k Next k Prin
10、t a;k End Sub（分数：2.50）A.-5 6B.-5 -5C.10 0D.10 126.设窗体上有一个名为 Text1 的文本框和一个名为 Command1 的命令按钮，并有以下事件过程： Private Sub Command1_Click() x!=Val(Text1.Text) Select Case x Case Is-10, Is=20 Print“输入错误“ Case Is0 Print 20-x Case Is10 Print 20 Case Is=20 Print x+10 End Select End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的
11、输出结果是_。（分数：2.50）A.5B.20C.25D.输入错误27.设有如下程序： Private Sub Command1_Click() x=10:y=0 For i=1 To 5 Do x=x-2 y=y+2 Loop Until y5 Or x-1 Next End Sub 运行程序，其中 Do 循环执行的次数是_。（分数：2.50）A.15B.10C.7D.328.阅读下面程序： Private Sub Command1_Click() Dim arr Dim i As Integer arr=Array(0,1,2,3,4,5,6,7,8,9,10) For i=0 To 2
12、Print arr(7-i) Next End Sub 程序运行后，窗体上显示的是_。（分数：2.50）A.8 7 6B.7 6 5C.6 5 4D.5 4 329.在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序： Private Sub Command1_Click() Dim a(10) As Integer For k=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k) End Sub 运行程序，单击命令按钮，输出结果是_。（分数：2.50）A.18B.12C.8D.630.窗体上有一个名为 Command1
13、的命令按钮，并有如下程序： Private Sub Coramand1_Click() Dim a(10), x% For k=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print x End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.50）A.10 个数中奇数的个数B.10 个数中偶数的个数C.10 个数中奇数的累加和D.10 个数中偶数的累加和31.窗体上有一个名为 Command1 的命令按钮和一个名为 Timer1 的计时器，并有下面的事件过程： Private Sub Command1_Click() Time
14、r1.Enabled=Ture Private Sub Form_Load() Timer1.Interval=10 Timer1.Enabled=False End Sub Private Sub Timer1_Timer() Command1.Left=Command1.Left+10 End Sub 程序运行时，单击命令按钮，则产生的结果是_。（分数：2.50）A.命令按钮每 10 秒向左移动一次B.命令按钮每 10 秒向右移动一次C.命令按钮每 10 毫秒向左移动一次D.命令按钮每 10 毫秒向右移动一次32.设窗体上有一个名为 List1 的列表框，并编写下面的事件过程： Priva
15、te Sub List1_Click() Dim ch As String ch=List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.AddItem ch End Sub 程序运行时，单击一个列表项，则产生的结果是_。（分数：2.50）A.该列表项被移到列表的最前面B.该列表项被删除C.该列表项被移动到列表的最后面D.该列表项被删除后又在原位置插入33.窗体上有一个名为 Command1 的命令按钮，并有如下程序： Private Sub Command1_Click() Dim a As Integer, b
16、As Integer a=8 b=12 Print Fun(a,b);a;b End Sub Private Function Fun(ByVal a As Integer, b As Integer) As Integer a=a Nod 5 b=b/5 Fun=a End Function 程序运行时，单击命令按钮，则输出结果是_。（分数：2.50）A.3 3 2B.3 8 2C.8 8 12D.3 8 1234.为了从当前文件夹中读入文件 File1.txt，某人编写了下面的程序： Private Sub Command1_Click() Open “File1.txt“ For Out
17、put As #20 Do While Not EOF(20) Line Input #20,ch$= Print ch Loop Close #20 End Sub 程序调试时，发现有错误，下面的修改方案中正确的是_（分数：2.50）A.在 Open 语句中的文件名前添加路径B.把程序中各处的“20”该为“1”C.把 Print ch 语句改为 Print #20，chD.把 Open 语句中的 Output 改为 Input35.以下程序运行后的窗体如下图所示，其中组合框的名称是 Combo1，已有列表项如图所示；命令按钮的名称是 Command1。 Private Sub Coraraa
18、nd1_Click() If Not Check(Combo1.Text)Then MsgBox(“输入错误“) Exit Sub End If For k=0 To Combo1.ListCount-1 If Combo1.Text=Combo1.List (k)Then MsgBox(“添加项目失败“) Exit Sub End If Next k Combo1.AddItem Combo1.Text MsgBox(“添加项目成功“) End Sub Private Function Check(ch As String) As Boolean n=Len(ch) For k=1 To n
19、 c$=UCase(Mid(ch,k,1) If c“A“ Or c“Z“ Then Check=False Exit Function End If Next k Check=True End Function （分数：2.50）A.显示“输入错误”B.显示“添加项目失败”C.显示“添加项目成功”D.没有任何显示36.为了清除窗体上的一个控件，下列正确的操作是_。（分数：2.50）A.按 Enter 键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键D.选择(单击)要清除的控件，然后按 Enter 键37.以下叙述中错误的是_。（分数：2.50）A.打开一个工程文件时，系统
20、自动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发38.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 Not a=c Or 4*c=b2 And ba+c（分数：2.50）A.-1B.1C.TrueD.False39.假定有如下的命令按钮(名称为 Command1)事件过程： Private Sub Command1_Click() x=InputBox(“输入:“,“输入整数“) MsgBox“输入的数据是:“,“输入数据:
21、“+x End Sub 程序运行后，单击命令按钮，如果从键盘上输入整数 10，则以下叙述中错误的是_。（分数：2.50）A.x 的值是数值 10B.输入对话框的标题是“输入整数”C.信息框的标题是“输入数据：10”D.信息框中显示的是“输入的数据是：”40.在窗体上画 1 个命令按钮(名称为 Command1)和 1 个文本框(名称为 Text1)，然后编写如下事件过程： Private Sub Command1_Click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is=10, Is=-10 y=x Case -10 To 1
22、0 y=-x End Select End Sub 程序运行后，在文本框中输入 3，然后单击命令按钮，则以下叙述中正确的是_。（分数：2.50）A.执行 y=x*xB.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错二级 VISUAL+BASIC-68 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列关于栈叙述正确的是_。（分数：2.50）A.栈顶元素最先能被删除 B.栈顶元素最后才能被删除C.栈底元素永远不能被删除D.以上三种说法都不对解析：解析 本题考查的知识点是栈的特点。栈是限定只在一端进行插入与删除的线性表，按
23、照“先进后出”或“后进先出”的原则组织数据的。栈顶元索总是最后被插入的元素，从而也是最先能被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素。2.下列叙述中正确的是_。（分数：2.50）A.有一个以上根结点的数据结构不一定是非线性结构B.只有一个根结点的数据结构不一定是线性结构 C.循环链表是非线性结构D.双向链表是非线性结构解析：解析 本题考查的知识点是数据结构。线性表的链式存储结构称为线性链表，而循环链表和双向链表都是在线性链表的基础上演化而来的，因此，选项 C、D 错误。线性结构必须有且只有一个根结点，因此，选项 A 错误。3.某二叉树共有 7 个结点，其中叶子结点
24、只有 1 个，则陔二叉树的深度为(假设根结点在第 1 层)_。（分数：2.50）A.3B.4C.6D.7 解析：解析 本题考查的知识点是二叉树。只有当该二叉树的每一层上只有一个结点时，才能满足题目要求。否则，叶子结点数一定会大于 1。4.在软件丌发中，需求分析阶段产生的主要文档是_。（分数：2.50）A.软件集成测试计划B.软件详细设计说明书C.用户手册D.软件需求规格说明书 解析：解析 本题考查的知识点是软件需求分析。软件需求规格说明书是需求分析阶段的最后成果，是软件开发中的重要文档之一。5.结构化程序所要求的基本结构不包括_。（分数：2.50）A.顺序结构B.GOTO 跳转 C.选择(分支
25、)结构D.重复(循环)结构解析：解析 本题考查的知识点是结构化程序结构。GOTO 跳转是一条语句。6.下面描述中错误的是_。（分数：2.50）A.系统总体结构图支持软件系统的详细设计 B.软件设计将软件需求转换为软件表示C.数据结构与数据库设计是软件设计的任务之一D.PAD 图是软件详细设计的表示工具解析：解析 本题考查的知识点是软件设计。系统总体结构图支持软件系统的概要设计。7.负责数据库中查询操作的数据库语言是_。（分数：2.50）A.数据定义语言B.数据管理语言C.数据操纵语言 D.数据控制语言解析：解析 本题考查的知识点是数据库语言。数据库语言包括如下三点。 数据定义语言(DDL)及其
26、翻译程序：主要负责数据的模式定义与数据的物理存取构建。 数据操纵语言(DML)及其编译(或解释)程序：主要负责数据的基本操作，包括查询及增加、删除、修改等操作。 数据控制语言：主要负责解释每个控制命令的含义，决定如何去执行控制命令。8.一个教师可讲授多门课程，一门课程可由多个教师讲授。则实体教师和课程间的联系是_。（分数：2.50）A.1:联系B.1:m 联系C.m:1 联系D.m:n 联系 解析：解析 本题考查的知识点是实体之间的联系。在数据库模型中，实体之间的联系可分为“一对一”、“一对多”和“多对多”3 种类型。9.有三个关系 R、S 和 T 如下： （分数：2.50）A.自然连接B交C
27、除 D并解析：解析 本题考查的知识点是关系运算。选项 A 自然连接的条件是两关系间有公共域，通过公共域的相等值进行连接，R 与 S 的公共域为 A 和 B，而 T 中根本不存在，所以选项 A 错误。对于选项 B，R 与 S进行交运算后所得到的关系是由既在 R 内又在 S 内的元素组成，显然 T 不在 S 内，所以选项 B 也错误。对于选项 C，R 与 S 除运算后的域由 R 中不出现在 S 中的域组成，选项 C 正确。对于选项 D，R 与 S 进行并运算得到的关系是由属于 R 或属于 S 的元组所组成，所以选项 D 也错误。10.定义无符号整数类为 UInt，下面可以作为类 T 实例化值的是_
28、。（分数：2.50）A.-369B.369 C.0.369D.整数集合1,2,3,4,5解析：解析 根据题目中的“定义无符号整数类”排除选项 A、选项 C 和选项 D。11.在 Visual Basic 集成环境中，可以列出工程中所有模块名称的窗口是_。（分数：2.50）A.工程资源管理器窗口 B.窗体设计窗口C.属性窗口D.代码窗口解析：解析 工程资源管理器窗口列出当前工程中的窗体和模块。选项 B 中的窗体设计窗口用来设计应用程序的界面。选项 C 中属性窗口列出对选定窗体和控件的属性设置值。选项 D 中代码窗口用来编写和修改各种通用过程和事件过程的代码。12.假定编写了如下 4 个窗体事件的
29、事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是_。（分数：2.50）A.Load B.ClickC.LostFocusD.KeyPress解析：解析 Load 表示窗体的加载事件，Click 表示窗体的单击事件，LostFocus 表示窗体失去焦点事件，Keypress 表示窗体的按键事件。运行程序后启动了窗体的加载事件。13.为了使标签具有“透明”的显示效果，需要设置的属性是_。（分数：2.50）A.CaptionB.AlignmentC.BackStyle D.AutoSize解析：解析 Caption 属性表示标签中显示的文字。Alignment 属性表示返回/设置标签的对齐
30、方式。BackStyle 属性可取 0 或 1 两个值，取 0 时，标签覆盖背景，取 1 时，标签“透明”；默认值为1。AutoSize 属性用于决定一个控件是否能调整大小以显示全部的内容。14.下面可以产生 2030(含 20 和 30)的随机整数的表达式是_。（分数：2.50）A.Int(Rnd*10+20)B.Int(Rnd*11+20) C.Int(Rnd*20+30)D.Int(Rnd*30+20)解析：解析 Rnd()函数表示产生一个 01 之间的随机数。为了生成某个范围内的随机整数，可使用公式：Int(upperbound-lowerbound+1)*Rnd+lowerbounD
31、)。其中 upperbound 是随机数范围的上限，lowerbound 是下限。Int()函数表示取整。将本题中的条件代入上述公式中可得正确答案。15.设窗体上有一个名称为 HSl 的水平滚动条，如果执行了语句： HS1.Value=(HS1.Max-HS1.Min)/2+HS1.Min 则_。（分数：2.50）A.滚动块处于最左端B.滚动块处于最右端C.滚动块处于中间位置 D.滚动块可能处于任何位置，具体位置取决于 Max、Min 属性的值解析：解析 Value 属性表示滚动条中滚动块所处的位置，Max 和 Min 属性表示滚动条的 Value 属性取值的范围。由题中语句可知，当前滚动块所
32、处的位置等于滚动块 Value 取最大值处和最小值处差的一半再加上最小值处，所以当前滚动块所处的位置为中间位置。16.窗体上有一个名称为 Cb1 的组合框，程序运行后，为了输出选中的列表项，应使用的语句是_。（分数：2.50）A.Print Cb1.SelectedB.Print Cb1.List(Cb1.ListIndex) C.Print Cb1,Selected.TextD.Print Cb1.List(ListIndex)解析：解析 Print 方法用于输出列表项，List 属性表示输出的为列表项中的选项，ListIndex 属性表示输出的列表项的值。选项 D 中缺少前缀。选项 A 和
33、选项 C 中 Select 属性的使用不正确，且 Select 属性是表示设置或返回列表框中的列表项的选择状态，只有 True 和 False 两个状态。17.为了在窗体上建立 2 组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是_。（分数：2.50）A.把这 2 组单选按钮设置为名称不同的 2 个控件数组B.使 2 组单选按钮的 Index 属性分别相同C.使 2 组单选按钮的名称分别不同D.把 2 组单选按钮分别画到 2 个不同的框架中 解析：解析 本题考查的是框架的使用。窗体中常用框架进行功能上的分组，框架的主要作用是作为容器安放其他控件对象，将这些控件
34、对象分成可标识的控件组。18.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是_。（分数：2.50）A.它的 Y1、Y2 属性的值相等B.它的 X1、X2 属性的值相等 C.它的 x1、Y1 属性的值分别与 X2、Y2 属性的值相等D.它的 X1、X2 属性的值分别与 Y1、Y2 属性的值相等解析：解析 直线控件中，X、Y 属性可以确定直线控件在窗体上的呈现形式。当直线控件在窗体上呈现为一条垂直线时，表示该控件的 X 属性取值相同，所以正确的答案为选项 B。选项 A 表示该直线控件是一个水平直线。选项 C 表示点，选项 D 表示该直线为对角线直线。19.设 a=2，b=3，c=4，d=
35、5，则下面语句的输出是_。 Print 32*b Or a=c And bc Or cd（分数：2.50）A.False B.1C.TrueD.-1解析：解析 本题考查表达式的计算和表达式的执行顺序。由题知语句 Print 32*b Or a=c And bc Orcd，其中优先级为：*、=、And、Or。执行语句可知最后为 False。20.窗体 Form1 上有一个名称为 Command1 的命令按钮，以下对应窗体单击事件的事件过程是_。（分数：2.50）A.Private Sub Form1_Click()End SubB.Private Sub Form_Click()End Sub
36、C.Private Sub Command1_Click()End SubD.Private Sub Command_Click()End Sub解析：解析 Click 事件表示窗体的标题事件，Command1_Click 表示的是命令按钮的单击事件，打开窗体的代码编辑器窗口可以看到，窗体的单击事件表示方式一般为 Form_Click。21.默认情况下，下面声明的数组的元素个数是_。 Dim a(5,-2 To 2)（分数：2.50）A.20B.24C.25D.30 解析：解析 本题定义了一个二维数组，一维数组可取值 6 个数，二维数组可取值 5 个数，所以元素的个数等干 30。22.设有如下
37、程序段： Dim a(10) For Each x In a Print x; Next x 在上面的程序段中，变量 x 必须是_。（分数：2.50）A.整型变量B.变体型变量 C.动态数组D.静态数组解析：解析 本题定义了一个一维数组，在 For Each 中 x 实际代表了数组中的每个元素，它可以代表任意类型的数组元素，所以 x 为变体型变量。23.设有以下函数过程： Private Function Fun(a()As Integer, b As String) As Integer End Function 若已有变量声明： Dim x(5) As Integer, n As Inte
38、ger, ch As String 则下面正确的过程调用语句是_。（分数：2.50）A.x(0)=Fun(x,“ch“) B.n=Fun(n,ch)C.Call Fun x,“ch“D.n=Fun(x(5),ch)解析：解析 因为 Function 过程的调用可以像使用 Visual Basic 的内部函数一样，所以选项 C 错误。由 Fun(a()As Integer，b As String)As Integer 可知，a 被定义为了数组参数，则只能接受数组名，所以选项 B 和选项 D 错误。24.假定用下面的语句打开文件： Open “File1.txt“ For Input As #1
39、则不能正确读文件的语句是_。（分数：2.50）A.Input#1, ch$B.Line Input#1,ch$C.ch$=Input$(5,#1)D.Read#1,ch 解析：解析 由题可知，打开的文件为一个顺序文件，读顺序文件可以使用“Input#语句”、“Line Input#语句”和“Input$函数”三种方式。它们的格式分别为： Input#语句：Input#文件号，变量表； Line Input#语句：Line Input#文件号，字符串变量； Input$函数：Input$(n，#文件号)。25.下面程序的执行结果是_。 Private Sub Command1_Click() a
40、=10 For k=1 To 5 Step-1 a=a-k Next k Print a;k End Sub（分数：2.50）A.-5 6B.-5 -5C.10 0D.10 1 解析：解析 本题考查了 For 循环和步长。由题知 For 循环步长为-1。所以要求初始值必须比终止值大，所以循环条件不成立，不执行循环，所以 a 值不变，但 k 值必须被赋值为 1 时才知小于 5，所以最后执行的结果为 10 和 1。26.设窗体上有一个名为 Text1 的文本框和一个名为 Command1 的命令按钮，并有以下事件过程： Private Sub Command1_Click() x!=Val(Tex
41、t1.Text) Select Case x Case Is-10, Is=20 Print“输入错误“ Case Is0 Print 20-x Case Is10 Print 20 Case Is=20 Print x+10 End Select End Sub 程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是_。（分数：2.50）A.5B.20C.25 D.输入错误解析：解析 Select Case 语句是逐一判断 Case 后面的语句是否为真，找到第一个为真的表达式便执行后面的语句并推出。输入数值-5 后，不满足第一个表达式小于-10 且大于 20 的条件，所以跳过来到第
42、二句，满足第二句表达式小于 0 的条件，于是执行语句“Print 20-x”，所以输出的结果为 25。27.设有如下程序： Private Sub Command1_Click() x=10:y=0 For i=1 To 5 Do x=x-2 y=y+2 Loop Until y5 Or x-1 Next End Sub 运行程序，其中 Do 循环执行的次数是_。（分数：2.50）A.15B.10C.7 D.3解析：解析 DoLoop Until 循环语句为后判断条件语句，所以不论初始条件是否满足，至少语句会执行一次，且当条件满足时退出循环。当 i=1 时，先执行 Do 循环语句，第一次执行后
43、得出 x 和 y 值分别为8 和 2，Do 循环条件未满足，继续执行；第二次执行后得出 x 和 y 值分别为 6 和 4，Do 循环条件仍未满足，继续执行；第三次执行后得出 x 和 y 值分别为 4 和 6，Do 循环条件满足推出 Do 循环，此时外围 For 循环还未终止，还需要再执行四次，而且每次 Do 循环语句都会先执行一次再去判断条件，虽然条件永远满足，但是当退出时已经执行了 1 次，因此 Do 循环执行的次数为 4+3=7 次。28.阅读下面程序： Private Sub Command1_Click() Dim arr Dim i As Integer arr=Array(0,1,
44、2,3,4,5,6,7,8,9,10) For i=0 To 2 Print arr(7-i) Next End Sub 程序运行后，窗体上显示的是_。（分数：2.50）A.8 7 6B.7 6 5 C.6 5 4D.5 4 3解析：解析 本题 arr 被 Array 函数定义为数组，并且赋予了初值，arr(0)=0，arr(1)=1，arr(2)=2，arr(10)=10。在 For 循环中 i 的值为 0，1，2，那么 arr(7-i)分别可表示为 arr(7)、arr(6)、arr(5)，所以输出 arr(7-i)的值为 7，6，5。29.在窗体上画一个名为 Command1 的命令按钮
45、，然后编写以下程序： Private Sub Command1_Click() Dim a(10) As Integer For k=10 To 1 Step-1 a(k)=20-2*k Next k k=k+7 Print a(k-a(k) End Sub 运行程序，单击命令按钮，输出结果是_。（分数：2.50）A.18 B.12C.8D.6解析：解析 本题中通过 For 循环可以求出 a(1)到 a(10)的值，分别为18，16，14，12，10，8，6，4，2，0。此时 k=0，不满足循环条件，退出循环，最后 k=k+7=7，a(k-a(k)=a(7-a(7)=a(1)=18。30.窗体
46、上有一个名为 Command1 的命令按钮，并有如下程序： Private Sub Coramand1_Click() Dim a(10), x% For k=1 To 10 a(k)=Int(Rnd*90+10) x=x+a(k)Mod 2 Next k Print x End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.50）A.10 个数中奇数的个数 B.10 个数中偶数的个数C.10 个数中奇数的累加和D.10 个数中偶数的累加和解析：解析 Rnd()函数表示产生一个 01 之间的随机数。所以题中 Int(Rnd*90+10)产生的随机数是10，100)之间的整数，让该
47、数对 2 取余，若为奇数则得 1，若为偶数则得 0，对于表达式“x=x+a(k)Mod 2”中 x 加上 0 对表达式的取值无影响，若加上 1 则表示有一个奇数。31.窗体上有一个名为 Command1 的命令按钮和一个名为 Timer1 的计时器，并有下面的事件过程： Private Sub Command1_Click() Timer1.Enabled=Ture Private Sub Form_Load() Timer1.Interval=10 Timer1.Enabled=False End Sub Private Sub Timer1_Timer() Command1.Left=Co
48、mmand1.Left+10 End Sub 程序运行时，单击命令按钮，则产生的结果是_。（分数：2.50）A.命令按钮每 10 秒向左移动一次B.命令按钮每 10 秒向右移动一次C.命令按钮每 10 毫秒向左移动一次D.命令按钮每 10 毫秒向右移动一次 解析：解析 本题考查的知识点是计时器控件。Interval 属性单位为毫秒，因此 10 表示 10 毫秒。Left属性值是以窗体的最左边边界为坐标原点，该值表示该控件在窗体上的位置，若值增加则表示向右边移动，反之表示向左边移动。32.设窗体上有一个名为 List1 的列表框，并编写下面的事件过程： Private Sub List1_Click() Dim ch As String ch=List1.List(List1.ListIndex) List1.RemoveItem List1.ListIndex List1.A
