第05章节VB基本语句[8学时].pptVIP

5.1 分支结构; 先对条件测试，根据测试的结果选择执行不同的分支; 例： If score = 60 Then Print 祝贺你考试通过！ End If Print “继续努力！” 等价于： If Score=60 Then Print “祝贺你考试通过！” Print “继续努力!!!” ;.;例： If score = 60 Then Print “祝贺你考试通过！” Else Print “考试未通过.” End If Print 继续努力！;F;例4：(思考)输入二级考试成绩，要求显示对应三级制的 评定。评定条件为： ;.;.;.;.;Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select;§5.1.3 条件函数（可选）;2. Choose函数----替代Select Case语句 格式： Choose ( 整数表达式、选项列表 );例7 编写一个加油站计费程序;例8 ???写一个简单运算器的程序;总 · 结;§5.2 循环结构;循环变量=循环变量+步长;程序代码： Dim I%, s % For I = 1 To 10 step 1 Next I Print I, s; Dim I, s As Integer For I = 1 To 10 s = s + I Next I Print I, s;S1 =0 S2 =0 For I = 1 To 1000 S1 = S1 + I Next I ;练习2：输入一个正整数，求个位数字之和;例：分析下列程序段的输出结果： Dim I As Integer, J As Integer J = 0 For I = 0 To 10 Step 2 I = I + 3 J = J + 1 Next I;1. Do While 条件 循环体 Loop;1. While循环;⑴ Do While 循环条件 循环体 Loop;⑵ D0 循环体 Loop While 条件;⑵ D0 循环体 Loop While 条件;⑴ Do While 条件 循环体 Loop;练习3：用辗转相除法求两自然数m、n的最大公约数和 最小公倍数;练习4：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。;执行过程:（先判断，后执行） 先判断循环条件： 条件为假: 执行循环体, 然后再判断条件. 条件为真: 跳过循环体, 执行Loop之后语句;⑶ Do Until 条件 循环体 Loop;几种形式比较:; ;循环的嵌套：在一个循环体内又包含了一个完整的循环结构; 分析：用三种循环 个位x的可能取值为0～9 十位y的可能取值为0～9 百位z的可能取值为1～9， 看三个位置上的数是否满足如下条件，若满足，即是其中一个解 x3+y3+z3=z×100＋y×10＋x ;1.GoTo语句 2.Exit语句;Dim I As Integer ;累加和、平均值 求素数 求数的质因数 穷举法 递推法;1.累加、连乘;2.求阶乘;3.求近似值;方法1：用函数求n! Private Sub Command1_Click() Dim n As Integer, s As Double, u As Double, x As Single s = 1 级数的第一项为1 n = 2 x = InputBox(请输入一个小于等于1的数：) Do u = (-1) ^ (n + 1) * x ^ (2 * (n - 1)) / f(2 * (n - 1)) s = s + u n = n + 1 Loop While Abs(u) 0.000001 Print s End Sub Function f(n As Integer) As L