第5章VisualBasic控制结构讲述.ppt

5.4 程序举例 Private Sub cmdStart_Click() Dim E#, N%, M, Term! E = 1: N = 1: M = 1 Term = Val(InputBox(, 输入精确度)) lblPrecision.Caption = 输入的精确度为： Term While 1 / M Term E = E + 1 / M N = N + 1 M = M * N Wend txtE.Text = E End Sub 例22 5.4 程序举例 假定我们用 S 表示待求的SinX;用 N表示求和序列的数据项数;用 T 表示第N项的值： 分析 T (N≥2) 利用部分级数和近似计算Sinx 5.4 程序举例 Dim n%, s#, t!, term!, x! Term = 0.0000001 x = Val(InputBox(输入X的值)) t = x: n = 1: s = t Do Until Abs(t) Term n = n + 1 t = -t * x * x / ((2 * n - 2) * (2 * n - 1)) s = s + t Loop Label1.Caption = SinX = s Label2.Caption = Sin(X)= Sin(x) 利用部分级数和近似计算Sinx 第5章作业3 P116 习题：一、二 第5章作业3 1. 编写程序，计算2n的值（n由键盘输入）。 2. 编写程序，显示所有的“水仙花数”（所谓水仙花数是指三位数其各个位上数字的立方和等于该数字本身。例如，153＝13＋53＋33。因此153是水仙花数）。 3. 编写程序，计算a+aa+aaa+…+aa…aa（n个a）的值（a和n均由键盘输入）。 例如，当a=3，n=5时，需要计算的式子为： 3＋33＋333＋3333＋33333 5.3 循环结构 5.3.4 循环结构的嵌套 利用循环语句编写程序，输出如下图形 ： A BBB CCCCC DDDDDDD EEEEEEEEE 5.3 循环结构 A ABC ABCDE ABCDEFG ABCDEFGHI M GGG CCCCC HHHHHHH QQQQQQQQQ 5.3.4 循环结构的嵌套 利用循环语句编写程序，输出如下图形 ： 5.3 循环结构 三种循环语句的比较 For循环语句用于循环次数已知的情况，根据指定的次数重复执行For 和Next之间的循环体。 While循环语句用于循环由某个条件引起的情况，当条件为真时执行循环体，当条件为假时结束循环 5.3 循环结构 三种循环语句的比较 Do循环实际上是不固定次数的条件循环，但它的形式非常灵活，既可以指定循环开始的条件，也可以指定循环结束的条件；既可以先判断条件，也可以后判断条件 Do循环常常使用Do—Loop格式。 第5章作业2 P121 习题：三 P116 习题：一、二 5.4 程序举例 2.5.1 用Visual Basic开发应用程序的一般步骤 （1）分析问题得出算法 （2）创建应用程序的界面 （3）设置属性 （4）编写代码 （5）调试运行、生成工程或可执行文件 5.4 程序举例 5.4.1 累加、累乘 例 8 5.4 程序举例 任意输入一个字符串，编写程序，将其反向输出 。 例16 5.4.1 累加、累乘 5.4 程序举例 任意输入一个字符串，编写程序，将其反向输出 。 例16 Private Sub cmdStart_Click() Dim N$, M$, I%, T$ N = txtN.Text M = For I = Len(N) To 1 Step -1 T = Mid(N, I, 1) M = M T Next I txtM.Text = M End Sub 5.4.1 累加、累乘 5.4 程序举例 5.4.2 输出定位 * ** *** **** ***** A ABC ABCDE ABCDEFG ABCDEFGHI 5.4 程序举例 5.4.2 输出定位 输出数字金字塔 。 P112 例5-17 5.4 程序举例 5.4.2 输出定位 输出数字金字塔 。 P112 例5-17