vb程序设计语言与程序设计课件.ppt

《vb程序设计语言与程序设计课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第4章选择结构本章主要内容1、程序控制结构概述2、If语句3、SelectCase语句作业本章小结退出2021年9月1日根据结构化程序设计的要求，程序的基本结构有三种：（1）顺序结构（2）分支结构（选择结构）（3）循环结构（当型循环和直到型循环）三种基本结构的共同特点：（1）单入口，单出口；（2）结构中的每个部分都有可能被执行；（3）在给出合理的条件后，结构内不存在死循环。4.1程序控制结构概述上一页下一页返回本章首页2021年9月1日AB顺序结构条件AB真假分支结构各种结构的流程图上一页下一页返回本章首页2021年9月1日条件ATrueFalse条件AFalseTrue当

2、型循环直到型循环循环结构上一页下一页返回本章首页2021年9月1日1、If…Then语句（单分支）单行形式：If<条件>Then<语句块A>块形式：If<条件>Then<语句块A>EndIf4.2If语句False条件ATrue上一页下一页返回本章首页2021年9月1日2、If…Then…Else语句（双分支）单行形式：If<条件>Then<语句块A>Else<语句块B>块形式：If<条件>Then<语句块A>Else<语句块B>EndIf例题1：判断数的奇偶性li4_1.vbp条件AB真假2021年9月1日3、If语句的嵌套（多分支）If条件1ThenIf条件2Then…

3、…Else……EndIfElseIf条件3Then……EndIfEndIf举例应用见：P50例4.2P53例4.3P55例4.4上一页下一页返回本章首页2021年9月1日If条件1Then语句块A1ElseIf条件2Then语句块A2ElseIf条件3Then语句块A3……[Else语句块An+1]EndIf4、If…Then…ElseIf语句（多分支）举例应用见：P56例4.5条件1条件2条件3A1A2A3……TrueFalseTrueFalseTrueFalse多分支结构上一页下一页返回本章首页2021年9月1日4.3SeleceCase语句SelectCase测试表达

4、式Case表达式1语句块1Case表达式2语句块2……[CaseElse语句块n+1]EndSelect其中:测试表达式可以是：算术表达式或字符表达式；表达式1,表达式2……等是测试项，它们可以是：具体值。如：1，2，3数据范围。如8to20满足某个判断条件：Is>20、Is<=“P”测试项还可以是这三种形式的组合。SeleceCase语句格式：2021年9月1日SelectCase语句的流程图:语句块n+1表达式1表达式2表达式3语句块1语句块2语句块3TrueFalseTrueFalseTrueFalse…上一页下一页返回本章首页2021年9月1日SelectCase举

5、例见P59例4.7PrivateSubCommand1_Click()DimxAsIntegerx=CInt(Text1.Text)SelectCasexCaseIs>=90Text2.Text=“优秀"Case80To89(Is>=80)Text2.Text=“良好”CaseIs>=70Text2.Text=“中等"CaseIs>=60Text2.Text=“及格”CaseIs>=30Text2.Text=“补考”CaseElseText2.Text=“重修"EndSelectEndSub上一页下一页返回本章首页2021年9月1日作业：P615、6、7上机实训实训五上一页

6、下一页返回本章首页2021年9月1日本章小结Tab、Spc数据输出Print方法位置属性1、顺序结构：使用“标签”控件输出数据输入（1）数据输出：①Print方法对象名.Print{Spc(n)

7、Tab(n)}<表达式>[，

8、；]对象名：窗体、图片框、打印机等对象。使用位置属性位置属性CurrentX和CurrentY常用来把文本精确地输出到窗体、图片框或打印页上。格式：[对象名称].CurrentX[=x][对象名称].CurrentY[=y]2021年9月1日②使用“标签”控件的输出标签（Label）是VB中最常用的输出文本信息的工具，目前几乎完全取代了Print方法。

9、（2）数据输入A、使用“文本框”控件进行输入B、使用SetFocus方法，格式为：对象名.SetFocusC、与用户交互的函数和过程InputBox函数格式：变量=InputBox（<提示>[,<标题>][,<默认值>][,][,]）MsgBox函数和MsgBox过程格式：变量=MsgBox（<提示>[,<按钮>][,<标题>]）2021年9月1日3、分支结构单分支：If…Then…双分支：If…Then…Else…多分支：If…Then…ElseIf……EndIfSelectCase…