项目六 第18练 If语句的嵌套《Visual Basic 程序设计》（电工版第六版）一课一练

编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目六的第18练，内容涵盖项目六选择结构相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第18练 项目六 选择结构 任务三 If语句的嵌套 1、 单项选择题（本题共5小题） 1、把嵌套 If 改写成单行时，必须保留的关键字是（ ） A. End If B. ElseIf C. Else D. Then 2、关于深层嵌套 If 的性能与可读性，下列说法正确的是( ) A. 嵌套层数越多，执行速度一定越快 B. 超过 3 层嵌套会触发编译错误 C. 应尽量用 Select Case 或逻辑运算符减少嵌套深度 D. VB 对嵌套深度有限制，最多 5 层 3、下列关于 VB 中 IF 语句嵌套的描述，正确的是（ ） A. IF 语句嵌套时，内层 IF 必须完全包含在外层 IF 的某一分支中，不能交叉 B. 嵌套的 IF 语句最多只能嵌套 2 层，超过会触发语法错误 C. 内层 IF 的End If可省略，仅保留外层的End If D. 嵌套 IF 中，Else子句默认匹配最近的外层 IF 4、在块嵌套 If 中，Else 总是与（ ） A. 最内层尚未配对的 If 配对 B. 最外层 If 配对 C. 同一行的 If 配对 D. 用户可用缩进随意指定配对 5、执行以下代码后，变量 m 的值是( ) m = 0 If 5 > 3 Then If 2 > 4 Then m = 1 Else m = 2 Else m = 3 End If A. 0 B. 1 C. 2 D. 3 2、 填空题（本题共4小题） 1、在 VB 块 IF 语句的嵌套中，每一层嵌套的块 IF 都必须有对应的_______关键字结尾，否则会出现语法错误。 2、当把“嵌套块 IF”改写成“单行 IF”时，必须去掉的关键字是________。 3、单行 IF 嵌套另一个单行 IF 时，多个Then后的语句之间需用_______符号分隔，保证整体仍为单行结构。 4、执行下列程序后，Max的值为_______ Private Sub Command1_Click() Dim a As Integer, b As Integer, max As Integer a = 7: b = 9 If a > b Then max = a Else If b > 8 Then max = b * 2 Else max = b End If Print max End Sub 三、程序填空题 1、补全以下代码，实现 “判断用户输入的数：正数时判断是否为偶数，偶数输出‘正偶’，奇数输出‘正奇’；负数输出‘Dim num As Integer Dim num As Integer num = Val(InputBox("请输入整数：")) If num > 0 Then __(1)____ Print "正偶" __(2)____ Print "正奇" __(3)____ ___(4)___ num < 0 Then Print "负数" Else Print "零" End If 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $ 编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目六的第18练，内容涵盖项目六选择结构相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第18练 项目六 选择结构 任务三 If语句的嵌套 1、 单项选择题（本题共5小题） 1、把嵌套 If 改写成单行时，必须保留的关键字是（ ） A. End If B. ElseIf C. Else D. Then 【答案】 D 【解析】Then是单行 IF 语句（无论是否嵌套）的核心必选关键字，语法结构If 条件 Then 语句中，Then是分隔 “条件” 和 “执行语句” 的标志 。 2、关于深层嵌套 If 的性能与可读性，下列说法正确的是( ) A. 嵌套层数越多，执行速度一定越快 B. 超过 3 层嵌套会触发编译错误 C. 应尽量用 Select Case 或逻辑运算符减少嵌套深度 D. VB 对嵌套深度有限制，最多 5 层 【答案】 C 【解析】用Select Case替代多层 IF 嵌套，代码更简洁易读。 3、下列关于 VB 中 IF 语句嵌套的描述，正确的是（ ） A. IF 语句嵌套时，内层 IF 必须完全包含在外层 IF 的某一分支中，不能交叉 B. 嵌套的 IF 语句最多只能嵌套 2 层，超过会触发语法错误 C. 内层 IF 的End If可省略，仅保留外层的End If D. 嵌套 IF 中，Else子句默认匹配最近的外层 IF 【答案】 A 【解析】VB 对 IF 嵌套层数无硬性限制，每一层 IF（无论内外层）都必须有对应的End If，缺一不可；Else子句默认匹配最近的未闭合IF，而非外层 IF。 4、在块嵌套 If 中，Else 总是与（ ） A. 最内层尚未配对的 If 配对 B. 最外层 If 配对 C. 同一行的 If 配对 D. 用户可用缩进随意指定配对 【答案】 A 【解析】Else（或ElseIf）总是与其前面最近的、尚未配对的If 进行匹配。 5、执行以下代码后，变量 m 的值是( ) m = 0 If 5 > 3 Then If 2 > 4 Then m = 1 Else m = 2 Else m = 3 End If A. 0 B. 1 C. 2 D. 3 【答案】 C 【解析】块 IF 嵌套的执行顺序：先外层、后内层，外层条件为 True 时才执行内层逻辑；5>3为 True，2>4为 False，最终触发m=2的赋值。 2、 填空题（本题共4小题） 1、在 VB 块 IF 语句的嵌套中，每一层嵌套的块 IF 都必须有对应的_______关键字结尾，否则会出现语法错误。 【答案】 End If 【解析】IF块语句需要以End If结束。 2、当把“嵌套块 IF”改写成“单行 IF”时，必须去掉的关键字是________。 【答案】End If 【解析】单行IF语句没有End If。 3、单行 IF 嵌套另一个单行 IF 时，多个Then后的语句之间需用_______符号分隔，保证整体仍为单行结构。 【答案】 冒号 【解析】外层条件a>b（7>9）→ False;内层条件b>8（9>8）→ True。 4、执行下列程序后，Max的值为_______ Private Sub Command1_Click() Dim a As Integer, b As Integer, max As Integer a = 7: b = 9 If a > b Then max = a Else If b > 8 Then max = b * 2 Else max = b End If Print max End Sub 【答案】18 【解析】外层条件a>b（7>9）→ False;内层条件b>8（9>8）→ True。 三、程序填空题 1、补全以下代码，实现 “判断用户输入的数：正数时判断是否为偶数，偶数输出‘正偶’，奇数输出‘正奇’；负数输出‘Dim num As Integer Dim num As Integer num = Val(InputBox("请输入整数：")) If num > 0 Then __(1)____ Print "正偶" __(2)____ Print "正奇" __(3)____ ___(4)___ num < 0 Then Print "负数" Else Print "零" End If 【答案】 （1） If num Mod 2 = 0 Then （2） Else （3） End If （4） ElseIf 【解析】内层 IF 判断奇偶，外层用ElseIf区分负数场景，逻辑层级清晰。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $