大学生VB程序与设计第四章教案分析.pptVIP

* * * * * * * * * * * * * * * * * * For i = 1 To 9 For j = 1 To se = i × j = i * j Picture1.Print Tab((j - 1) * 9 + 1); se; Next j Picture1.Print Next i 例 打印乘法九九表 i 外循环控制打印行数，内循环控制打印列数 循环次数: 1+2+3+4+5+6+7+8+9=45 1 10 19 换行 不换行 例 输出100到300间的所有素数 Sub Form_Click( ) For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 swit = 0 While i = k And swit = 0 If n Mod i = 0 Then swit = 1 Else i = i + 1 End If Wend If swit = 0 Then d = d + 1 If d Mod 5 = 0 Then Print n; ; Print Else Print n; ; End If End If Next n End Sub 出口语句 例 Sub Form_Click() Dim I, Num Do For I = 1 To 1000 Num = Int(Rnd * 100) Print Num; Select Case Num Case 7: Exit For Case 29: Exit Do Case 54: Exit Sub End Select Next I Print Exit For Loop Print exit Do End Sub 4.8　转移控制语句 1　GoTo语句 GoTo　{标号 | 行号} 以英文字母开头，以冒号：结束 数字组成，后面不能有冒号 2　On-GoTo语句 On 数值表达式　GoTo 行号表列 | 标号表列 例如： On x GoTo 30，50，Line3，Line4 其功能为:根据数值表达式的值,把控制转 移到几个指定的语句中的一个语句行。 4.9 常用算法（一） 算法是对某个问题求解过程的描述 1.累加、连乘 1～100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum 3～10的乘积 t = 1 For i =3 To 10 t = t * i Next i Print t 思考：若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？ 例 求自然对数e的近似值,要求其误差小于0.00001，近似公式为: 该例题涉及两个问题： （1）用循环结构求级数和的问题。本例根据某项值的精度来控制循环的结束与否。 （2）累加：e=e+t 循环体外对累加和的变量清零 e=0 连乘：n=n*i 循环体外对连乘积变量置1 n=1 Private Sub Form_Click() Dim i%,n, t!, e! e = 0 : n = 1 ‘ e存放累加和、n存放阶乘 i = 0 : t = 1 ‘ i计数器、t第i项的值 Do While t 0.00001 e =