江苏省计算机2级vb4.pptVIP

教学内容 4.1 算法及程序设计基础 4.2 赋值语句及InputBox、MsgBox函数 4.3 分支结构与分支结构语句 4.4 循环结构与循环结构语句 4.5 程序示例 4.1 算法及程序设计基础 1、算法的概念 算法 即解决某个问题或处理某件事的方法和步骤；“采用什么结构，使用什么语句以及如何安排这些语句”。 算法分类： 数值计算算法 非数值计算算法 算法优劣： 正确性，效率，占用系统资源，便于理解，易于调试等。 [算法描述]： S1 输入两个自然数：M，N； S2 求M除以N的余数R； S3 使M=N，即用N代换M； S4 使N=R，即用R代换N； S5 若R≠0，则重复执行S2,S3,S4,否则转至S6 S6 输出M，M即为M，N的最大公约数。 3、算法的特征 确定性 可行性 有穷性 输入性 输出性 4、算法的描述 5.基本算法结构 1）. 顺序结构 2）选择结构 3）循环结构 三种基本结构的共同特点 只有单一入口和单一出口； 结构中的每一部分都有被执行的可能； 结构内不应出现永不终止的死循环。 4.2 赋值语句及InputBox、MsgBox函数 4.2.1 赋值语句 4.2.2 InputBox函数 4.2.3 MsgBox函数 4.3 分支结构与分支结构语句 4.3.1 If-Then-Else- End If语句 4.3.2 Select- Case-End Select语句 2.嵌套的If结构 在If语句的“语句块”中包含另一个If语句，叫做嵌套的If结构。 If 条件1 Then ‘外层 … If 条件2 Then ‘内层 … Else If 条件4 then … Else … ‘最内层 End If Else … If 条件3 Then … End If End If 分支结构的适用情况 验证用户输入数据的合法性 分段函数计算 用于区分等级 其他须根据条件不同执行不同操作的情况 4.4 循环结构与循环结构语句 4.4.1 Do-loop循环结构语句（条件循环） 4.4.2 For-Next 循环结构语句（计数循环） 4.4.3 循环嵌套 写出下列程序的运行结果 4.5 程序示例 例：找出1000以内的所有完数。所谓完数，是指它的所有的质因子之和等于它本身的数，如6=1+2+3。 解题思路： 第一步：找出确定一个数是完数的方法； 第二步：从1到1000依次判断。 算法实现: 两层循环： 内层循环用于找出某数 m 的所有因子并相加求和，并在循环结束后依据因子和是否与该数相等来判断该数是否是完数； 外层循环则用于穷举所有1000以内的整数。 在该例中，我们使用了三个变量，分别表示被除数（m）、除数（n）及余数（r）。 Do r=m Mod n m=n n=r Loop Until r=0 最大公约数是（ ）？ 由于输入的数据M和N要求是自然数，在程序中应加入对数据的合法性进行检验的部分； 考虑到程序的应用范围，数据类型可选用长整型。 问题分析及界面设计 Private Sub Command1_Click() Dim m As Long, n As Long, r As Long m = Val(Text1.Text) ‘取数据M n = Val(Text2.Text) ‘取数据N If m Int(m) Or m 1 Or n Int(n) Or n 1 Then Text3.Text = 数据错误！ Else Do ‘求最大公约数 r = m Mod n m = n n = r Loop Until r = 0 Text3.Text = CSt