VB资源包第4章选择结构.pptxVIP

下载本文档

0
0
约3.29千字
约 53页
2025-12-30 发布于陕西
举报
版权申诉

VB资源包第4章选择结构.pptx

1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
7、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

选择结构:根据条件成立与否，决定要执行的语句。

★类型

①条件表达式/逻辑表达式/条件函数IIF()

②If…Then/If…Then…Else语句

③多分支语句：

阶梯:If…Then…ElseIf

情况:SelectCase

④:条件嵌套;4.1条件语句

4.1.1单分支结构;从键盘输入任意输入一个数，求其绝对值。

PrivateSubCommand1_Click()

Dima!

a=InputBox(请输入一个数：)

Ifa0Then

a=-a

EndIf

Printa

EndSub;例:已知两个数x和y，比较它们的大小，使得xy。;如何实现xy？;练习;【格式】;例：计算分段函数;用双分支结构实现:;y=Cos(x)+Sqr(2*x*x+1)

Ifx0Theny=Sin(x+1)-x^2+5*x;练习1;条件函数;练习2;多分支结构流程图;If表达式1Then

语句块1

ElseIf表达式2Then

语句块2

…

[Else

语句块n+1]

EndIf;例：已知百分制成绩mark，要求显示对应的五级制哪些正确，哪些错误？;方法三

Ifmark60Then

Print不及格

ElseIfmark70Then

Print及格

ElseIfmark80Then

Print中

ElseIfmark90Then

Print良

Else

Print优

EndIf;Choose函数;4.2.2SelectCase语句(情况分支语句);Case子句表达式

;例输入百分制成绩mark，显示对应的五级制成绩。;4.3选择结构的嵌套;例：已知x,y,z三个数，使得xyz。;流程图XYZ;【例】求一元二次方程ax2+bx+c=0的根。;属性设置;事件代码;事件代码;1）如果a=0，则不是二次方程，此时如果b=0，则提示重新输入系数；如果b≠0，则:x=-c/b2)如果a≠0，且b2-4ac=0，则有两个相等的实根3)如果a≠0，且b2-4ac0，则有两个不等的实根4)如果a≠0，且b2-4ac0，则有两个共轭复根

;PrivateSubCommand1_Click()

IfNotIsNumeric(Text1.Text)OrNotIsNumeric(Text2.Text)OrNotIsNumeric(Text3.Text)Then

MsgBox不是数字，重新输入Text1.Text=：Text2.Text=：Text3.Text=

Else

a=Val(Text1.Text)：b=Val(Text2.Text)

c=Val(Text3.Text)Ifa=0Then

Ifb=0ThenIfc=0ThenX1=无穷解ElseX1=无解EndIf

;Else‘b≠0

X1=-c/bEndIfElse‘a≠0

k=b^2-4*a*cIfkOThenX1=(-b+Sqr(k))/(2*a)X2=(-b-Sqr(k))/(2*a)ElseIfk=0ThenX1=-b/(2*a):X2=-b/(2*a)ElseX1=-b/(2*a)+Sqr(-k)/(2*a)iX2=-b/(2*a)-Sqr(-k)/(2*a)iEndIfEndIf

EndIfText4.Text=X1:Text5.Text=X2EndSub

;

某航空公司规定：在旅游旺季7-9月，如果订票超过20（含20）张，优惠票价的15%；订票20张以下优惠票价的5%。在旅游淡季1-4月、11月、12月，如果订票超过20（含20）张，优惠票价的30%；订票2