算法基础与VB基本语句.ppt

《算法基础与VB基本语句.ppt》由会员分享，可在线阅读，更多相关《算法基础与VB基本语句.ppt（43页珍藏版）》请在三一办公上搜索。

1、1,新编Visual Basic程序设计教程,2,第4章 算法基础与VB基本语句,4.1 算法基础1、概念 解决某个问题所使用的方法和步骤。亦称算法设计2、算法分类 1）数值计算算法。例：四则运算、求微积分 2）非数值计算算法。例：数据的查找、分类、排序3、算法描述 流程框图、流程图 举例：求2个学生的平均成绩。其中学生A为95分，B为70分。方法：1）将95分赋予变量A，70分赋予变量B 2）A加B的值除以2，结果赋予变量C 3）打印输出C值,3,根据以上题意绘出流程图：图形说明：,开始,A=95,B=70,C=（A+B）/2,输出C,结束,流程的起点与终点数据处理数据的输入/输出条件判断一

2、个特定过程流程线流程图上与其它部分相连的点,4,4、基本算法结构,A,B,A,B,e,True,False,A,A,e,False,False,True,True,e,循环结构,循环结构,顺序结构,分支结构,循环体,当型循环当条件 e 成立，继续执行 A,直到型循环反复执行 A，直到条件 满足为止,5,4.2 赋值语句与 InputBox、MsgBox 函数4.2.1 赋值语句 LET 变量名（或属性名）=表达式 LET a=8 将数值8赋予变量a a=8 k1=“Made in china”C=（x+y）/6 Text1.Fout.Size=18,仍举上例：求2个学生的平均成绩。其中A为98

3、分，B为70分。,Private Sub Cmd1_Click()Dim A as Integer Dim B as Integer Dim C as Integer A=95 B=70 C=（A+B）/2 Print CEnd Sub,6,4.2.2 InputBox函数功能：建立输入对话框，用来接受用户通过键盘输入的 数据。格式：变量名=InputBox(提示用文字信息，对话框 标题，预设用户编辑框内的缺省值)，X，Y，帮助文件名，帮助主题号)举例：在用户界面上设置一个按钮，当按下按钮时出现 一个输入对话框，在用户编辑框内输入数据后，按对话框“确定”按钮，窗体上显示该数据。,7,Optio

4、n ExplicitPrivate Sub Command1_Click()Dim word As String word=InputBox(请输入需在窗体中显示的内容：,_ 输入对话框,江南大学纺织服装学院)Print wordEnd Sub4.2.3 MsgBox函数功能：建立消息框，显示简短消息，并要求用户作出响 应。格式：abc=MsgBox(Prompt,Button,Title,H,C,提示用文字信息,对话框标题,数值常量c1+c2+c3+c4,下转：第 4章VB教材举例 1(4.2.2),换行：chr(13)+chr(10),8,举例1：窗体中设置一个文本框，一个按钮。当按下按钮

5、 时，出现一个消息框，应答后按要求操作。（参见P62 表4-2（a、b、c、d）,9,Option ExplicitPrivate Sub Command1_Click()Dim abc As String If Text1.Text=Then abc=MsgBox(您没有在文本框中输入任何内容 _,1+48+0+0,提示消息)Else Print 很好！您已经输入内容了。End IfEnd Sub,下转：第 4章VB教材举例 2(4.2.3-1),10,举例2：在关闭应用程序时，系统常常会弹出一个消息框提示用户是否真的退出程序。利用MsgBox函数的返回值可实现此操作。（参见 P63 表 4

6、-3）,11,Option ExplicitPrivate Sub Cmd1_Click()Label1.Caption=谢 谢！End SubPrivate Sub Cmd2_Click()Dim tang As String tang=MsgBox(是否真的要退出程序？,4+32,提示)If tang=6 Then End 6 是 Yes的返回值 End Sub,下转：第 4章VB教材举例 3(4.2.3-2),12,4.3 分支结构与分支结构语句4.3.1 If-Then-Else-End If 结构语句功能：根据条件 e 具有分支判断功能格式：If e Then A组语句 Else B

7、组语句 End If,A,B,e,True,False,分支结构,X,A,B,e,13,举例：从键盘输入一个数 X，如果 X=0，则打印该数；如果 X0，则打印该负数。,14,Option ExplicitPrivate Sub Command1_Click()Dim x As Single x=InputBox(请输入X的值:,输入X,0)If x=0 Then Print“x=”;x A组语句 Else x=abs(x)Print“x=-”;x B组语句 End IfEnd SubPrivate Sub Command2_Click()Dim tang As String tang=Msg

8、Box(是否真的要退出程序？,4+32,提示)If tang=6 Then EndEnd Sub,下转：第 4章VB教材举例 4(4.3.1-1),15,除上述标准格式外，还有不对称分支和多分支。,A,e,True,False,不对称分支结构,If e Then 例：,Private Sub Cmd2_Click()Dim x As Integer x=InputBox(“请输入X的值:”,_ 输入X,0)If x=0 Then Print x End Sub,16,多分支结构,格式：If 表达式1 Then 语句块1ElseIf 表达式2 Then 语句块2ElseIf 表达式3 Then

9、语句块3 End If,17,举例：P66 例 4-2 一个多分支的示例程序（流程图见 P66 图4-11）,Option ExplicitPrivate Sub Command1_Click()Dim x As Integer x=Val(Text1.Text)If x 1 Then Text2.Text=这是小于1的数 ElseIf x=10 Then Text2.Text=这是1到10之间的数 Else Text2.Text=这是大于10的数 End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub,下转：第 4章VB教材举例 5(4.3.1

10、-2),看看流程吧！,18,4.3.2 并列式多分支结构语句 Select-Case-End Select 语句功能：同多分支语句，但从语句逻辑结构上为并列式分支操作。格式：Select Case e Case c1 A组语句 Case c2 B组语句 Case Else n组语句 End Select,e,B,A,C,n,c1,c2,c3,cn,e 测试表达式，算术或字符表达式c1、c2、c3 测试项：*具体取值，例；1、5、8等，*连续的数据范围，例：4 To 10，B To F*满足某判决条件，例：Is 20 Is=“P”,19,Option ExplicitPrivate Sub Co

11、mmand1_Click()Dim x As Integer x=Val(Text1.Text)Select Case x Case Is 1 Text2.Text=这是小于1的数 Case 1 To 10 Text2.Text=这是1到10之间的数 Case Else Text2.Text=这是大于10的数 End SelectEnd SubPrivate Sub Command2_Click()EndEnd Sub,仍以上例：P66 例 4-2 一个多分支的示例程序,下转：第 4章VB教材举例 6(4.3.2),20,注意 Is 比较运算符和使用在 Select Case 语句中的 Is

12、关键字并不相同：,Is 作为比较运算符：用来比较两个对象的引用变量；语法：result=object1 Is object2；说明：如果 object1 和 object2 两者引用相同的对象，则 result 为 True；否则，result 为 False。Is 作为select case 中的关键字：使用 Is 关键字时，则可以配合比较运算符（除 Is 和 Like 之外）来指定一个数值范围。如果没有提供，则 Is 关键字会被自动插入。,21,4.4 循环结构与循环结构语句循环：对某一操作重复执行类型：当型循环与直到型循环,A,False,True,e,当型循环,循环体,当型循环当条件

13、e 成立，继续执行 A,4.4.1 Do-Loop 语句应用场合：若事先不知道循环次数，使用该语句格式：条件成立，Do While e 做循环 Exit Do Loop特征：先判别，再循环,说明：Exit Do 功能为直接退出循环，不执行下面的 语句段。常用形式：If e Then Exit Do,A,22,举例：P68 例 4-3 采用欧几里得算法求解二个自然数 的最大公约数的程序,求最大公约数可使用“辗转相除法”例如 24 与 16，先将24被16除，得余数 8（求余运算）。之后将原来的除数 16 作为下一次的被除数，将上一次得到的余数（8）作为除数，二者相除后得余数 0。此时最后一次的除

14、数 8 就是所求的最大公约数。,23,归纳：欧几里得算法是：如果有二个数 m，n，将大数 m作为被除数，小数作为除数，相除后余数为 r。若 r=0，则将 n m，将 r n，再进行新的一轮除法运算（即以新的 m作被除数，n作除数），得到新的 r。重复以上过程直到 r=0为止。此时 n 就是最大公约数。,画画流程吧？（欧几里得算法流程图）,24,Text3.Text=CStr(m)输出最大公约数 End IfEnd SubPrivate Sub Command2_Click()Text1.Text=Text2.Text=Text3.Text=Text1.SetFocus 将文本框1设为焦点End

15、 SubPrivate Sub Command3_Click()EndEnd Sub,Option ExplicitPrivate Sub Command1_Click()Dim m,n,r,a As Long m=Val(Text1.Text)取数据M n=Val(Text2.Text)取数据N r=m*n 假设r的开始值为m*n _(实际上不可能的，为何需要这一句？)If m 0 当r不等于0，进行循环 r=m Mod n m=n n=r Loop,下转：第 4章VB教材举例 7(4.4.1),25,也可以换一种算法：使用普通数学中分步求公因子，且各因子相乘的方法求得最大公约数。,2,24

16、 16,12 8,2,6 4,2,3 2,T=2*2*2=8,2,120 180,60 90,2,30 45,3,10 15,T=2*2*3*5=60,5,2 3,即从取数值 2 开始，将该数作为除数，对二个被除数分别作除法运算，若能同时除尽（即 Mod 运算结果为 0），则将该数赋予变量 T 并作连乘。反复使用 2 作除法运算,当 2 不能同时整除二数时，则换,26,数值 3，依次类推，直至二个被除数不能同时整除时为止。公约数 T=2*。,If m n Then a=m:m=n:n=a t=1 For i=2 To n For j=1 To n If(m Mod i)=0 And(n Mod

17、 i)=0 Then t=t*i m=m/i n=n/i End If Next NextText3.Text=CStr(t)输出最大公约数,2,24 16,12 8,2,6 4,2,3 2,从2开始尝试公约数,每个公约数可能的整除次数,27,当型循环除上述格式外，还有另一种格式：Do Exit Do Loop While e特征：先执行一次循环，然后再作条件判别，根据判别结果执行下一次循环。,A,仍举上例：求最大公约数,Option ExplicitPrivate Sub Command1_Click()Dim m,n,r,a As Long m=Val(Text1.Text)取数据M n=

18、Val(Text2.Text)取数据N r=m*n 假设r的开始值为m*n _(实际上不可能的，实际上也可不要？)If m 0 当r不等于0，进行循环,仍转：第 4章VB教材举例 7(4.4.1),28,A,e,False,True,以上介绍了 Do-Loop语句的当型循环形式。下面介绍 Do-Loop语句的直到型循环：,直到型循环反复执行 A，直到条件 满足为止换言之，条件不满足 继续循环,格式：Do Exit Do Loop Until e 条件不成立，做循环,特征：先执行一次循环，然后再作条件判别，根据判别结果执行下一次循环。,仍举上例 例4-3 求二个自然数的最大公约数,29,直到型循

19、环除上述格式外，还有另一种格式：,Do Until e 条件不成立，做循环 Exit Do Loop,下转：第 4章VB教材举例 8(4.4.1-2),Option ExplicitPrivate Sub Command1_Click()Dim m,n,r,a As Long m=Val(Text1.Text)取数据M n=Val(Text2.Text)取数据N r=m*n 假设r的开始值为m*n _(实际上不可能的)If m 1 Or n 1 Then 检验数据合法与否 Text3.Text=数据错误！Else If m n Then a=m:m=n:n=a Do r=m Mod n m=n

20、 n=r Loop Until r=0 当 r 等于0，停止循环,特征：先判别，再循环,仍转：第 4章VB教材举例 8(4.4.1-2),30,Do-Loop循环语句总结：,当型循环：只要条件成立就 进入循环 Do While e 条件成立，做循环 Exit Do Loop特征：先判别，后循环,Do Exit Do Loop While e 条件成立，做循环,特征：先执行一次循环，然后作条件判别，执行下一次循环,直到型循环：只要条件成立就 退出循环Do Exit Do Loop Until e 条件不成立，做循环,特征：先执行一次循环，然后作条件判别，执行下一次循环,Do Until e 条件

21、不成立，做循环 Exit Do Loop,特征：先判别，后循环,31,4.4.2 For-Next 循环结构语句应用场合：若已知循环次数，使用 For-Next 语句格式：For v=e1 To e2 Step e3 Exit For 循环体 Next v 式中：V-循环控制变量，数据类型为整型或单精度型（算子）e1-循环初值 e2-循环终值 e3-循环步长（e3=1，可省略）,举例：编写 For-Next语句，并打印出语句执行时的循环次数。,Option ExplicitPrivate Sub Form_Click()Dim i As Integer For i=1 To 10 Step 4

22、 Print i Next i Print i=;iEnd Sub,32,运行结果：,运行过程：1）Print I 为 1 Next I 为 I=1+4=5,2）Print I 为 5 Next I 为 I=5+4=9 3）Print I 为 9 Next I 为 I=9+4=13,步长,下转：第 4章VB教 材举例 9(4.4.2-1),33,下转：第 4章VB教材举例 10(4.4.2-2),举例：可改变循环终值和步长的循环语句演示程序：,Option ExplicitPrivate Sub Form_Click()Dim z,b,i,n As Integer z=10 b=1 n=0 P

23、rint For i=1 To;z;Step;b Print For i=1 To z Step b n=n+1 Print 第;n;次循环,;i=;i;Print Next i=;i;+;b;=;i+b Next i Print Print 最后一次 i 值为;i;，为此停止循环End Sub,34,讨论：1、循环次数的计算循环次数=（循环终值-循环初值）/步长+1,Option Explicit Private Sub Form_Click()Dim i As Integer For i=0 To 6 Step 2 Print i Next iEnd Sub循环次数=6-0+1=3+1=4

24、 2,2、循环变量初、终值可以取正值、负值或零。步长可以是正值或负值（尽量采用整型数），但不能为零（无意义）。,35,Option ExplicitPrivate Sub Form_Click()Dim i As Integer For i=-5 To 5 Step 5 Print i Next iEnd Sub,Option ExplicitPrivate Sub Form_Click()Dim i As Integer For i=3 To 0 Step-1 Print i Next iEnd Sub,1）当步长为负值时，循环变量初值 终值 2）循环次数=（0-3）/-1+1=3+1=4,

25、循环次数=5-（-5）/5+1=3,36,3、在循环体内一般不要向循环变量再赋值，否则会改变循环次数或状况。,Option ExplicitPrivate Sub Form_Click()Dim i As Integer For i=1 To 5 i=i*i Print i Next iEnd Sub,Option ExplicitPrivate Sub Form_Click()Dim i As Integer For i=1 To 5 Print i Next iEnd Sub,循环体内未赋值,循环体内赋值,变量 i 被赋值,37,举例：例4-5 从一个由字母数字组成的字符串中找出所有大写字

26、母并按逆序输出的程序。,Option ExplicitPrivate Sub Command1_Click()Dim s,d,t As String Dim i As Integer Text1.SetFocus s=Text1.Text 取输入字符 For i=1 To Len(s)筛选大写字母 If Mid(s,i,1)=A And Mid _(s,i,1)=Z Then t=t&Mid(s,i,1)End If Next i For i=Len(t)To 1 Step-1 字符逆序排列 d=d&Mid(t,i,1)Next i Text2.Text=d 在文本框输出End Sub,Pri

27、vate Sub Command2_Click()Text1.Text=Text2.Text=Text1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub,下转：第 4章VB教材举例 11(例 4-5),38,4.4.3 循环嵌套概念：在一个循环体内包含另一个完整的循环，称嵌套。For I=For k=Next k Next I,内层循环,外层循环,以上为双层循环,举例：打印九九乘法表,Option ExplicitPrivate Sub Form_Click()Dim i,j As Integer For i=1 To 9 For j

28、=1 To 9 Print i;*;j;=;i*j;Next j Print Print Next iEnd Sub,39,下转：第 4章VB教材举例 12(4.4.3-1),40,举例：设计一模拟摇奖程序。要求是：100个人中签，由机器自动随机产生1000个1100间的数据，确定第1000个随机数为中签人的得奖号。预备知识：随机数的产生 Rnd(x)若 X 0 或不置X值,随机序列的下一个随机数试在立即窗口中操作验证:Rnd(X)讨论:1）产生的随机数总是在(0,1)区间内。2）X的值影响 Rnd 生成随机数的方式。3）采用 Randomize 语句初始化随机数生成器，可从系统计时器获得随机

29、数种子。,41,若要生成某个范围内的随机整数，可使用以下表达式：Int（随机数整数范围的上限-下限+1）*Rnd+随机数整数范围的下限）举例：现要产生166之间的随机整数，试写出表达式。Int（66-1+1）*Rnd+1）或：Int（66*Rnd+1）举例：现要产生1100之间的随机整数，试写出表达式。Int（100*Rnd+1）,试在立即窗口中操作验证:Int(X*Rnd+1),现完成模拟摇奖程序。由机器自动随机产生1000个1100间的数据，确定第1000个随机数为中签人的得奖号。,42,Private Sub Command1_Click()Dim x As Integer,i As Integer,j As Integer Dim a As Integer Randomize For i=1 To 1000 x=Int(100*Rnd+1)a=0 For j=1 To 10000视觉暂停 a=a+1 Next j Text1.Text=CStr(x)Text1.Refresh强制全部重绘一个窗体或控件 Next i Text1.Text=CStr(x)End SubPrivate Sub Command2_Click()EndEnd Sub,下转：第 4章VB教材举例 13(4.4.3-2),43,本章结束,