VB基本语句(8学时).ppt

4.3 分支结构,4.5 程序示例,4.4 循环结构,4.2 顺序结构,4.1 算法及程序设计基础,黔东南民族职业技术学院 Visual Basic 程序设计,第四章 基本的控制结构,例：用辗转相除法写出求两个自然数的最大公约数的算法,(1)输入两个自然数m,n (2)rm mod n (3)mn；nr (4)若r0 则重复(2)(3)步 否则输出m（最大公约数）,4.1 算法及程序设计基础,1.算法的概念： 广义: 即解决某个问题或处理某件事的方法和步骤 狭义：专指用计算机解决某一问题的方法和步骤,2.算法的特征 确定性、可行性、有穷性、输入性、输出性,3.算法的描述 广泛使用的是流程图，它使规定的符号来描述算法,开始,4.算法分类 数值算法：用于解决一般数学解析方法难以解决的问题。 如：求超越方程的根、求定积分、解微分方程等 非数值算法：用于对非数值信息进行查找、排序等。,4.1 算法及程序设计基础,1.算法的概念： 广义: 即解决某个问题或处理某件事的方法和步骤 狭义：专指用计算机解决某一问题的方法和步骤,2.算法的特征 确定性、可行性、有穷性、输入性、输出性,3.算法的描述 广泛使用的是流程图，它使规定的符号来描述算法,1.赋值语句, 给变量赋值,格式：变量名=表达式, 设置或获取对象的属性,设置属性值：对象名.属性=表达式 获取属性值：变量名对象名.属性,如: A=“VB程序设计” Text1.Text=A BText2.Text,4.2 顺序结构,顺序结构：各语句按照出现的先后次序依次执行,Print方法 系统提供的交互函数或过程,如: Dim v As Integer Dim book As String*8 Dim sum As Single v=26 v=v+1 book=“VB程序设计” sum=v*123.4+56.7,Boolean 数值型 True为-1；False为0 Boolean 数值型 非0为True；0为False,1.赋值语句,4.2 顺序结构,顺序结构：各语句按照出现的先后次序依次执行,例: Dim v As Integer Dim book As String*8 Dim sum As Double Dim Bool As Boolean v=26 v=v+12.3 sum=v*123.4+56.7 v=“126” sum=“123ab” v=True sum=False Bool=123 Bool=0,注意： (1) 右边表达式的值强制转 换成左边变量的精度,(2) 若不能实现类型转换， 出现“类型不匹配”错,1.赋值语句,4.2 顺序结构,顺序结构：各语句按照出现的先后次序依次执行,注意： (1) 右边表达式的值强制转 换成左边变量的精度,(2) 若不能实现类型转换， 出现“类型不匹配”错,例: Dim X As Single Dim Y As Single Dim Sum As Single X=26 Sin(X)=X+Y 5=Sqr(X)+Y X+Y=126 X=Y=Sum=1 Sum=Sum+1,(3) 赋值号左侧只能出现变量,(4) 一条赋值语句不能同时给 多个变量赋值,(5) 正确理解加1语句,。,4.2 顺序结构,顺序结构：各语句按照出现的先后次序依次执行,InputBox函数,Msgbox函数, 与用户交互函数和过程,格式：InputBox ( 提示 ,标题 , 默认值 , X , Y ),格式：MsgBox ( 提示内容 , 按钮设置 , 标题 ),1.赋值语句, 给变量赋值, 设置或获取对象的属性,InputBox函数-输入框,作用： 打开一个对话框,等待用户输入内容。 单击确定，返回输入值（字符型数据） 格式： 变量名 = InputBox ( 提示,标题,默认值,X,Y),例：设置一个输入框： 提示用户输入查询学号。,提示： 若提示内容中需要换行显示：在换行处加chr(13)和chr(10) 各项参数位置必须一一对应,按 钮： 可选。整型表达式，缺省值为 0 指定信息框中按钮数目、类型、图标类型， 缺省按钮等,Msgbox函数-信息框,变量 = MsgBox(提示内容,按钮,标题) MsgBox 提示内容 , 按钮 , 标题,提示内容：必要。字符表达式，即显示在对话框中的信息,2.MsgBox 函数的常用参数的说明,= 1024 个字符， 如果文字超过一行，可用Chr(13) + Chr(10) 换行,标 题： 可选。在对话框标题栏中显示的内容。 省略此项，则将应用程序名放在标题栏中,1.语法,值 按钮的设置 对应按钮名称 0 vbOKOnly-确定 1 vbOKCancel-确定、取消 2 vbAbortRetryIgnore-终止、重试、忽略 3 vbYesNoCancel-是、否、取消 4 vbYesNo-是、否 5 vbRetryCancel-重试、取消,Buttons参数的设置,1.按钮的类型和数目的设置 Buttons的和=按钮设置值 + 图标设置值 + 缺省按钮值,Buttons参数值= 1 或 vbOKCancel,2.图标的样式 Buttons的和=按钮设置值+图标设置值+缺省按钮值,16 vbCritical -,32 vbQuestion -,48 vbExclamation -,64 vbInformation -,Buttons参数值= 1+64 或 vbOKCancel+ vbInformation,Buttons参数的设置,3.说明哪一个是缺省按钮 Buttons的和=按钮设置值+图标设置值+缺省按钮值,0 VbDefaultButton1,256 VbDefaultButton2,512 VbDefaultButton3,Buttons参数值=65 ( 1+64+0) 或 vbOKCancel+ vbInformation+VbDefaultButton1,Buttons参数的设置,设计一个如下所示的提示框：,练习使用信息框,符号常量 返回值 对应按钮,4.Msgbox的函数返回值 用于确定用户选择对话框的哪一个按钮，以作出不同的响应。,vbOK 1-确认,vbCancel 2-取消,vbNo 7 - 否(N),vbAbort 3 -终止(A),vbRetry 4-重试(R),vbIgnore 5-忽略(I),vbYes 6 - 是(Y),信息框的返回值：,练习,练习,编制一个帐号与密码的检验程序： 要求： 帐号不超过6个数字，密码4个字符（设密码为VB6)， 密码框中不显示实际输入字符 帐号(如：非数字)不正确时，提示有关信息， 并清除原内容，得到焦点，再输入 密码不正确时，单击“重试”，密码框清空，得到焦 点重新输入，若单击“取消”，停止运行,先对条件测试，根据测试的结果选择执行不同的分支,1.If条件语句,2.Select Case 结构,Visual Basic 程序设计,4.3 选择结构,3.条件函数,例： If score = 60 Then Print “祝贺你考试通过！ “ End If Print “继续努力！” 等价于： If Score=60 Then Print “祝贺你考试通过！” Print “继续努力!”,1. IfThen 结构,格式:(1) If 条件 Then (A组语句) EndIf ,(2) If 条件 Then 语句,执行规则：若条件成立,执行A组语句; 条件不成立,跳过A组语句.,4.3.1 If条件语句,使用前提：条件成立时,A组语句中只一条执行语句,例： If score = 60 Then Print score Print “祝贺你考试通过！ “ End If Print “继续努力！”,练习,.,1. IfThen结构,例1：输入两个数，分别放在x和y变量中，比较它们大小， 然后将大数放在x中，小数放在y中。, x%=Text1.text Y%=Text2.text If x y Then y = x x = y End If Print x, y ,t = x x = y y = t,思考：3个数的排序如何实现？,4.3.1 If条件语句,例： If score = 60 Then Print “祝贺你考试通过！” Else Print “考试未通过.” End If Print “继续努力！“,2. IfThenElse 结构,格式：If 条件 Then A组语句 Else B组语句 END If,执行规则:条件成立,执行A组语句, 条件不成立,执行B组语句,例2：计算分段函数： (可用单分支、双分支和两个单分支分别实现）,4.3.1 If条件语句,2. IfThenElse 结构,例3: 已知三边的长，设计 求面积的程序。,开始,4.3.1 If条件语句,例4：(思考)输入二级考试成绩，要求显示对应三级制的 评定。评定条件为：,4.3.1 If条件语句,.,3. IfThenElseIf 结构,Mark=Text1.Text If Mark = 90 Then Print “优“ ElseIf Mark = 60 Then Print “通过“ Else Print “未通过“ End If,若条件1与条件2换位，结果会怎样？,格式：If 条件1 Then （A组语句） ElseIf 条件2 Then （B组语句） ElseIf 条件3 Then （C组语句） Else （n组语句） End If,4.3.1 If条件语句,.,格式：If 条件1 Then A组语句 ElseIf 条件2 Then B组语句 ElseIf 条件3 Then C组语句 Else n组语句 End If,3. IfThenElseIf 结构,注意： 多分支语句中，有多个分 支同时满足，只执行第一 个与之匹配的语句块。 注意 ElseIf 的写法,4.3.1 If条件语句,.,例5 编写一个按月收入额计算个人收入调节税的程序 计算方法如下（P77 例4-8） 0 Pay1000或离退休 (Pay-1000)*0.05 1000Pay2000 Z (Pay-2000)*0.15+50 2000Pay3000 (Pay-3000)*0.25+200 3000Pay4000 (Pay-4000)*0.35+450 Pay4000 分析：选择语句结构 每个条件的表示及先后顺序,3. IfThenElseIf 结构,4.3.1 If条件语句,.,4. If语句的嵌套,4.3.1 If条件语句,If语句的嵌套是指if 或else后面的语句块中又包含If语句。语句形式： If Then If Then End If End If,注意： (1) 对于嵌套结构，为了增强程序的可读性，应该采用缩进 形式书写； (2) If语句形式若不在一行上书写，必须与End If配对 多个If嵌套，End If与它最接近的If 配对。,Select Case 测试表达式 Case 测试项1 A组语句 Case 测试项2 B组语句 Case Else n组语句 End Select,说明： 测试表达式的值应是数字或字符型 测试项的取值必须与测试表达式 的值类型相同，常用形式为： 具体取值，用逗号隔开 如：1，5，9 连续的范围：界1 TO 界2 如：12 To 20 满足某个条件：Is运算符 如：Is10 三种形式可以组合使用,4.3.2 Select Case语句,Select Case 结构,例5：输入二级考试成绩，要求显 示对应三级制的评定。 Mark=Val(Text1.Text) Select case Mark case is=90 Print “优“ case 90 to 60 Print “通过“ Case Else Print “未通过“ End select,Mark=Val(Text1.Text) K=mark10 Select case K case 10,9 Print “优“ case 8 to 6 Print “通过“ Case Else Print “未通过“ End select,4.3.3 条件函数（可选）,1. Iif函数-替代IF语句 格式：Iif(表达式、条件为真的值，条件为假的值),例：实现将X，Y变量中的大数放入Tmax变量,用If语句：If X Y Then Tmax = X Else Tmax = Y End If,用Iif函数： Tmax = IIf(X Y, X, Y),2. Choose函数-替代Select Case语句 格式： Choose ( 整数表达式、选项列表 ),例：用1、2、3、4分别返回不同的运算符,Nop = Rnd * 4 + 1 Select Case Nop Case 1 OP = “ Case 2 OP = “” Case 3 OP = “ Case Else OP = ”“ End Select,Nop = Int(Rnd * 4 + 1) Op=Choose(Nop,”,”,”,” ”),4.3.3 条件函数（可选）,4.3 选择结构,例7 编写一个加油站计费程序,在“种类”中选择油品种类，界面上的说明文字将随之改变，并将“数量”文本框设为焦点；在数量文本框中输入需购的油品数量后，单击“计算”按钮，在“总价”文本框显示所购油品种类应付的金额。已知汽油单价： 90号 2.30元/升 95号 2.45元/升 100号 2.60元/升,4.3 选择结构,例8 编写一个简单运算器的程序,要求：单击“计算”按钮，则根据输入操作数以及所选的运算符，求得运算结果，并显示在相应的文本框中。 提示：当除数为0时，用消息框给出提示,总 结,赋值语句,条件语句,变量名=表达式 对象.属性=表达式 变量=对象.属性,变量赋值： 属性赋值：,1. IfThen 结构 2. IfThenElse 结构 3. IfThenElseIf 结构 4. Select Case 结构,4.4 循环结构,循环:是在指定的条件下多次重复执行一组语句,1. For Next,2. DoLoop,3. 循环嵌套,4.其他辅助控制语句,For 循环变量=初值 TO 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,For循环格式：,执行过程: (1) 将初值赋循环变量； (2) 判断循环变量值是否小于等于 终止值； (3) 若是,执行循环体（语句块）； (4) 然后将变量增加一个步长； (5)重复24步骤。 (6)否则，结束循环,4.4.1 For循环,步长省略， 默认为1,程序代码： Dim I%, s % For I = 1 To 10 step 1 Next I Print I, s,例1:求1+2+3+4+10之和.,分析: 重复过程(循环体): ss+I 初值、终值和增量:1、10、1,初值与终值换位 可以吗？,循环体的执行次数是多少 ? 输出的I、S的值是多少 ? For I = 1 To 10执行多少次？,s = s + I,For I=10 To 1 Step -1,4.4.1 For循环,For 循环变量=初值 TO 终值 Step 步长 语句块 Exit For 语句块 Next 循环变量,Dim I, s As Integer For I = 1 To 10 s = s + I Next I Print I, s,例2: 求10！,分析: 重复过程:* 初值、终值与增量不变,例1:求1+2+3+4+ +10之和.,分析: 重复过程(循环体): + 初值、终值和增量:1、10、1,Dim I, s As Integer For I = 1 To 10 s = s * I Next I Print I, s,s=1 For I = 1 To 10,For I = 1 To 10 s=1,4.4.1 For循环,S1 =0 S2 =0 For I = 1 To 1000 S1 = S1 + I Next I,练习1：计算11000的奇数和与偶数和 方法一： 方法二：,Step 2,For I = 1 To 1000 Step 2 S2 = S2 + I Next I Print S1,S2,0,S1 =0 S2 =0 For I = 1 To 1000 If I mod 20 then S1 = S1 + I Else S2 = S2 + I End If Next I Print S1,S2,4.4.1 For循环,练习2：输入一个正整数，求个位数字之和,输入正整数k 求它的位数 用For循环 1，位数和步长 取k的末位数，求和 使k去掉末位数 重复以上两步，直到结束 在text2中显示结果,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 在已知循环次数时使用For循环，循环次数=int(终值-初值)/步长)+1 组成循环体的语句块可以是一条或多条语句 Exit For表示当遇到该语句时，退出循环体，执行Next的下一句； 在循环体内对循环变量可多次引用，但在循环过程中一般不改变其值， 否则影响结果。 退出循环后，循环变量保持退出时的值,思考：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿？,4.4.1 For循环,1. Do While 循环体 Loop,2. D0 循环体 Loop While ,3. Do Until 循环体 Loop,4. Do 循环体 Loop Until ,4.4.2 DoLoop循环,1. While循环, Do While 循环体 Loop,执行过程:（先判断，后执行） 先判断循环条件, 若为真:执行循环体,再判断循环条件 否则，跳过循环体,执行Loop之后语句,4.4.2 DoLoop循环, Do While 循环体 Loop,Dim I, s As Integer For I = 1 To 10 s = s + I Next I Print I, s,例1:求1+2+3+4+10的和.,Dim I,s As Integer I=1 Do While Loop Print I,s,s=s+I,I=10,I=I+1,I=11,(1)循环体执行了几次? (2)没有I=1会怎样? (3)将Print语句移到Loop的 前面结果怎样? (4)I先赋值为11,结果如何?,1. While循环,4.4.2 DoLoop循环, D0 循环体 Loop While ,执行过程:（先执行，后判断） 先执行循环体,再判断循环条件, 若为真， 继续执行循环体; 否则，结束循环,执行Loop之后语句,1. While循环,4.4.2 DoLoop循环, D0 循环体 Loop While ,例4:修改例3,Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s,Dim I,s As Integer I=1 Do s=s+I I=I+1 Loop While I=10 Print I,s,(1)循环体执行几次？ (2)将I先赋值为11， 执行结果如何?,1. While循环,4.4.2 DoLoop循环, Do While 循环体 Loop, D0 循环体 Loop While ,区别:(1)执行顺序不同 形式一:先判断,后执行循环体; 形式二:先执行循环体,后判断 (2)执行次数不同（特殊情况下） 形式一:条件不满足,循环体可能一次也不执行 形式二:不论条件如何,至少执行一次,1.While循环,4.4.2 DoLoop循环,练习3：用辗转相除法求两自然数m、n的最大公约数和 最小公倍数,分析： 最大公约数 已知两数m、n m Mod n的值为r mn，nr， 若r0 ，则重复 否则，循环结束，m为所求的最大公约数， 最小公倍数 原两个数相乘，再除以最大公约数,4.4.2 DoLoop循环,练习4：我国现有人口13亿，按人口年增长率0.8%计算，多少年后我国人口超过26亿。,分析 计算公式： 26=13（1+0.008）n 已知：当前人口数量为P=13，年增长率为R=0.008 循环条件：当前人口数是否超过26亿 若没，计算下一年人口数PP*(1+R)，年数+1，再判断,4.4.2 DoLoop循环,执行过程:（先判断，后执行） 先判断循环条件： 条件为假: 执行循环体, 然后再判断条件. 条件为真: 跳过循环体, 执行Loop之后语句, Do Until 循环体 Loop,2.Until循环,4.4.2 DoLoop循环, Do Until 循环体 Loop,例5:修改上例,Dim I,s As Integer I=1 Do While I=10 s=s+I I=I+1 Loop Print I,s,Dim I,s As Integer I=1 Do Until s=s+I I=I+1 Loop Print I,s,条件应该如何写出? 显示的I、S值与 上例一样吗？, Do 循环体 Loop Until ,I10,4.4.2 DoLoop循环,2.Until循环,几种形式比较:,Do While 循环体 Loop（ While ）,Do Until 循环体 Loop（ Until ）,区别: While 条件为真时执行循环体,否则退出循环 Until 条件为假时执行循环体,否则退出循环,关系： while和Until可以相互转换，但循环条件取反,4.4.2 DoLoop循环,练习5：输入一个正整数n，求最大的k， 使得1*1+2*2+k*kn成立,循环结构.练习,分析： 输入n值 判断累加和sn? 若是，s加下一个数的平方值 重复2、3 若否，结束循环 由text2输出最后一个累加数k,对吗?,循环的嵌套：在一个循环体内又包含了一个完整的循环结构,4.4.3 循环嵌套,For I = 1 To 9 For J = 1 To I s = I Next J Picture1.Print Next I,注意： 内、外循环变量不能同名 外循环必须完全包含内循环，不能出现交叉,分析：用三种循环 个位x的可能取值为09 十位y的可能取值为09 百位z的可能取值为19， 看三个位置上的数是否满足如下条件，若满足，即是其中一个解 x3+y3+z3=z100y10x,？,练习6：求水仙花数 水仙花数是指一个3位数，其各个数字的立方和等于数字本身。,4.4.3 循环嵌套,1.GoTo语句 2.Exit语句,满足循环条件的情况下，提前跳出循环体，结束循环。,两种形式：Exit For、Exit Do,作用：无条件的转移到标号或行号指定的语句 语法：GoTo 标号|行号,100 If I = 100 Then s = s + I I = I + 2 GoTo 100 End If,4.4.4 其他辅助控制语句,Dim I As Integer,If I mod 17 =0 then print I end If,For I=100 to 200 Next I,Exit for,分析： 重复工作：判断每个数除17的余数是否为0 初值、终值和增量：,练习7： 求出100200之间的第一个能被17整除的整数。,4.4.4 其他辅助控制语句,累加和、平均值 求素数 求数的质因数 穷举法 递推法,4.5 程序示例,5,1.累加、连乘,例1：编写一个大奖赛统计选手得分的程序。 要求单击“得分显示”按钮，则可以利用随机函数产生10个80100分之间的随机整数，输出在窗体上，并将计算选手的最后得分也在窗体上显示。,思考题： 如果在评委的给分中，去掉一个最高分和一个最低分，然后计算最后得分,分析：由随机函数生成80100之间的10个数据 连续求和 求平均值,2.求阶乘,例2：求任一给定整数的阶乘，n！,分析：对于任意整数n，有三种可能： 若 :n0:用循环实现乘运算 输出结果,思考题： 1.已知n，求1! n!之和 2.给定条件1! n!之和=5000，求最大n值,3.求近似值,例3：利用级数和求cos(x)函数的近似值(误差 10-6),分析：应用前面的累加和连乘的知识 想到用循环计算各项之和,和初值=1 找到后项与前项的关系： f(n)=(-1)n*(X2/2*n)*f(n-1),x2 x4 (-1)n+1x2(n-1) Cos(x)=1 - - + - - + - +（n=1,2,) 2! 4! (2(n-1)!,思考题： 求下列数列的和，规定计算到第k项的值10-6为止。 （输入X=2测试程序，正确结果为S=0.9985868）。 k! S= - k=1 (x+1)(x+2)(x+k),4.求素数,素数(质数)：一个大于等于2的整数，并且只能被1和自身 整除，而不能被其他整数整除的数,分析：用穷举法 用2n-1逐个去除整数n. 若余数不为0，用下一个整数去除，直到n1为止 否则进行标记，或退出循环 输出结果,例3：判断一个正整数n是否为素数,思考题： 找出100200之间的所有素数,并添加在窗体的文本框中,5.求数的质因子,将一个正整数分解为质因数乘积。如362233,分析： 当x=I时 如果x mod I0 ，I是一个因子 否则I加1,思考题：判断一个正整数n是否是完数 即一个数恰好等于它的因子之和 如：28124714,4. 穷举法,穷举法：就是将可能出现的各种情况一一测试，判断是否 满足条件,For x = 0 To 100 For y = 0 To 100 For z = 0 To 100 If x + y + z = 100 And _ 3 * x + 2 * y + 0.5 * z = 100 Then Print x, y, z End If Next z Next y Next x,例：百钱买百鸡,假设：小鸡5角/只，公鸡2元/只，母鸡3元/只，现有100元钱要买100只鸡，编程列出所有可能的购鸡方案 分析：设母鸡、公鸡、小鸡分别买X、Y、Z只 X+Y+Z=100 3*X+2*Y+0.5*Z=100,For x = 0 To 33 For y = 0 To 50 If 3 * x + 2 * y + 0.5 * (100 - x - y)_ = 100 Then Print x, y, z End If Next y Next x,4. 字符转换,例：将一个二进制的原码转换成反码,分析： 循环语句决定转换的次数 Mid函数获取一个二进制位 If语句判断该位01,10,思考题：输入一个十进制整数，输出其原码和反码,4. 字符转换,例：字符加密。将由大写英文字母组成的字符串的每个字符的ASCII代码转换成二进制，按位与指定密钥“01111111”进行异或运算，把得到的结果转换成十进制数，再转换成对应的加密字符,分析：其中一个字符的转换 获取每个字母的ASCii码（ASC函数，取子串函数） 将十进制ASCII码转换成二进制ASCII码。 再与01111111进行异或运算 再转换成对应的字符（chr函数） 连接成字符串,5. 递推法,递推法：就是将一个复杂的计算过程转化为简单过程的多 次重复。,例：猴子吃桃子,小猴在一天摘了若干个桃子，当天吃掉一半多一个，以后每天吃掉剩下的桃子的一半多一个，到第七天要吃时只剩下一个了，问小猴那天共摘了几个桃子 Xn-1 Xn= - -1 2,实验赋值语句,2. 建立登录窗口 3. 一家水果店出售苹果、桔子、香蕉和