VB基本语句教程.ppt

4.3 分支结构;例： 用辗转相除法写出求两个自然数的最大公约数的算法:;4.1 算法及程序设计基础;4.1 算法及程序设计基础;4.1 算法及程序设计基础;1.赋值语句; Boolean ? 数值型 True为-1；False为0 Boolean ? 数值型 非0为True；0为False;1.赋值语句;2. 不同数据类型数据的赋值;2. 不同数据类型数据的赋值;§4.2 顺序结构;InputBox函数---输入框;V=InputBox (Prompt[,Title][,Default][,X][,Y] _ [,Helpfile,Context]); 按 钮： 可选。整型表达式，缺省值为 0；指定信息框中 按钮数目、类型、图标类型、缺省按钮等，形 式为c1+c2+c3+c4。; 值 按钮的设置 对应按钮名称 0 vbOKOnly---------------确定 1 vbOKCancel-------------确定、取消 2 vbAbortRetryIgnore---终止、重试、忽略 3 vbYesNoCancel---------是、否、取消 4 vbYesNo------------------是、否 5 vbRetryCancel----------重试、取消;;;设计一个如下所示的提示框：; 符号常量 返回值 对应按钮 ; 先对条件测试，根据测试的结果选择执行不同的分支; 例： 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.3.1 If条件语句;F;例4：(思考)输入二级考试成绩，要求显示对应三级制的评定。评定条件为： ;.;.;.;.;Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 …… Case Else n组语句 End Select;4.3.2 Select Case语句;4.3.3 条件函数（可选）;总 结;§4.4 循环结构;1. Do While 条件 循环体 Loop;1. While循环;⑴ Do While 循环条件 循环体 Loop;⑵ D0 循环体 Loop While 条件;⑵ D0 循环体 Loop While 条件;⑴ Do While 条件 循环体 Loop;练习3：用辗转相除法求两自然数m、n的最大公约数和最小公倍数;执行过程:（先判断，后执行） 先判断循环条件： 条件为假: 执行循环体, 然后再判断条件. 条件为真: 跳过循环体, 执行Loop之后语句;⑶ Do Until 条件 循环体 Loop;几种形式比较:;循环变量=循环变量+步长;程序代码： 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 ;分析下列程序段的输出结果： Dim I As Integer, J As Integer J = 0 For I = 0 To 10 Step 2 I = I + 3 J = J