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

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第7卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：条件表达式，简单条件选择结构的程序设计，多分支条件选择结构的程序设计，计时器控件Timer，单选钮控件OptionButton，复选框控件CheckBox。 内蒙古对口招生《计算机类考纲百套卷》 第7卷 《Visual Basic程序设计》 选择结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，表示“a 不等于 b”的正确关系表达式是（ ） A. a # b B. a != b C. a >< b D. a <> b 【答案】D 【解析】VB 中使用 <> 表示不等于，!= 为 C/Java 风格，>< 与 # 不是合法运算符。 2.已知 a = True，b = False，则表达式 a And b 的值为（ ） A. True B. 0 C. 1 D. False 【答案】D 【解析】And 为逻辑与，仅当两个操作数均为 True 时结果才为 True，故为 False。 3.表达式 5 >= 3 的值是（ ） A. 5 B. 3 C. True D. False 【答案】C 【解析】>= 为大于等于，5>=3 成立，VB 中关系表达式结果为 True 或 False。 4.在 Visual Basic 6.0 的运算符中，优先级高于 And 的逻辑运算符是（ ） A. Xor B. And C. Or D. Not 【答案】D 【解析】逻辑运算符优先级由高到低依次为 Not > And > Or > Xor > Eqv > Imp。 5.单行 If...Then 语句的标准格式是（ ） A. If 条件 语句 End If B. If 条件 语句 C. If 条件 Then 语句 End If D. If 条件 Then 语句 【答案】D 【解析】单行 If 语句为 If 条件 Then 语句，无须 End If；块结构才需 End If。 6.块结构 If 语句结束时应使用的关键字是（ ） A. End B. Stop C. Exit If D. End If 【答案】D 【解析】块结构 If 语句必须以 End If 结束，否则会产生语法错误。 7.在 Select Case 语句中，表示“x 取值 1 到 5 的整数”的正确写法是（ ） A. Case [1,5] B. Case 1,5 C. Case 1-5 D. Case 1 To 5 【答案】D 【解析】Case 1 To 5 表示区间 1~5；1,5 只表示 1 和 5 两个离散值。 8.表达式 Not (3 > 5) 的值是（ ） A. 0 B. False C. 1 D. True 【答案】D 【解析】3 > 5 为 False，Not False 为 True。 9.若 x = 0，执行语句 If x > 0 Then y = 1 Else y = -1 后，y 的值为（ ） A. 1 B. -1 C. 0 D. 不确定 【答案】B 【解析】x > 0 不成立，执行 Else 分支，y = -1。 10.下列语句中用于实现多分支选择的是（ ） A. If...Then B. If...Then...Else C. If...Then...ElseIf...Else D. For...Next 【答案】C 【解析】If...Then...ElseIf...Else 和 Select Case 均可实现多分支；If...Then 仅单分支。 11.计时器控件 Timer 的 Interval 属性表示时间间隔，其单位是（ ） A. 秒 B. 分 C. 毫秒 D. 微秒 【答案】C 【解析】Interval 的单位为毫秒（ms），例如 1000 表示 1 秒。 12.要使计时器开始计时，应将其 Enabled 属性设置为（ ） A. 0 B. False C. True D. 1 【答案】C 【解析】Enabled 属性为 True 时 Timer 才生效，开始按 Interval 周期触发 Timer 事件。 13.计时器控件每隔一段时间自动触发的事件是（ ） A. Click B. Timer C. Change D. Load 【答案】B 【解析】Timer 控件的默认事件为 Timer 事件，按 Interval 间隔重复触发。 14.单选钮 OptionButton 被选中时，其 Value 属性值为（ ） A. 0 B. 1 C. True D. False 【答案】C 【解析】OptionButton 的 Value 为 Boolean 型，选中时为 True，未选中为 False。 15.复选框 CheckBox 的 Value 属性值为 2 时，表示该复选框处于（ ） A. 未选中 B. 选中 C. 灰色 D. 隐藏 【答案】C 【解析】CheckBox 的 Value 取 0（Unchecked）、1（Checked）、2（Grayed）。 16.在 Visual Basic 6.0 中，字符串比较 "ABC" > "AAA" 的值是（ ） A. True B. False C. 1 D. 0 【答案】A 【解析】字符串按字符 ASCII 码逐位比较，B 的 ASCII 大于 A，故 "ABC" > "AAA" 为 True。 17.已知 a = 5，b = 8，则表达式 a > b Or b > 10 的值为（ ） A. True B. False C. 1 D. 0 【答案】B 【解析】a > b 为 False，b > 10 为 False，False Or False 为 False。 18.表达式 3 > 2 Or 5 < 1 And 4 > 6 的值是（ ） A. True B. False C. 0 D. 1 【答案】A 【解析】And 优先级高于 Or，先算 5<1 And 4>6 为 False，再 3>2 Or False 为 True。 19.语句 If x = 5 Then y = 10 中，x = 5 是（ ） A. 赋值语句 B. 关系表达式 C. 算术表达式 D. 逻辑表达式 【答案】B 【解析】在 If 条件中，= 用于关系比较，判断 x 是否等于 5。 20.块结构 If 语句中，Else 后面的语句在何时执行（ ） A. 条件为 True 时 B. 条件为 False 时 C. 总是执行 D. 从不执行 【答案】B 【解析】当 If 条件为 False 时，执行 Else 分支；否则执行 Then 分支。 21.下列程序段运行后，变量 s 的值是 Dim a As Integer, b As Integer, s As Integer a = 5: b = 3 If a > b Then s = a - b Else s = a + b End If（ ） A. 2 B. 8 C. 5 D. 3 【答案】A 【解析】a > b 成立，执行 s = a - b = 5 - 3 = 2。 22.Select Case 语句中，Case Else 的作用是（ ） A. 结束 Select Case B. 处理所有未列出的情况 C. 表示没有 Case D. 开始 Select Case 【答案】B 【解析】Case Else 为默认分支，当所有 Case 均不匹配时执行。 23.在 Select Case 中，表示“x 大于等于 60”的正确写法是（ ） A. Case Is >= 60 B. Case >= 60 C. Case Is > 60 D. Case x >= 60 【答案】A 【解析】区间比较使用 Is 关键字，如 Case Is >= 60。 24.在 Visual Basic 6.0 中，If 语句可以嵌套，但每一层 If 最好与______配对（ ） A. Then B. Else C. End If D. ElseIf 【答案】C 【解析】块结构 If 必须以 End If 结束，嵌套时应注意配对，避免结构混乱。 25.计时器控件的 Interval 属性有效取值范围是（ ） A. 0 ～ 65535 B. 1 ～ 1000 C. 0 ～ 10000 D. 1 ～ 65535 【答案】A 【解析】Interval 为 0 ～ 65535 的整数，单位为毫秒；Interval 为 0 时停止触发。 26.单选钮 OptionButton 上显示的文本由其______属性决定（ ） A. Name B. Caption C. Text D. Value 【答案】B 【解析】Caption 控制控件表面显示文本，Name 为代码中使用的对象名。 27.在同一组单选钮中，最多只能有______个 OptionButton 的 Value 为 True（ ） A. 0 B. 1 C. 2 D. 多个 【答案】B 【解析】同一组 OptionButton 互斥，选中一个会自动取消其他选中状态。 28.用户单击单选钮 OptionButton 时触发的事件是（ ） A. Click B. Change C. DblClick D. Timer 【答案】A 【解析】OptionButton 响应 Click 事件，表示选中状态可能发生改变。 29.复选框 CheckBox 的 Value 属性默认值为（ ） A. 0 B. 1 C. 2 D. True 【答案】A 【解析】CheckBox 默认 Value = 0，即 Unchecked（未选中）。 30.用户单击复选框 CheckBox 时触发的事件是（ ） A. Click B. Change C. DblClick D. Timer 【答案】A 【解析】CheckBox 触发 Click 事件，可在事件中判断 Value 状态变化。 二、填空题（本题共10道小题，每题2分，共20分） 1.在 Visual Basic 6.0 中，表示“x 大于 y”的关系表达式为 x ______ y。 【答案】> 【解析】> 为大于运算符。 2.条件表达式由关系表达式和______运算符组合而成。 【答案】逻辑 【解析】条件表达式通常由关系表达式与逻辑运算符组合而成。 3.单行 If 语句中，如果条件为 True，执行______关键字后面的语句。 【答案】Then 【解析】If 条件 Then 语句，Then 后为条件成立时执行的语句。 4.在同一组单选钮中，选中一个会自动取消其他单选钮的选中状态，这种特性称为______。 【答案】互斥 【解析】同一组内的 OptionButton 具有互斥性，选中一个会自动取消同组其他单选钮的选中状态。 5.在多分支结构中，______语句适合判断一个表达式与多个固定值的匹配关系。 【答案】Select Case 【解析】Select Case 适合对单个表达式的多个离散值或区间进行判断。 6.在 Select Case 语句中，______子句用于处理所有其他不匹配的情况。 【答案】Case Else 【解析】Case Else 为默认分支。 7.在 If...Then...ElseIf...Else 结构中，最后的______分支用于处理所有条件都不成立的情况。 【答案】Else 【解析】Else 为兜底分支，当前面所有条件均不满足时执行。 8.计时器控件的______属性用于设置两次 Timer 事件之间的时间间隔。 【答案】Interval 【解析】Interval 以毫秒为单位设置触发周期。 9.复选框 CheckBox 的 Value 属性取值为 0 时，表示该复选框处于______状态。 【答案】未选中 【解析】Value 取 0 表示 Unchecked（未选中）。 10.复选框 CheckBox 的 Value 属性值为 1 时，表示该复选框处于______状态。 【答案】选中 【解析】CheckBox 的 Value 取 1 表示 Checked（选中）。 三、程序填空题（本题共2道小题，每题10分，共20分） 1.在窗体上放置一个按钮 Command1 和一个标签 Label1，单击按钮时生成 1 到 100 之间的随机整数，并判断其奇偶性，显示在标签中。请补充完善程序。 Private Sub Command1_Click() Dim n As Integer n = Int(Rnd * 100) + 1 If [1]______ Then Label1.Caption = n & "是偶数" Else Label1.Caption = n & "是奇数" End If End Sub 【答案】n Mod 2 = 0 【解析】n Mod 2 表示 n 除以 2 的余数，余数为 0 说明 n 是偶数；否则为奇数。 2.在窗体上放置一个 Timer 控件 Timer1 和一个标签 Label1，要求每隔 0.5 秒使标签向右移动 100 缇，当标签左边距超过 3000 时回到左边距 0。请补充完善程序。 Private Sub Form_Load() Timer1.Interval = [1]______ Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Label1.Left >= 3000 Then Label1.Left = [2]______ Else Label1.Left = Label1.Left + [3]______ End If End Sub 【答案】500；0；100 【解析】Interval 单位为毫秒，0.5 秒即 500；标签回到最左端为 0；每次移动 100 缇。多个空按顺序以分号分隔。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第7卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：条件表达式，简单条件选择结构的程序设计，多分支条件选择结构的程序设计，计时器控件Timer，单选钮控件OptionButton，复选框控件CheckBox。 内蒙古对口招生《计算机类考纲百套卷》 第7卷 《Visual Basic程序设计》 选择结构 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.在 Visual Basic 6.0 中，表示“a 不等于 b”的正确关系表达式是（ ） A. a # b B. a != b C. a >< b D. a <> b 2.已知 a = True，b = False，则表达式 a And b 的值为（ ） A. True B. 0 C. 1 D. False 3.表达式 5 >= 3 的值是（ ） A. 5 B. 3 C. True D. False 4.在 Visual Basic 6.0 的运算符中，优先级高于 And 的逻辑运算符是（ ） A. Xor B. And C. Or D. Not 5.单行 If...Then 语句的标准格式是（ ） A. If 条件 语句 End If B. If 条件 语句 C. If 条件 Then 语句 End If D. If 条件 Then 语句 6.块结构 If 语句结束时应使用的关键字是（ ） A. End B. Stop C. Exit If D. End If 7.在 Select Case 语句中，表示“x 取值 1 到 5 的整数”的正确写法是（ ） A. Case [1,5] B. Case 1,5 C. Case 1-5 D. Case 1 To 5 8.表达式 Not (3 > 5) 的值是（ ） A. 0 B. False C. 1 D. True 9.若 x = 0，执行语句 If x > 0 Then y = 1 Else y = -1 后，y 的值为（ ） A. 1 B. -1 C. 0 D. 不确定 10.下列语句中用于实现多分支选择的是（ ） A. If...Then B. If...Then...Else C. If...Then...ElseIf...Else D. For...Next 11.计时器控件 Timer 的 Interval 属性表示时间间隔，其单位是（ ） A. 秒 B. 分 C. 毫秒 D. 微秒 12.要使计时器开始计时，应将其 Enabled 属性设置为（ ） A. 0 B. False C. True D. 1 13.计时器控件每隔一段时间自动触发的事件是（ ） A. Click B. Timer C. Change D. Load 14.单选钮 OptionButton 被选中时，其 Value 属性值为（ ） A. 0 B. 1 C. True D. False 15.复选框 CheckBox 的 Value 属性值为 2 时，表示该复选框处于（ ） A. 未选中 B. 选中 C. 灰色 D. 隐藏 16.在 Visual Basic 6.0 中，字符串比较 "ABC" > "AAA" 的值是（ ） A. True B. False C. 1 D. 0 17.已知 a = 5，b = 8，则表达式 a > b Or b > 10 的值为（ ） A. True B. False C. 1 D. 0 18.表达式 3 > 2 Or 5 < 1 And 4 > 6 的值是（ ） A. True B. False C. 0 D. 1 19.语句 If x = 5 Then y = 10 中，x = 5 是（ ） A. 赋值语句 B. 关系表达式 C. 算术表达式 D. 逻辑表达式 20.块结构 If 语句中，Else 后面的语句在何时执行（ ） A. 条件为 True 时 B. 条件为 False 时 C. 总是执行 D. 从不执行 21.下列程序段运行后，变量 s 的值是 Dim a As Integer, b As Integer, s As Integer a = 5: b = 3 If a > b Then s = a - b Else s = a + b End If（ ） A. 2 B. 8 C. 5 D. 3 22.Select Case 语句中，Case Else 的作用是（ ） A. 结束 Select Case B. 处理所有未列出的情况 C. 表示没有 Case D. 开始 Select Case 23.在 Select Case 中，表示“x 大于等于 60”的正确写法是（ ） A. Case Is >= 60 B. Case >= 60 C. Case Is > 60 D. Case x >= 60 24.在 Visual Basic 6.0 中，If 语句可以嵌套，但每一层 If 最好与______配对（ ） A. Then B. Else C. End If D. ElseIf 25.计时器控件的 Interval 属性有效取值范围是（ ） A. 0 ～ 65535 B. 1 ～ 1000 C. 0 ～ 10000 D. 1 ～ 65535 26.单选钮 OptionButton 上显示的文本由其______属性决定（ ） A. Name B. Caption C. Text D. Value 27.在同一组单选钮中，最多只能有______个 OptionButton 的 Value 为 True（ ） A. 0 B. 1 C. 2 D. 多个 28.用户单击单选钮 OptionButton 时触发的事件是（ ） A. Click B. Change C. DblClick D. Timer 29.复选框 CheckBox 的 Value 属性默认值为（ ） A. 0 B. 1 C. 2 D. True 30.用户单击复选框 CheckBox 时触发的事件是（ ） A. Click B. Change C. DblClick D. Timer 二、填空题（本题共10道小题，每题2分，共20分） 1.在 Visual Basic 6.0 中，表示“x 大于 y”的关系表达式为 x ______ y。 2.条件表达式由关系表达式和______运算符组合而成。 3.单行 If 语句中，如果条件为 True，执行______关键字后面的语句。 4.在同一组单选钮中，选中一个会自动取消其他单选钮的选中状态，这种特性称为______。 5.在多分支结构中，______语句适合判断一个表达式与多个固定值的匹配关系。 6.在 Select Case 语句中，______子句用于处理所有其他不匹配的情况。 7.在 If...Then...ElseIf...Else 结构中，最后的______分支用于处理所有条件都不成立的情况。 8.计时器控件的______属性用于设置两次 Timer 事件之间的时间间隔。 9.复选框 CheckBox 的 Value 属性取值为 0 时，表示该复选框处于______状态。 10.复选框 CheckBox 的 Value 属性值为 1 时，表示该复选框处于______状态。 三、程序填空题（本题共2道小题，每题10分，共20分） 1.在窗体上放置一个按钮 Command1 和一个标签 Label1，单击按钮时生成 1 到 100 之间的随机整数，并判断其奇偶性，显示在标签中。请补充完善程序。 Private Sub Command1_Click() Dim n As Integer n = Int(Rnd * 100) + 1 If [1]______ Then Label1.Caption = n & "是偶数" Else Label1.Caption = n & "是奇数" End If End Sub 2.在窗体上放置一个 Timer 控件 Timer1 和一个标签 Label1，要求每隔 0.5 秒使标签向右移动 100 缇，当标签左边距超过 3000 时回到左边距 0。请补充完善程序。 Private Sub Form_Load() Timer1.Interval = [1]______ Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Label1.Left >= 3000 Then Label1.Left = [2]______ Else Label1.Left = Label1.Left + [3]______ End If End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $