选择结构〔2008.04.23〕.pptVIP

选择结构 2008年4月22日 1、选择结构：就是根据不同的条件，从几个分支中选择某一分支执行相应操作的程序流程结构。选择结构是通过条件语句来实现的。 2、单行结构条件语句： 应用举例： 3、块结构条件语句：以上两种结构适用于两分支的情形。 例3、设计一个程序，在程序界面上输入a、b、c三个数，求解一元二次方程ax2+bx+c=0(a≠0)。 程序界面 流程图 程序代码:①“计算”按钮的程序代码Private Sub CmdCalculate_Click ( ) Dim a As Single, b As Single , c As Single , d As Single  a=Val(TxtA.Text) b=Val(TxtB.Text) c=Val(TxtC.Text) d=b*b-4*a*cIf d=0 Then X1=(-b+Sqr(d))/(2*a) X2=(-b-Sqr(d))/(2*a) LblX1.Caption=X1 LblX2.Caption=X2Else LblX1.Caption =此方程无实根 LblX2.Caption =此方程无实根End IfEnd Sub ②“清除”按钮的程序代码 Private Sub CmdClear_Click( )TxtA.Text= TxtB.Text= TxtC.Text= TxtA.SetFocus LblX1.Caption= LblX2.Caption= End Sub ③“退出”按钮的程序代码Private Sub CmdQuit_Click( ) k=MsgBox(确实要退出此程序吗？,vbYesNo+vbQuestion,解方程) If k=vbYes Then End End Sub 任务： 1、编写一个程序，在文本框Text1中任意输入一个实数，求其绝对值。  2、编写程序，任意输入一个整数，判断该数是奇数还是偶数，并输出。 X/2=X\2 或 Fix(X/2)=X/2 或 X Mod 2=0 3、输入3个不同的数，输出其中的最大数。 4、从键盘上输入a、b、c三个值，判断它们能否构成三角形的3个边。如果能构成个三角形，则计算三角形的面积。如果不能构成三角形，则显示“不能构成三角形”的信息。 条件：(a+bc) And (b+ca) And (c+ab) 5、从键盘上输入年份，判断是“平年”或是“闰年”，并输出。闰年的判定条件： (year Mod 4=0) And (year Mod 1000) Or (year Mod 400=0) 或者 (year/4=year\4) And (year/100year\100) Or (year/400=year\400) 例6、①打开F:\会考\XXX考生文件夹下的工程文件ex15.vbp，在窗体Form1上添加一个命令按钮Command1(其“名称”属性为Command1)，在属性窗口中将其“Caption”属性设置为“房价”。 ②完善程序(注意：不要删除注释语句)。某市房地产价格随地理位置不同而不同，如下图所示，图中坐标原点为市中心，阴影部分房价为5000元每平方米，阴影以个部分的房价为3000元每平方米。在文本框Text1、Text2中分别输入某房屋的x，y坐标，单击“房价”按钮时将房屋每平方米的价格打印在窗体上。 Private Sub Command1_Click() Dim x As Single, y As Single x=Val(Text1.Text) y=Val(Text2.Text) If (x=-10 And x=10) And (y=-10 And y=10) Then Print 房屋位置（;x;，;y;），每平方米5000元。 Else Print 房屋位置（;x;，;y;），每平方米3000元。 End If End Sub 5、多分支选择结构(嵌套If语句)：说明：如果“条件表达式1”为True，则执行语句块1；否则如果“条件表达式2”为True，则执行语句块2；否则执行语句块3。 6、应用举例：例1、编写一个程序，根据输入的x值，计算y值。 分析：这是一个三支选择结构问题，可以采用多分支选择结构处理。  Print Sub Cmdcalculate_Click( )