[理学]第4章 控制结构.ppt

【例4-20】编程打印“九九乘法表” Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 9 控制行 For j = 1 To i 控制列 Print i × j = i * j ; 输出每一个乘法等式项 Next j Print 换行 Next i End Sub 4.4常用算法 4.4.1 累加、连乘 4.4.2 输出定位 4.4.3 穷举法 4.4.4 递推法 4.4.5 数字处理 4.4.1 累加、连乘 累加：是在原来和的基础上再加一个数，并重复此操作。累加分为数值累加和字符串累加。 算法：Sum=Sum+F(i) 如：Sum=Sum+i str=str F(i) 或 str=str+F(i) i是循环变量 连乘：是在原有积的基础上再乘以一个数，并重复此操作。 算法： Sum=Sum*F(i) 如：Sum=Sum*i 说明：要注意的是，存放累加或连乘结果的变量初值应在循环语句前设置。 如：sum=0 for i=1 to 10 …… 【例4-21】编程求Sum=1+（1+2）+（1+2+3）+…（1+2+3+…+n），其中n由用户输入。 分析：该题是一个累加问题，共有n项相加，存放累加和的变量为Sum；而对于第i个累加项1+2+…+i，又是一个累加问题，存放该累加和的变量为Sum1。 本题需要采用双重循环。外循环变量i依次取1、2、…n；内循环变量j依次取1、2、…i。 Private Sub Form_Click() N = InputBox(请输入欲求的项数：) Sum = 0 存放所有项的累加和变量，置初值0 For i = 1 To N Sum1 = 0 存放每一项的累加和变量 在计算每个累加项之前，将其值清零 For j = 1 To i Sum1 = Sum1 + j 求每一项累加和的语句 Next j Sum = Sum + Sum1 求所有项累加和的语句 Next i Print Sum 输出结果 End Sub ※本题用一个循环也可以，算法：sum=sum+i*(N-i+1) 【例4-22】逆序输出26个英文大写字母 分析：该题是一个字符串累加问题，共有26项相加。字符串累加关键是把字符串与循环变量建立联系，即与字符串的ASCII码建立联系。 A的ASCII码是65，Z的ASCII码是90，存放累加和的字符变量为strSum，循环变量i从1到26。 算法：strSum＝ strSum+ chr(Asc(A)+26-i) strSum＝ strSum+ chr(91-i) Private Sub Form_Click() Dim strsum as string, I as Integer strSum = 存放所有项的累加字符串变量，初值空 For i = 1 To 26 strSum＝ strSum+ chr(Asc(A)+26-i) chr(91-i) 求所有项累加字符串算法 Next i Print strSum 输出结果 End Sub 分析：n!=1×2×3×…×n，乘数为1到n的步长为1的等差数列。 Private Sub Form_Click() Dim n As Integer n = InputBox(输入n的值：) k = 1 存放n!，置初值1 For i = 1 To n 利用循环变量依次产生下一个乘数 k = k * i 连乘语句 Next i Print