第8卷 选择结构《Visual Basic程序设计》内蒙古计算机类 考纲百套卷

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第8卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：条件表达式，简单条件选择结构的程序设计，多分支条件选择结构的程序设计，计时器控件Timer，单选钮控件OptionButton，复选框控件CheckBox。 内蒙古对口招生《计算机类考纲百套卷》 第8卷 《Visual Basic程序设计》 选择结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，关系运算符“大于等于”的符号是（ ） A. =< B. => C. <= D. >= 【答案】D 【解析】VB 中大于等于为 >=。 2.在 Visual Basic 6.0 中，关系运算符“小于等于”的符号是（ ） A. >= B. =< C. <= D. => 【答案】C 【解析】VB 中小于等于为 <=。 3.已知 a = False，b = True，则表达式 a Or b 的值为（ ） A. 0 B. False C. 1 D. True 【答案】D 【解析】Or 为逻辑或，只要有一个操作数为 True，结果即为 True。 4.逻辑运算符 And 的运算规则是（ ） A. 全假才真 B. 取反 C. 一真就真 D. 全真才真 【答案】D 【解析】And 只有两边均为 True 时结果才为 True。 5.If...Then...Else 语句中，条件为 True 时执行的分支是（ ） A. End If 分支 B. Else 分支 C. Then 分支 D. ElseIf 分支 【答案】C 【解析】条件成立执行 Then 后面的语句，否则执行 Else 分支。 6.Select Case 语句中，Case 10, 20, 30 表示（ ） A. x 在 10 到 30 之间 B. x 等于 10 且 x 等于 30 C. x 大于 10 小于 30 D. x 等于 10、20 或 30 【答案】D 【解析】逗号表示列举多个离散值。 7.计时器控件 Interval 设置为 1000，表示每隔______触发一次 Timer 事件（ ） A. 1 毫秒 B. 1000 秒 C. 1 秒 D. 1000 毫秒 【答案】C 【解析】Interval 单位为毫秒，1000 ms = 1 s。 8.表达式 "12" < "2" 的值是（ ） A. 1 B. False C. True D. 0 【答案】C 【解析】字符串按首字符 ASCII 比较，"1" 的 ASCII 小于 "2"，故为 True。 9.表达式 True And False Or True 的值是（ ） A. 1 B. False C. True D. 0 【答案】C 【解析】And 优先级高于 Or，先算 True And False = False，再 False Or True = True。 10.单行 If 语句中，不能同时包含的关键字是（ ） A. Then B. Else C. End If D. If 【答案】C 【解析】单行 If 语句不使用 End If，块结构才使用 End If。 11.If...Then...ElseIf...Else 结构中，最多只有______个分支被执行（ ） A. 0 B. 多个 C. 2 D. 1 【答案】D 【解析】多分支结构自上而下判断，一旦满足某条件即执行对应分支并退出该结构。 12.Select Case 语句结束时应使用的关键字是（ ） A. End B. Exit Select C. End If D. End Select 【答案】D 【解析】Select Case 必须以 End Select 结束。 13.若计时器 Interval 设置为 0，则计时器（ ） A. 每隔 0 毫秒触发 B. 停止触发 C. 只触发一次 D. 触发间隔变为默认值 【答案】B 【解析】Interval 为 0 时，Timer 控件停止触发 Timer 事件。 14.要使窗体上多个 OptionButton 分成两组，应使用（ ） A. Frame 控件 B. PictureBox 控件 C. Label 控件 D. TextBox 控件 【答案】A 【解析】Frame 容器内放置的 OptionButton 形成独立的组，互斥只在该组内有效。 15.复选框 CheckBox 的 Value 属性值可以是 0、1 和______（ ） A. 2 B. 3 C. True D. False 【答案】A 【解析】CheckBox 的 Value 可取 0（未选）、1（选中）、2（灰色）。 16.在 Visual Basic 6.0 中，表达式 3 <> 3 的值是（ ） A. True B. False C. 1 D. 0 【答案】B 【解析】3 <> 3 为假，结果为 False。 17.表达式 Not (a > b) And (a = b) 中，先运算的是（ ） A. Not B. And C. a > b D. a = b 【答案】C 【解析】先算关系表达式 a > b 和 a = b，再算 Not，最后算 And。 18.已知 x = 7，y = 4，则表达式 x > 5 And y < 3 的值为（ ） A. True B. False C. 1 D. 0 【答案】B 【解析】x > 5 为 True，y < 3 为 False，True And False = False。 19.下列程序段运行后，变量 y 的值是 Dim x As Integer, y As Integer x = 8 If x Mod 2 = 0 Then y = x \ 2 Else y = x * 2 End If（ ） A. 4 B. 16 C. 8 D. 0 【答案】A 【解析】x Mod 2 = 0 成立，执行 y = x \ 2 = 8 \ 2 = 4。 20.If...Then...ElseIf...Else 结构中，ElseIf 的作用是（ ） A. 结束判断 B. 增加新的判断条件 C. 作为默认分支 D. 与 Then 等价 【答案】B 【解析】ElseIf 用于增加多个判断条件，实现多分支。 21.Select Case 中 Case Is < 60 表示（ ） A. x 小于 60 B. x 大于 60 C. x 等于 60 D. x 小于等于 60 【答案】A 【解析】Case Is < 60 使用 Is 关键字表示小于 60。 22.下列程序段运行后，变量 m 的值是 Dim a As Integer, b As Integer, m As Integer a = 6: b = 9 If a < b Then If a > 0 Then m = a + b Else m = a - b End If Else m = 0 End If（ ） A. 15 B. -3 C. 0 D. 6 【答案】A 【解析】a < b 且 a > 0 均成立，执行 m = a + b = 15。 23.要使计时器停止工作，应设置（ ） A. Enabled = False B. Interval = 0 C. Visible = False D. A 和 B 均可 【答案】D 【解析】Enabled = False 或 Interval = 0 均可停止计时器触发。 24.使用计时器实现文字闪烁效果，通常需要设置 Interval 属性为（ ） A. 0 B. 50 到 1000 C. 60000 D. 任意负数 【答案】B 【解析】Interval 在毫秒级（如 500）可实现可见的闪烁效果。 25.OptionButton 的 Caption 属性用于设置（ ） A. 对象名 B. 显示文本 C. 是否选中 D. 控件大小 【答案】B 【解析】Caption 设置控件上显示的说明文字。 26.当用户选中某个 OptionButton 时，其 Value 属性会（ ） A. 变为 True B. 变为 False C. 保持不变 D. 变为 0 【答案】A 【解析】选中时 Value 变为 True，同时同组其他 OptionButton 变为 False。 27.CheckBox 的 Caption 属性用于（ ） A. 设置复选框旁边的说明文 B. 设置控件名 C. 设置状态值 D. 设置背景颜色 【答案】A 【解析】Caption 为复选框旁显示的文本标签。 28.在 CheckBox 的 Click 事件中判断复选框是否被选中，应检查 Value 是否等于（ ） A. 0 B. 1 C. 2 D. True 【答案】B 【解析】Value = 1 表示 Checked（选中），0 表示未选中，2 表示灰色。 29.已知 a = 3，b = 7，c = 5，则表达式 a + b > c And b - a < c 的值为（ ） A. True B. False C. 1 D. 0 【答案】A 【解析】a + b = 10 > 5 为 True；b - a = 4 < 5 为 True；True And True = True。 30.下列程序段运行后，变量 x 的值是 Dim a As Integer, b As Integer, x As Integer a = 5: b = 2 If a > 0 Then If b > 5 Then x = 1 ElseIf b > 0 Then x = 2 Else x = 3 End If Else x = 4 End If（ ） A. 1 B. 2 C. 3 D. 4 【答案】B 【解析】a > 0 成立；b > 5 不成立，b > 0 成立，执行 x = 2。 二、填空题（本题共10道小题，每题2分，共20分） 1.在 Visual Basic 6.0 中，关系运算符“等于”用符号______表示。 【答案】= 【解析】在关系表达式中，= 表示比较两个值是否相等。 2.逻辑运算符中，______表示“或”运算。 【答案】Or 【解析】Or 只要有一个条件为 True，结果即为 True。 3.块结构 If 语句中，条件不成立时执行______关键字后面的语句。 【答案】Else 【解析】Else 分支处理条件为 False 的情况。 4.Select Case 语句中，表示区间（如 1 到 5）应使用关键字______。 【答案】To 【解析】To 用于表示区间，如 Case 1 To 5。 5.If...Then...ElseIf...Else 结构中，可以使用______关键字增加多个判断条件。 【答案】ElseIf 【解析】ElseIf 用于编写多个并列条件。 6.Select Case 语句中，多个离散值之间使用______分隔。 【答案】逗号 【解析】逗号用于列举多个离散值，如 Case 10, 20, 30。 7.计时器控件 Timer 的 Interval 属性单位是______。 【答案】毫秒 【解析】Interval 以毫秒为单位，1 秒 = 1000 毫秒。 8.Timer 控件每隔一段时间自动触发______事件。 【答案】Timer 【解析】Timer 事件按 Interval 周期触发。 9.使用______控件可以将窗体上的多个单选钮分成不同的组。 【答案】Frame 【解析】Frame 是容器控件，组内的 OptionButton 互斥。 10.复选框 CheckBox 的______属性用于设置其旁边显示的说明文字。 【答案】Caption 【解析】Caption 为复选框旁显示的文本标签。 三、程序填空题（本题共2道小题，每题10分，共20分） 1. 在窗体上放置一个文本框 Text1 和一个按钮 Command1，单击按钮时根据 Text1 中输入的百分制成绩，输出等级（90 以上为 A，80～89 为 B，70～79 为 C，60～69 为 D，60 以下为 E）。请补充完善程序。 Private Sub Command1_Click() Dim score As Integer score = Val(Text1.Text) Select Case [1]______ Case [2]______ Label1.Caption = "A" Case 80 To 89 Label1.Caption = "B" Case 70 To 79 Label1.Caption = "C" Case 60 To 69 Label1.Caption = "D" Case [3]______ Label1.Caption = "E" End Select End Sub 【答案】score；90 To 100；Is < 60 【解析】Select Case 后写被判断的表达式 score；90 分以上用 90 To 100；60 分以下用 Is < 60。 2. 在窗体上放置一个文本框 Text1 和一个按钮 Command1，单击按钮时判断输入整数的正负和奇偶性，并在标签 Label1 中显示。请补充完善程序。 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If [1]______ Then Label1.Caption = "非正整数" ElseIf [2]______ Then Label1.Caption = "正奇数" Else Label1.Caption = "正偶数" End If End Sub 【答案】x <= 0；x Mod 2 = 1 【解析】先判断非正整数；再判断是否为正奇数；剩下的为正偶数。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第8卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：条件表达式，简单条件选择结构的程序设计，多分支条件选择结构的程序设计，计时器控件Timer，单选钮控件OptionButton，复选框控件CheckBox。 内蒙古对口招生《计算机类考纲百套卷》 第8卷 《Visual Basic程序设计》 选择结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，关系运算符“大于等于”的符号是（ ） A. =< B. => C. <= D. >= 2.在 Visual Basic 6.0 中，关系运算符“小于等于”的符号是（ ） A. >= B. =< C. <= D. => 3.已知 a = False，b = True，则表达式 a Or b 的值为（ ） A. 0 B. False C. 1 D. True 4.逻辑运算符 And 的运算规则是（ ） A. 全假才真 B. 取反 C. 一真就真 D. 全真才真 5.If...Then...Else 语句中，条件为 True 时执行的分支是（ ） A. End If 分支 B. Else 分支 C. Then 分支 D. ElseIf 分支 6.Select Case 语句中，Case 10, 20, 30 表示（ ） A. x 在 10 到 30 之间 B. x 等于 10 且 x 等于 30 C. x 大于 10 小于 30 D. x 等于 10、20 或 30 7.计时器控件 Interval 设置为 1000，表示每隔______触发一次 Timer 事件（ ） A. 1 毫秒 B. 1000 秒 C. 1 秒 D. 1000 毫秒 8.表达式 "12" < "2" 的值是（ ） A. 1 B. False C. True D. 0 9.表达式 True And False Or True 的值是（ ） A. 1 B. False C. True D. 0 10.单行 If 语句中，不能同时包含的关键字是（ ） A. Then B. Else C. End If D. If 11.If...Then...ElseIf...Else 结构中，最多只有______个分支被执行（ ） A. 0 B. 多个 C. 2 D. 1 12.Select Case 语句结束时应使用的关键字是（ ） A. End B. Exit Select C. End If D. End Select 13.若计时器 Interval 设置为 0，则计时器（ ） A. 每隔 0 毫秒触发 B. 停止触发 C. 只触发一次 D. 触发间隔变为默认值 14.要使窗体上多个 OptionButton 分成两组，应使用（ ） A. Frame 控件 B. PictureBox 控件 C. Label 控件 D. TextBox 控件 15.复选框 CheckBox 的 Value 属性值可以是 0、1 和______（ ） A. 2 B. 3 C. True D. False 16.在 Visual Basic 6.0 中，表达式 3 <> 3 的值是（ ） A. True B. False C. 1 D. 0 17.表达式 Not (a > b) And (a = b) 中，先运算的是（ ） A. Not B. And C. a > b D. a = b 18.已知 x = 7，y = 4，则表达式 x > 5 And y < 3 的值为（ ） A. True B. False C. 1 D. 0 19.下列程序段运行后，变量 y 的值是 Dim x As Integer, y As Integer x = 8 If x Mod 2 = 0 Then y = x \ 2 Else y = x * 2 End If（ ） A. 4 B. 16 C. 8 D. 0 20.If...Then...ElseIf...Else 结构中，ElseIf 的作用是（ ） A. 结束判断 B. 增加新的判断条件 C. 作为默认分支 D. 与 Then 等价 21.Select Case 中 Case Is < 60 表示（ ） A. x 小于 60 B. x 大于 60 C. x 等于 60 D. x 小于等于 60 22.下列程序段运行后，变量 m 的值是 Dim a As Integer, b As Integer, m As Integer a = 6: b = 9 If a < b Then If a > 0 Then m = a + b Else m = a - b End If Else m = 0 End If（ ） A. 15 B. -3 C. 0 D. 6 23.要使计时器停止工作，应设置（ ） A. Enabled = False B. Interval = 0 C. Visible = False D. A 和 B 均可 24.使用计时器实现文字闪烁效果，通常需要设置 Interval 属性为（ ） A. 0 B. 50 到 1000 C. 60000 D. 任意负数 25.OptionButton 的 Caption 属性用于设置（ ） A. 对象名 B. 显示文本 C. 是否选中 D. 控件大小 26.当用户选中某个 OptionButton 时，其 Value 属性会（ ） A. 变为 True B. 变为 False C. 保持不变 D. 变为 0 27.CheckBox 的 Caption 属性用于（ ） A. 设置复选框旁边的说明文 B. 设置控件名 C. 设置状态值 D. 设置背景颜色 28.在 CheckBox 的 Click 事件中判断复选框是否被选中，应检查 Value 是否等于（ ） A. 0 B. 1 C. 2 D. True 29.已知 a = 3，b = 7，c = 5，则表达式 a + b > c And b - a < c 的值为（ ） A. True B. False C. 1 D. 0 30.下列程序段运行后，变量 x 的值是 Dim a As Integer, b As Integer, x As Integer a = 5: b = 2 If a > 0 Then If b > 5 Then x = 1 ElseIf b > 0 Then x = 2 Else x = 3 End If Else x = 4 End If（ ） A. 1 B. 2 C. 3 D. 4 二、填空题（本题共10道小题，每题2分，共20分） 1.在 Visual Basic 6.0 中，关系运算符“等于”用符号______表示。 2.逻辑运算符中，______表示“或”运算。 3.块结构 If 语句中，条件不成立时执行______关键字后面的语句。 4.Select Case 语句中，表示区间（如 1 到 5）应使用关键字______。 5.If...Then...ElseIf...Else 结构中，可以使用______关键字增加多个判断条件。 6.Select Case 语句中，多个离散值之间使用______分隔。 7.计时器控件 Timer 的 Interval 属性单位是______。 8.Timer 控件每隔一段时间自动触发______事件。 9.使用______控件可以将窗体上的多个单选钮分成不同的组。 10.复选框 CheckBox 的______属性用于设置其旁边显示的说明文字。 三、程序填空题（本题共2道小题，每题10分，共20分） 1. 在窗体上放置一个文本框 Text1 和一个按钮 Command1，单击按钮时根据 Text1 中输入的百分制成绩，输出等级（90 以上为 A，80～89 为 B，70～79 为 C，60～69 为 D，60 以下为 E）。请补充完善程序。 Private Sub Command1_Click() Dim score As Integer score = Val(Text1.Text) Select Case [1]______ Case [2]______ Label1.Caption = "A" Case 80 To 89 Label1.Caption = "B" Case 70 To 79 Label1.Caption = "C" Case 60 To 69 Label1.Caption = "D" Case [3]______ Label1.Caption = "E" End Select End Sub 2. 在窗体上放置一个文本框 Text1 和一个按钮 Command1，单击按钮时判断输入整数的正负和奇偶性，并在标签 Label1 中显示。请补充完善程序。 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If [1]______ Then Label1.Caption = "非正整数" ElseIf [2]______ Then Label1.Caption = "正奇数" Else Label1.Caption = "正偶数" End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $