项目六 第17练 多行If...Then条件语句《Visual Basic 程序设计》（电工版第六版）一课一练

编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目六的第17练，内容涵盖项目六选择结构相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第17练 项目六 选择结构 任务二 多行If...Then条件语句 1、 单项选择题（本题共5小题） 1、在 Visual Basic 中，以下关于多行 If...Then 条件语句的说法，正确的是（ ） A. 多行 If...Then 结构必须以 ElseIf 开头 B. 多行 If...Then 结构必须以 End If 结尾 C. 多行 If...Then 结构中不能包含 Else 子句 D. 多行 If...Then 结构不能与逻辑运算符一起使用 【答案】 B 【解析】多行 If...Then 结构必须以 End If 结尾。 2、以下代码执行后，消息框显示的内容是（ ） Dim x As Integer x = 10 If x > 10 Then MsgBox "大于10" ElseIf x = 10 Then MsgBox "等于10" Else MsgBox "小于10" End If A. 大于 10 B. 等于 10 C. 小于 10 D. 无输出 【答案】B 【解析】变量x=10，不满足x>10，但满足x=10，因此执行该分支输出 “等于 10”。 3、关于 VB 多行 IF 语句和单行 IF 语句的区别，描述错误的是（ ） A. 多行 IF 语句可以包含多条执行语句，无需用冒号分隔 B. 多行 IF 语句必须以 End If 结束，单行 IF 语句不需要 C. 多行 IF 语句不能使用 ElseIf 分支，只能嵌套 IF D. 多行 IF 语句的结构更清晰，适合复杂的条件判断 【答案】 C 【解析】多行 IF 语句支持ElseIf分支，用于多条件判断，无需嵌套 IF。 4、执行以下代码后，消息框显示的内容是（ ） Dim ch As String ch = "8" If ch >= "0" And ch <= "9" Then MsgBox "数字字符" ElseIf ch >= "A" And ch <= "Z" Then MsgBox "大写字母" Else MsgBox "其他字符" End If A. 数字字符 B. 大写字母 C. 其他字符 D. 语法错误 【答案】 A 【解析】VB 中字符串按 ASCII 码比较，"8"在"0"和"9"之间，因此执行第一个分支，输出 “数字字符”。 5、以下代码运行后，变量 cnt 的值为（ ） Dim cnt As Integer Dim i As Integer cnt = 0 For i = 1 To 10 If i Mod 3 = 0 Then cnt = cnt + 1 ElseIf i Mod 5 = 0 Then cnt = cnt + 2 End If Next Print cnt A. 4 B. 5 C. 6 D. 7 【答案】 D 【解析】 If i Mod 3 = 0判断i是否为3的倍数； If i Mod 5 = 0判断i是否为5的倍数。 2、 填空题（本题共5小题） 1、VB 中，结束整个多行 IF 语句结构的关键字是________。 【答案】 End If 【解析】必须注意关键字中间有空格，写成ENDIF、Endif、END If等形式均为语法错误。 2、多行 IF 语句中，Else分支必须出现在所有________分支之后。 【答案】 ElseIf 【解析】Else是 “兜底” 分支，只能放在所有ElseIf之后，否则会触发语法错误。 3、VB 多行 IF 语句与单行 IF 语句的另一个区别是：多行 IF 执行多条语句时无需用________分隔，单行 IF 则需要。 【答案】 冒号 【解析】单行 IF 执行多条语句需用冒号分隔（如If x>5 Then MsgBox "OK": x=x+1），多行 IF 可直接换行写多条语句，无需冒号。 4、若多行 IF 语句用于判断闰年：能被 4 整除且不能被 100 整除，或能被 400 整除，嵌套 IF 的外层条件通常写为________，内层再判断是否能被 100 整除。 【答案】 year Mod 4 = 0 【解析】闰年判断的核心逻辑是 “先判断能被 4 整除”，再嵌套判断 “不能被 100 整除或能被 400 整除”，外层条件写year Mod 4 = 0可先过滤掉非 4 倍数的年份。 5、在多行 IF 语句中，若要判断字符ch是数字：0-9，条件需写为________。 【答案】 ch >= "0" And ch <= "9" 【解析】字符按 ASCII 码比较，判断数字需同时满足 “大于等于 0” 和 “小于等于 9”，逻辑与用And连接。 三、程序填空题 1、下列程序的功能实现 “判断字符ch是否为大写字母A-Z：是则输出‘大写字母’，否则输出‘非大写字母’”。 Dim ch As String ch = "M" If ___（1）___ Then MsgBox "大写字母" __（2）____ MsgBox "非大写字母" __（3）____ 【答案】 （1） ch >= "A" And ch <= "Z" （2） Else （3） End If 【解析】VB 中字符串按 ASCII 码比较，And连接 “大于等于 A” 和 “小于等于 Z”，实现大写字母判断。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $ 编写说明：考虑到中职学生普遍基础知识相对薄弱的情况，我们依据支架式教学理念，精心编制了《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练。专辑里的每一份练习，都与课堂所授知识点紧密相关，题目围绕课堂所学知识点呈现。目的在于激发学生的学习兴趣，培养他们的学习自觉性，帮助学生扎实掌握课程的基本概念与基本方法，为他们后续的进一步提升奠定坚实基础。 本卷是《Visual Basic程序设计（第6版）》(电子工业出版社)一课一练的项目六的第17练，内容涵盖项目六选择结构相关内容。 《Visual Basic程序设计(第6版)》(电子工业出版社)第17练 项目六 选择结构 任务二 多行If...Then条件语句 1、 单项选择题（本题共5小题） 1、在 Visual Basic 中，以下关于多行 If...Then 条件语句的说法，正确的是（ ） A. 多行 If...Then 结构必须以 ElseIf 开头 B. 多行 If...Then 结构必须以 End If 结尾 C. 多行 If...Then 结构中不能包含 Else 子句 D. 多行 If...Then 结构不能与逻辑运算符一起使用 2、以下代码执行后，消息框显示的内容是（ ） Dim x As Integer x = 10 If x > 10 Then MsgBox "大于10" ElseIf x = 10 Then MsgBox "等于10" Else MsgBox "小于10" End If A. 大于 10 B. 等于 10 C. 小于 10 D. 无输出 3、关于 VB 多行 IF 语句和单行 IF 语句的区别，描述错误的是（ ） A. 多行 IF 语句可以包含多条执行语句，无需用冒号分隔 B. 多行 IF 语句必须以 End If 结束，单行 IF 语句不需要 C. 多行 IF 语句不能使用 ElseIf 分支，只能嵌套 IF D. 多行 IF 语句的结构更清晰，适合复杂的条件判断 4、执行以下代码后，消息框显示的内容是（ ） Dim ch As String ch = "8" If ch >= "0" And ch <= "9" Then MsgBox "数字字符" ElseIf ch >= "A" And ch <= "Z" Then MsgBox "大写字母" Else MsgBox "其他字符" End If A. 数字字符 B. 大写字母 C. 其他字符 D. 语法错误 5、以下代码运行后，变量 cnt 的值为（ ） Dim cnt As Integer Dim i As Integer cnt = 0 For i = 1 To 10 If i Mod 3 = 0 Then cnt = cnt + 1 ElseIf i Mod 5 = 0 Then cnt = cnt + 2 End If Next Print cnt A. 4 B. 5 C. 6 D. 7 2、 填空题（本题共5小题） 1、VB 中，结束整个多行 IF 语句结构的关键字是________。 2、多行 IF 语句中，Else分支必须出现在所有________分支之后。 3、VB 多行 IF 语句与单行 IF 语句的另一个区别是：多行 IF 执行多条语句时无需用________分隔，单行 IF 则需要。 4、若多行 IF 语句用于判断闰年：能被 4 整除且不能被 100 整除，或能被 400 整除，嵌套 IF 的外层条件通常写为________，内层再判断是否能被 100 整除。 5、在多行 IF 语句中，若要判断字符ch是数字：0-9，条件需写为________。 三、程序填空题 1、下列程序的功能实现 “判断字符ch是否为大写字母A-Z：是则输出‘大写字母’，否则输出‘非大写字母’”。 Dim ch As String ch = "M" If ___（1）___ Then MsgBox "大写字母" __（2）____ MsgBox "非大写字母" __（3）____ 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 $