VB4-3.4课件.ppt

一、单分支条件语句 （If…Then语句） 二、双分支条件语句 （If…Then…Else） 三、多分支条件语句 （If…Then…ElseIf） 四、情况语句 （Select Case语句）;4.3.1 单分支条件语句;2. If … Then 语句执行过程;4.3.2 双分支条件语句;执行过程： （1）判断“表达式”的值 （2）如果为True，则执行语句块1， 否则执行语句块2。;例：计算分段函数 Sin(x)+Sqr(x*x+1) , x0 Cos(x)-x^3+3*x , x=0 试用单分支结构和双分支结构来实现。; Sin(x)+Sqr(x*x+1) , x0 Cos(x)-x^3+3*x , x=0;4.3.3 多分支条件语句;F;例4-4;4.3.4 IF语句的嵌套; ;;4.4.5 情况语句;; ;例：例4-7（只考虑条件(1)(2)）;;用多分支结构实现 If strC =a And strC =z Or _ strC =A And strC =Z Then Print strC + Is Alpha Character ElseIf strC =0 And strC =9 Then Print strC + Is Numeral Character Else Print strC + Other Character End If ;例：用情况语句实现字符判断问题。 代码如下：;;例4-8：对文本框中输入的字符进行转换 ;;Select Case 结构与If多分支结构的区别;4.4 循环结构程序设计; ; 如果事先已知循环次数，则可使用For循环语句 1. For循环语句格式 For 循环变量=初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next 循环变量; ;0 初值终值 (=1 时,可省略) 0 初值终值 =0 死循环;;Private Sub Form_Click() Dim i As Integer Dim iSum As Long iSum = 0 For i = 1 To 100 iSum = iSum + i*i Next i Print iSum End Sub;注意;例：Dim i As Integer, k As Integer, n As Integer n = -3 For i = 10 To 1 Step n i = i + 2 n = 3 k = k + 1 Print i, Next i Print Print k: Print n ‘k表示循环次数; ;例：用Do While…Loop循环求1到100的平方和。; ;例：用Do …Loop While循环求1到100的平方和。; ;例：用Do …Loop Until 循环求1到100的平方和。;（4）Do Until …Loop;F; ;例：用Do …Loop 循环求1到100的平方和。;n=1;n=1;例4-13： 求自然数的最大公约数—辗转相除法 算法： 用自然语言描述为 S1：输入两个自然数M、N，使MN; S2：求M除以N的余数R； S3：若R=0，则N即为所求，算法结束； 否则，执行S4； S4：N=M；R=N; S5：继续执行S2，直到R=0。;算法用传统流程图描述为：;100 mod 28 = 16; 所谓循环嵌套，就是在一个循环体内又包括另一个完整的循环结构。;循环嵌套基本结构：;例如