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

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第9卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：条件表达式，简单条件选择结构的程序设计，多分支条件选择结构的程序设计，计时器控件Timer，单选钮控件OptionButton，复选框控件CheckBox。 内蒙古对口招生《计算机类考纲百套卷》 第9卷 《Visual Basic程序设计》 选择结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，关系运算符“不等于”的符号是（ ） A. >< B. != C. <> D. # 【答案】C 【解析】VB 中不等于运算符为 <>。 2.逻辑运算符优先级最低的是（ ） A. Not B. And C. Or D. Xor 【答案】D 3.单行 If 语句的末尾不需要使用（ ） A. Then B. Else C. End If D. If 【答案】C 【解析】单行 If 语句不需要 End If。 4.Select Case 中用于书写默认分支的关键字是（ ） A. Else B. Default C. Case Else D. Case Default 【答案】C 【解析】Select Case 使用 Case Else 作为默认分支。 5.Interval 属性的取值范围是（ ） A. 0 到 65535 B. 1 到 65535 C. 0 到 10000 D. 1 到 1000 【答案】A 【解析】Interval 为 0 ～ 65535 的整数。 6.OptionButton 的 Value 属性类型是（ ） A. Integer B. Single C. String D. Boolean 【答案】D 【解析】OptionButton 的 Value 为 Boolean 型。 7.在 Visual Basic 6.0 中，字符串 "A" < "B" 的值为（ ） A. True B. False C. 1 D. 0 【答案】A 【解析】按 ASCII 码比较，A 的 ASCII 小于 B，故为 True。 8.表达式 Not True Or False 的值是（ ） A. True B. 0 C. 1 D. False 【答案】D 【解析】Not 优先级高于 Or，Not True = False，False Or False = False。 9.若要在 x 大于 0 时给 y 赋值 1，否则赋值 0，正确的块结构语句是（ ） A. If x > 0 Then y = 1 Else y = 0 B. If x > 0 Then y = 1 Else y = 0 Stop C. If x > 0 Then y = 1 Else y = 0 End D. If x > 0 Then y = 1 Else y = 0 End If 【答案】D 【解析】块结构 If 语句应使用 End If 结束。 10.Select Case 中 Case 2, 4, 6 表示判断值（ ） A. 2 到 6 之间的整数 B. 偶数 C. 大于 2 小于 6 D. 2、4、6 之一 【答案】D 【解析】逗号用于列举离散值，Case 2,4,6 只匹配 2、4、6 三个值。 11.Timer 控件的 Enabled 属性默认值为（ ） A. True B. 0 C. 1 D. False 【答案】A 12.CheckBox 的 Value 属性为 0 时，表示（ ） A. 未选中 B. 选中 C. 灰色 D. 不可用 【答案】A 【解析】Value = 0 表示 Unchecked（未选中）。 13.在 Visual Basic 6.0 中，表达式 "abc" = "abc" 的值为（ ） A. True B. False C. 1 D. 0 【答案】A 【解析】字符串完全相等，结果为 True。 14.已知 a = 5，b = 10，c = 8，则表达式 a < b And b < c 的值为（ ） A. True B. 0 C. 1 D. False 【答案】D 【解析】a < b 为 True，b < c 为 False，True And False = False。 15.表达式 10 > 5 Or 3 < 2 And 4 > 6 的值为（ ） A. True B. False C. 1 D. 0 【答案】A 【解析】And 优先级高于 Or，先算 3<2 And 4>6 = False，再 10>5 Or False = True。 16.下列程序段运行后，变量 z 的值是 Dim x As Integer, y As Integer, z As Integer x = 9: y = 4 If x > y Then z = x - y ElseIf x < y Then z = y - x Else z = 0 End If（ ） A. 5 B. -5 C. 0 D. 13 【答案】A 【解析】x > y 成立，执行 z = x - y = 5。 17.If...Then...ElseIf...Else 结构中，若多个条件同时成立，则执行（ ） A. 所有成立分支 B. Else 分支 C. 最后一个成立分支 D. 第一个成立分支 【答案】D 【解析】多分支结构自上而下判断，只执行第一个满足条件的分支。 18.Select Case 语句中，Case 60 To 100 表示（ ） A. 60 和 100 两个值 B. 60 到 100 之间的值 C. 大于 60 的值 D. 小于 100 的值 【答案】B 【解析】To 表示闭区间，包含端点值。 19.下列程序段运行后，变量 n 的值是 Dim a As Integer, b As Integer, n As Integer a = 4: b = 7 If a > 0 Then If b > 10 Then n = 1 Else n = 2 End If Else n = 3 End If（ ） A. 1 B. 2 C. 3 D. 0 【答案】B 【解析】a > 0 成立，b > 10 不成立，执行 n = 2。 20.若要实现每 2 秒触发一次 Timer 事件，Interval 应设置为（ ） A. 2 B. 200 C. 2000 D. 20 【答案】C 【解析】2 秒 = 2000 毫秒。 21.Timer 控件的 Visible 属性通常设置为（ ） A. True B. False C. 1 D. 0 【答案】B 【解析】Timer 控件在运行时不可见，通常 Visible = False。 22.在 Frame 容器内放置 3 个 OptionButton，在 Frame 外再放置 2 个 OptionButton，则窗体上同时可选中的单选钮最多为（ ） A. 1 B. 2 C. 3 D. 5 【答案】B 【解析】Frame 内为一组，Frame 外为另一组，每组最多选中 1 个，共 2 个。 23.CheckBox 的 Value 属性与 OptionButton 的 Value 属性主要区别在于（ ） A. 类型相同 B. CheckBox 为 Integer，OptionButton 为 Boolean C. CheckBox 为 Boolean，OptionButton 为 Integer D. 没有区别 【答案】B 【解析】CheckBox 的 Value 为 Integer（0/1/2），OptionButton 的 Value 为 Boolean。 24.已知 a = 10，b = 20，c = 15，则表达式 a + b > c And b - c < a Or c > b 的值为（ ） A. True B. False C. 1 D. 0 【答案】A 【解析】先算 And：a+b>c 为 True，b-c<a 为 True，True And True = True；再 True Or c>b 为 True。 25.下列程序段运行后，变量 s 的值是 Dim a As Integer, b As Integer, s As Integer a = 8: b = 3 If a Mod 2 = 0 Then If b Mod 2 = 0 Then s = a + b Else s = a - b End If Else s = a * b End If（ ） A. 5 B. 11 C. 24 D. 0 【答案】A 【解析】a 为偶数进入外层，b 为奇数执行 s = a - b = 8 - 3 = 5。 26.下列程序段运行后，变量 x 的值是 Dim a As Integer, b As Integer, x As Integer a = 5: b = 12 If a > 10 Then x = 1 ElseIf b > 10 Then If a > 3 Then x = 2 Else x = 3 End If Else x = 4 End If（ ） A. 1 B. 2 C. 3 D. 4 【答案】B 【解析】a > 10 不成立，b > 10 成立；内层 a > 3 成立，执行 x = 2。 27.在计时器 Timer1 中实现每 1 秒切换一次标签文字“欢迎”和“光临”，合理的做法是（ ） A. 在 Form_Load 中修改 Label1.Caption B. 在 Timer1_Timer 中判断并切换 Label1.Caption C. 在 Command1_Click 中修改 Label1.Caption D. 直接修改 Timer1.Caption 【答案】B 【解析】Timer 事件按周期触发，适合在事件过程中切换标签文字。 28.窗体上有 1 个 CheckBox1、2 个 OptionButton（Option1、Option2）和 1 个按钮 Command1，以下叙述正确的是（ ） A. CheckBox1 和 Option1 可以互相排斥 B. Option1 和 Option2 可以同时被选中 C. CheckBox1 的 Value 可以为 2 D. CheckBox1 的 Value 为 Boolean 型 【答案】C 【解析】CheckBox 的 Value 可为 0/1/2，OptionButton 的 Value 为 Boolean 型。 29.下列程序段运行后，变量 m 的值是 Dim a As Integer, b As Integer, c As Integer, m As Integer a = 6: b = 8: c = 4 If a > b Then m = a Else If b > c Then m = b Else m = c End If End If（ ） A. 6 B. 8 C. 4 D. 0 【答案】B 【解析】a > b 不成立，进入 Else；b > c 成立，执行 m = b = 8。 30.下列程序段运行后，标签 Label1 中显示的内容是 Dim x As Integer, y As Integer x = 7: y = 14 If x > y Then Label1.Caption = "x > y" ElseIf x = y Then Label1.Caption = "x = y" Else If y Mod x = 0 Then Label1.Caption = "y 是 x 的倍数" Else Label1.Caption = "y 不是 x 的倍数" End If End If（ ） A. x > y B. x = y C. y 是 x 的倍数 D. y 不是 x 的倍数 【答案】C 【解析】x > y 和 x = y 均不成立，进入 Else；y Mod x = 14 Mod 7 = 0，显示“y 是 x 的倍数”。 二、填空题（本题共10道小题，每题2分，共20分） 1.在 Visual Basic 6.0 中，关系表达式“x 大于 y 且 x 小于 z”应写成 x > y ______ x < z。 【答案】And 【解析】两个条件同时成立用 And 连接。 2.逻辑运算符优先级高于 Or 但低于 Not 的是______。 【答案】And 【解析】优先级 Not > And > Or。 3.单行 If 语句的格式为 If 条件 Then 语句，若需执行多条语句，应使用______结构。 【答案】块/If...Then...End If 【解析】单行 If 只能执行一条语句，块结构可执行多条语句。 4.Select Case 中，使用关键字______表示“大于等于”。 【答案】Is 【解析】区间比较使用 Is，如 Case Is >= 60。 5.If...Then...ElseIf...Else 结构中，最多执行______个分支。 【答案】1 【解析】多分支结构只执行第一个满足条件的分支。 6.在嵌套 If 语句中，内层 If 的 End If 与最近的未配对的______配对。 【答案】If 【解析】End If 总是与最近的未配对的 If 配对。 7.要使计时器停止触发，除了设置 Enabled = False，还可以设置 Interval = ______。 【答案】0 【解析】Interval 为 0 时计时器停止触发。 8.Timer 控件在运行时通常______（可见/不可见）。 【答案】不可见 【解析】Timer 控件在运行时不显示在窗体上。 9.使用 Frame 控件对 OptionButton 进行分组后，不同组之间的单选钮______（可以/不可以）同时被选中。 【答案】可以 【解析】Frame 容器内的 OptionButton 形成独立组，不同组之间互不影响，可以各自选中一个。 10.复选框 CheckBox 的 Value 属性为 1 时，通常称为______状态。 【答案】Checked/选中 【解析】Value 取 1 表示 Checked（选中）。 三、程序填空题（本题共2道小题，每题10分，共20分） 1. 在窗体上放置一个文本框 Text1 和一个按钮 Command1，单击按钮时判断输入整数的正负和奇偶性，并在标签 Label1 中显示。请补充完善程序。 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x > 0 Then If [1]______ Then Label1.Caption = "正奇数" Else Label1.Caption = [2]______ End If ElseIf x = 0 Then Label1.Caption = "零" Else If x Mod 2 = 0 Then Label1.Caption = [3]______ Else Label1.Caption = "负奇数" End If End If End Sub 【答案】x Mod 2 = 1；"正偶数"；"负偶数" 【解析】正数中判断奇偶；正偶数标签；负数中偶数标签。 2. 在窗体上放置一个 Timer 控件 Timer1、一个 Label1、一个 OptionButton（Option1，Caption 为“闪烁”）和一个 CheckBox（Check1，Caption 为“启用”）。要求勾选 Check1 并选中 Option1 时，标签每 0.5 秒在“欢迎”和“光临”之间切换。请补充完善程序。 Private Sub Form_Load() Timer1.Interval = [1]______ Timer1.Enabled = [2]______ End Sub Private Sub Check1_Click() Timer1.Enabled = [3]______ End Sub Private Sub Timer1_Timer() If [4]______ Then If Label1.Caption = "欢迎" Then Label1.Caption = "光临" Else Label1.Caption = "欢迎" End If End If End Sub 【答案】500；False；Check1.Value = 1；Option1.Value = True 【解析】Interval 为 500 毫秒；初始不启用；Check1 选中时启用；仅在 Option1 选中且 Check1 启用时切换。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第9卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：条件表达式，简单条件选择结构的程序设计，多分支条件选择结构的程序设计，计时器控件Timer，单选钮控件OptionButton，复选框控件CheckBox。 内蒙古对口招生《计算机类考纲百套卷》 第9卷 《Visual Basic程序设计》 选择结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，关系运算符“不等于”的符号是（ ） A. >< B. != C. <> D. # 2.逻辑运算符优先级最低的是（ ） A. Not B. And C. Or D. Xor 3.单行 If 语句的末尾不需要使用（ ） A. Then B. Else C. End If D. If 4.Select Case 中用于书写默认分支的关键字是（ ） A. Else B. Default C. Case Else D. Case Default 5.Interval 属性的取值范围是（ ） A. 0 到 65535 B. 1 到 65535 C. 0 到 10000 D. 1 到 1000 6.OptionButton 的 Value 属性类型是（ ） A. Integer B. Single C. String D. Boolean 7.在 Visual Basic 6.0 中，字符串 "A" < "B" 的值为（ ） A. True B. False C. 1 D. 0 8.表达式 Not True Or False 的值是（ ） A. True B. 0 C. 1 D. False 9.若要在 x 大于 0 时给 y 赋值 1，否则赋值 0，正确的块结构语句是（ ） A. If x > 0 Then y = 1 Else y = 0 B. If x > 0 Then y = 1 Else y = 0 Stop C. If x > 0 Then y = 1 Else y = 0 End D. If x > 0 Then y = 1 Else y = 0 End If 10.Select Case 中 Case 2, 4, 6 表示判断值（ ） A. 2 到 6 之间的整数 B. 偶数 C. 大于 2 小于 6 D. 2、4、6 之一 11.Timer 控件的 Enabled 属性默认值为（ ） A. True B. 0 C. 1 D. False 12.CheckBox 的 Value 属性为 0 时，表示（ ） A. 未选中 B. 选中 C. 灰色 D. 不可用 13.在 Visual Basic 6.0 中，表达式 "abc" = "abc" 的值为（ ） A. True B. False C. 1 D. 0 14.已知 a = 5，b = 10，c = 8，则表达式 a < b And b < c 的值为（ ） A. True B. 0 C. 1 D. False 15.表达式 10 > 5 Or 3 < 2 And 4 > 6 的值为（ ） A. True B. False C. 1 D. 0 16.下列程序段运行后，变量 z 的值是 Dim x As Integer, y As Integer, z As Integer x = 9: y = 4 If x > y Then z = x - y ElseIf x < y Then z = y - x Else z = 0 End If（ ） A. 5 B. -5 C. 0 D. 13 17.If...Then...ElseIf...Else 结构中，若多个条件同时成立，则执行（ ） A. 所有成立分支 B. Else 分支 C. 最后一个成立分支 D. 第一个成立分支 18.Select Case 语句中，Case 60 To 100 表示（ ） A. 60 和 100 两个值 B. 60 到 100 之间的值 C. 大于 60 的值 D. 小于 100 的值 19.下列程序段运行后，变量 n 的值是 Dim a As Integer, b As Integer, n As Integer a = 4: b = 7 If a > 0 Then If b > 10 Then n = 1 Else n = 2 End If Else n = 3 End If（ ） A. 1 B. 2 C. 3 D. 0 20.若要实现每 2 秒触发一次 Timer 事件，Interval 应设置为（ ） A. 2 B. 200 C. 2000 D. 20 21.Timer 控件的 Visible 属性通常设置为（ ） A. True B. False C. 1 D. 0 22.在 Frame 容器内放置 3 个 OptionButton，在 Frame 外再放置 2 个 OptionButton，则窗体上同时可选中的单选钮最多为（ ） A. 1 B. 2 C. 3 D. 5 23.CheckBox 的 Value 属性与 OptionButton 的 Value 属性主要区别在于（ ） A. 类型相同 B. CheckBox 为 Integer，OptionButton 为 Boolean C. CheckBox 为 Boolean，OptionButton 为 Integer D. 没有区别 24.已知 a = 10，b = 20，c = 15，则表达式 a + b > c And b - c < a Or c > b 的值为（ ） A. True B. False C. 1 D. 0 25.下列程序段运行后，变量 s 的值是 Dim a As Integer, b As Integer, s As Integer a = 8: b = 3 If a Mod 2 = 0 Then If b Mod 2 = 0 Then s = a + b Else s = a - b End If Else s = a * b End If（ ） A. 5 B. 11 C. 24 D. 0 26.下列程序段运行后，变量 x 的值是 Dim a As Integer, b As Integer, x As Integer a = 5: b = 12 If a > 10 Then x = 1 ElseIf b > 10 Then If a > 3 Then x = 2 Else x = 3 End If Else x = 4 End If（ ） A. 1 B. 2 C. 3 D. 4 27.在计时器 Timer1 中实现每 1 秒切换一次标签文字“欢迎”和“光临”，合理的做法是（ ） A. 在 Form_Load 中修改 Label1.Caption B. 在 Timer1_Timer 中判断并切换 Label1.Caption C. 在 Command1_Click 中修改 Label1.Caption D. 直接修改 Timer1.Caption 28.窗体上有 1 个 CheckBox1、2 个 OptionButton（Option1、Option2）和 1 个按钮 Command1，以下叙述正确的是（ ） A. CheckBox1 和 Option1 可以互相排斥 B. Option1 和 Option2 可以同时被选中 C. CheckBox1 的 Value 可以为 2 D. CheckBox1 的 Value 为 Boolean 型 29.下列程序段运行后，变量 m 的值是 Dim a As Integer, b As Integer, c As Integer, m As Integer a = 6: b = 8: c = 4 If a > b Then m = a Else If b > c Then m = b Else m = c End If End If（ ） A. 6 B. 8 C. 4 D. 0 30.下列程序段运行后，标签 Label1 中显示的内容是 Dim x As Integer, y As Integer x = 7: y = 14 If x > y Then Label1.Caption = "x > y" ElseIf x = y Then Label1.Caption = "x = y" Else If y Mod x = 0 Then Label1.Caption = "y 是 x 的倍数" Else Label1.Caption = "y 不是 x 的倍数" End If End If（ ） A. x > y B. x = y C. y 是 x 的倍数 D. y 不是 x 的倍数 二、填空题（本题共10道小题，每题2分，共20分） 1.在 Visual Basic 6.0 中，关系表达式“x 大于 y 且 x 小于 z”应写成 x > y ______ x < z。 2.逻辑运算符优先级高于 Or 但低于 Not 的是______。 3.单行 If 语句的格式为 If 条件 Then 语句，若需执行多条语句，应使用______结构。 4.Select Case 中，使用关键字______表示“大于等于”。 5.If...Then...ElseIf...Else 结构中，最多执行______个分支。 6.在嵌套 If 语句中，内层 If 的 End If 与最近的未配对的______配对。 7.要使计时器停止触发，除了设置 Enabled = False，还可以设置 Interval = ______。 8.Timer 控件在运行时通常______（可见/不可见）。 9.使用 Frame 控件对 OptionButton 进行分组后，不同组之间的单选钮______（可以/不可以）同时被选中。 10.复选框 CheckBox 的 Value 属性为 1 时，通常称为______状态。 三、程序填空题（本题共2道小题，每题10分，共20分） 1. 在窗体上放置一个文本框 Text1 和一个按钮 Command1，单击按钮时判断输入整数的正负和奇偶性，并在标签 Label1 中显示。请补充完善程序。 Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x > 0 Then If [1]______ Then Label1.Caption = "正奇数" Else Label1.Caption = [2]______ End If ElseIf x = 0 Then Label1.Caption = "零" Else If x Mod 2 = 0 Then Label1.Caption = [3]______ Else Label1.Caption = "负奇数" End If End If End Sub 2. 在窗体上放置一个 Timer 控件 Timer1、一个 Label1、一个 OptionButton（Option1，Caption 为“闪烁”）和一个 CheckBox（Check1，Caption 为“启用”）。要求勾选 Check1 并选中 Option1 时，标签每 0.5 秒在“欢迎”和“光临”之间切换。请补充完善程序。 Private Sub Form_Load() Timer1.Interval = [1]______ Timer1.Enabled = [2]______ End Sub Private Sub Check1_Click() Timer1.Enabled = [3]______ End Sub Private Sub Timer1_Timer() If [4]______ Then If Label1.Caption = "欢迎" Then Label1.Caption = "光临" Else Label1.Caption = "欢迎" End If End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $