if语句嵌套的.ppt

;YES;Private Sub Text2_Change() Dim h as single Dim m as single,m1 as single H=text1.text M=text2.text If h=130 then m1=0 else If h=150 then m1=m/2 else m1=m End if End if Text3.Text = m1 End sub ;;;;程序： CLS START: INPUT “A STU’S SCORE:” ; S IF S0 OR S100 THEN GOTO START ELSE IF S=90 THEN PRINT “YOU XIU” ELSE IF S= 80 THEN PRINT “LIANGHAO” ELSE IF S= 70 THEN PRINT “YI BAN” ELSE IF S= 70 THEN PRINT “JIGE” ELSE PRINT “BU JIGE” END IF END IF END IF END IF END IF END ;If 条件语句的嵌套（复杂的IF块条件语句）;开始;;Cls Input “enter a,b,c:”a,b,c If a=0 then if b=0 then if c=0 then print “x is any number.” else print “x is no exist.” else x=-c/b print “x=“;x end if else d=b^2-2*a*c if d=0 then p=-b/(2*a) q=sqr(d)/(2*a) x1=p+q x2=p-q print “x1=“;x1 print “x2=“;x2 else print “ther is no real root.” End if End if