选择结构(2008.04.23).ppt

选择结构,2008年4月22日,1、选择结构：就是根据不同的条件，从几个分支中选择某一分支执行相应操作的程序流程结构。选择结构是通过条件语句来实现的。 2、单行结构条件语句：,If 条件表达式 Then 语句 If 条件表达式 Then 语句1 Else 语句2,应用举例：,例1: If a0 Then x=Sqr(a),Private Sub CmdCalculate_Click() Dim x , y As single x=Val(Text1.Text) If x=0 Then y=x2 Else y=Abs(x) Print “y=“;y End Sub,3、块结构条件语句： 以上两种结构适用于两分支的情形。,If 条件表达式 Then 语句块1 Else 语句块2 End If,4、选择结构流程图,例3、设计一个程序，在程序界面上输入a、b、c三个数，求解一元二次方程ax2+bx+c=0(a0)。 程序界面,流程图,程序代码: “计算”按钮的程序代码 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*c If d=0 Then X1=(-b+Sqr(d)/(2*a) X2=(-b-Sqr(d)/(2*a) LblX1.Caption=X1 LblX2.Caption=X2 Else LblX1.Caption =“此方程无实根“ LblX2.Caption =“此方程无实根“ End If End 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=X2 或 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=year4) And (year/100year100) Or (year/400=year400),10x10, 10y10,例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) Then Print “房屋位置（“;x;“，“;y;“），每平方米5000元。“ Else Print “房屋位置（“;x;“，“;y;“），每平方米3000元。“ End If End Sub,程序代码：,5、多分支选择结构(嵌套If语句)： 说明：如果“条件表达式1”为True，则执行语句块1；否则如果“条件表达式2”为True，则执行语句块2；否则执行语句块3。,If 条件表达式1 Then 语句块1 ElseIf 条件表达式2 Then 语句块2 Else 语句块3 End If,6、应用举例： 例1、编写一个程序，根据输入的x值，计算y值。 分析：这是一个三支选择结构问题，可以采用多分支选择结构处理。,Print Sub Cmdcalculate_Click( ) Dim x As Single , y As Single x=Val(Text1.Text) If x=-1 And x=1 Then y=x*x Else y=-x+2 End If Text2.Text=y End Sub,例2、在VB提供的窗体Form1中，利用文本框Text1输入任意一个数字，判断其是“正数”、“负数”，还是“零”。然后输出。 Private Sub Command1_Click( ) Dim A As Single , X As String A=Val(Text1.Text) If A0 Then X=“正数“ If A=0 Then X=“零“ If A0 Then X=“负数“ Print X End Sub,例3、在文本框Text1、Text2、Text3中任意输入3个实数，求出其中的最大数。 算法设计：先比较两数大小，把大数放入变量Max中，用Max中的数与第三数比较，再把大数放入变量Max中，即可求出三数中的最大数。 Private Sub Command1_Click( ) Dim a As Single , b As Single ,c As Single Dim Max As Single a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If ab Then Max=a Else Max=b End If If cMax Then Max=c Print Max End Sub,问题： 如果是4个、5个数，如何求出 其中最大数？ 如何要求出其中的最小数，该 怎么办？,例4、利用文本框Text1、Text2、Text3输入任意三个数，单击窗口中的“输出”按钮，在窗体上按从小到大的顺序输出结果。 分析：以下面3数为例加以说明。 a b c 12 9 5 第一次比较：9 12 5 第二次比较：5 12 9 第三次比较：5 9 12,比较两数的大小，若前一数大于后一数，则交换两变量的值。否则保持不变。,Private Sub Cmd_Output_Click( ) Dim A As Single, B As Single Dim C As Single, Q As Single A=Val(Text1.Text) B=Val(Text2.Text) C=Val(Text3.Text) If AB Then Q=A:A=B:B=Q If AC Then Q=A:A=C:C=Q If BC Then Q=B:B=C:C=Q Print A , B , C