vb程设第3章 选择结构程序设计

《vb程设第3章 选择结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VisualBasic程序设计基础第3章选择结构程序设计计算机学院黄文斌123huangwenbin@163.comVisualBasic程序设计基础基本概念及语法逻辑型数据、逻辑运算符与表达式逻辑型数据用于逻辑判断只有True与False两个值将逻辑数据转换成整型时：True为-1False为0其它数据转换成逻辑数据时：非0为True0为FalseVisualBasic程序设计基础基本概念及语法逻辑运算符与表达式逻辑运算符Not（非）And（与）Or（或）Xor（异或）Eqv（等价）Imp（包含）Visua

2、lBasic程序设计基础If语句1.If…Then…（单分支）格式1（单行格式）If<条件表达式>Then语句体格式2（块格式）真假条件If<条件表达式>Then语句体语句体EndIfVisualBasic程序设计基础If语句真假1、If…Then…（单分支）条件说明语句体（1）条件表达式通常为关系表达式或逻辑表达式也可为算术表达式：非零表示True；零表示False当条件成立（即其值为True）时，执行语句体的内容。（2）语句体一条或多条语句格式1：语句的所有内容必须写在一行格式2：语句可写在多行Visua

3、lBasic程序设计基础示例例3.1用输入函数（InputBox）输入一个数，若该数大于0，就在标签Label1内显示“正数”，否则不显示。PrivateSubCommand1_Click()DimaAsSingleLabel1.Caption=""a=InputBox("请输入一个数","输入")Ifa>0ThenLabel1.Caption=“正数!"EndIfEndSubVisualBasic程序设计基础If语句2、If…Then…Else…（双分支）格式1：单行格式If<条件表达式>Then语句体1E

4、lse语句体2格式2：块格式：真假If<条件表达式>Then条件语句体1语句体1语句体2Else语句体2EndIf说明：当条件表达式为True时，执行语句体1，否则执行语句体2。VisualBasic程序设计基础示例例3.2输入一个年份，判断是否闰年。闰年的年份可以被4整除但不能被100整除，或者能被400整除。PrivateSubForm_Activate()DimYearAsIntegerDimIsLeapYearAsBooleanYear=CInt(InputBox("请输入一个年份："))IsLeap

5、Year=_((YearMod4=0)AndYearMod100<>0)Or_(YearMod400=0)PrintIfIsLeapYearThenPrintTab(10);Year;"是闰年。"ElsePrintTab(10);Year;"不是闰年。"EndIfEndSubVisualBasic程序设计基础If语句3.If…Then…ElseIf…（多分支）格式:If<条件表达式1>Then语句体1ElseIf<条件表达式2>Then语句体2……Else语句体nEndIf说明：根据多个条件表达式的结果进行判

6、断，产生多个执行分支。VisualBasic程序设计基础多分支结构VisualBasic程序设计基础示例例3.3某商场购物做商品金额累计打折活动。累计购物金额不足(不含)1000元按原价算；介于1000到2000(含1000，不含2000)打9折；介于2000到3000(含2000，不含3000)打8折；3000以上(含3000)打7折。设计一个程序，输入原金额后，按以上的打折规定自动计算出实际应付金额。PrivateSubForm_Activate()DimPriceAsSingle,DiscountAsS

7、inglePrice=Val(InputBox("请输入价格"))IfPrice<1000ThenDiscount=0ElseIfPrice<2000ThenDiscount=0.1ElseIfPrice<3000Then请换一种Discount=0.2检测顺序ElseDiscount=0.3EndIfPrint"实际应付金额："&Price*(1-Discount)EndSubVisualBasic程序设计基础SelectCase语句属于多分支开关语句格式：SelectCase<测试表达式>Case表达式列

8、表1语句体1Case表达式列表2语句体2……[CaseElse语句体n]EndSelectVisualBasic程序设计基础SelectCase语句说明根据SelectCase“测试表达式”中的结果与各Case子句中的值比较决定执行哪一组语句块。如果有多个Case短语中的值与SelectCase“测试表达式”的结果匹配，则执行第一个与之匹配的语句块。VisualBasic程序设计基础SelectCa