第6章 程控制结构.pptVIP

6.1.1 单行结构条件语句 1.单分支IF语句 语法格式一：If 条件 Then 语句 语法格式二：If 条件 Then 语句块 End If 单分支IF语句的执行流程是首先判断条件，若条件成立，则执行Then后面的语句或语句块，否则，执行下一条语句。流程图如6-1所示。 例6.1 从键盘任意输入两个数，按由小到大的顺序显示在当前窗体上。 Private Sub Form_Click( ) Dim x As Single, y As Single , t As Single x=Val(InputBox(“输入x的值”,”输入框1”)) y= Val (InputBox(“输入y的值”,”输入框2”)) If xy then t=x x=y y=t end if print x,y End Sub 2.二分支IF语句 语法格式一：If 条件 Then 语句1 Else 语句2 语法格式二：If 条件 Then 语句块1 Else 语句块2 End if 执行二分支IF语句时，首先判断条件，若条件成立，则执行Then后面的语句1或语句块1，否则，执行Else后面的语句2或者语句块2。流程图如6-3所示。 例6.2 编写一个函数，求两个数中的较大数。 Private Function MaxValue1 (a As Integer,b As Integer) As Integer If a b Then MaxValue1 = a Else MaxValue1 = b End Function 例6.3 从键盘输入年份，判断该年份是否闰年。判断闰年的条件是年份能被4整除，但不能被100整除；或者能被400整除。 Private Sub Form_Click ( ) Dim year As Integer year=Val(InputBox(“请输入年份”,”输入框”)) Print 您输入的年份是：; year; 年 If (year Mod 4=0 And year Mod 100 0 ) Or (year Mod 400=0) then Print “该年份是闰年” Else Print “该年份不是闰年” End If End Sub 1. 块结构条件语句 语法格式： If 条件1 Then 语句块1 [ElseIf 条件2 Then 语句块2 ] [ElseIf 条件3 Then 语句块3 ] …… [Else 语句块n] End If 例6.4 函数y= ０ (x=0) ，根据x的数值，对变量y进行赋值。 　　　　　 １ (x0) 程序代码如下： if x0 then y = -1 elseif x=0 then y = 0 else y=1 end if 例 6.5 求解一元二次方程ax2+bx+c=0的实根x1、x2。 Private Sub Form_Click ( ) Dim a As Single ,b As Single , c As Single, s As Single,x1,x2 As Single a= Val(InputBox(“提示”,”输入方程的第一个系数”)) b= Val(InputBox(“提示”,”输入方程的第二个系数”)) c= Val(InputBox(“提示”,”输入方程的第三个系数”)) s=b^2-4*a*c If s0 Then x1=(-b+sqr(s))/(2*a) x2=(-b-sqr(s))/(2*a) print “方程的两个不相等实根分别为：”;x1