第4章 算法基础和VisualBasic基本语句.pptVIP

;例：用辗转相除法写出求两个自然数的最大公约数的算法;4.算法分类 数值算法：用于解决一般数学解析方法难以解决的问题。 如：求超越方程的根、求定积分、解微分方程等 非数值算法：用于对非数值信息进行查找、排序等。;1.赋值语句; Boolean ? 数值型 True为-1；False为0 Boolean ? 数值型 非0为True；0为False;1.赋值语句;4.2 顺序结构;;4.2 顺序结构;;4.2 顺序结构;InputBox函数---输入框;4.2 顺序结构;;4.2 顺序结构;; 按 钮： 可选。整型表达式，缺省值为 0 指定信息框中按钮数目、类型、图标类型， 缺省按钮等;值 按钮的设置 对应按钮名称 0 vbOKOnly---------------确定 1 vbOKCancel-------------确定、取消 2 vbAbortRetryIgnore---终止、重试、忽略 3 vbYesNoCancel---------是、否、取消 4 vbYesNo------------------是、否 5 vbRetryCancel----------重试、取消;;;4.2 顺序结构;;4.2 顺序结构;; 设计一个如下所示的提示框：; 符号常量 返回值 对应按钮 ;4.2 顺序结构;;练习; 先对条件测试，根据测试的结果选择执行不同的分支; 例： If score = 60 Then Print 祝贺你考试通过！ End If Print “继续努力！” 等价于： If Score=60 Then Print “祝贺你考试通过！” Print “继续努力!!!” ;.;例： If score = 60 Then Print “祝贺你考试通过！” Else Print “考试未通过.” End If Print 继续努力！;;;;;[范例4-10]：输入二级考试成绩，要求显示对应三级制的评定。 评定条件为： ;.;;.;.;.;Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select;4.3.3 条件函数（可选）;2. Choose函数----替代Select Case语句 格式： Choose ( 整数表达式、选项列表 );4.3 选择结构;4.3 选择结构;4.2 选择结构;;4.2 选择结构;;4.2 选择结构;;小 　结;4.4 循环结构;循环变量=循环变量+步长;程序代码： Dim I%, s % For I = 1 To 10 step 1 Next I Print I, s;Private Sub Command1_Click() Dim i As Integer, s As Long s = 0 For i = 1 To 10 s = s + i Next i Print s End Sub;4.4.1 For循环; 方法一： 方法二：;4.4.1 For循环;例：分析下列程序段的输出结果： 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;执行过程:（先判断，后执行） 先