第7章VB控制结构.ppt

第7章 Visual Basic基本控制结构 ;本章要点：;算法及算法的表示 (补充）;例4.2 输入10个数，打印输出其中最大的数。 算法设计如下： （1）输入1个数,存入变量A中,将记录数据个数的变量N赋值为1，即N=1 （2）将A存入表示最大值的变量Max中，即Max=A （3）再输入一个值给A，如果AMax 则 Max=A, 否则Max不变 （4）让记录数据个数的变量增加1，即N=N+1 （5）判断N是否小于10，若成立则转到第（3）步执行，否则转到第（6）步。 （6）打印输出max;算法的特性 ;算法的表示 一、自然语言与伪代码表示算法 自然语言：就是指人们日常使用的语言，可以是汉语、英语或其它语言。 伪代码：是用介于自然语言和计算机语言之间的文字和符号（包括数学符号）来描述算法。 例如：例4.1可用如下的伪代码表示 Begin（算法开始） 输入 A，B，C IF AB 则 A→Max 否则 B→Max IF CMax 则 C???Max Print Max End (算法结束);二、 用传统流程图表示算法;2、三种基本结构的传统表示 （1）顺序结构;条件;三种基本结构的特点：;从10个数中选出最大的数的流程图;3、 用N—S流程图表示算法 ;语句组;传统流程图;Private Sub Form_Click() Dim a%, max%, i% a= Val(InputBox(A=?)) print a; max = a For i = 2 To 10 a = Val(InputBox(A=?)) print a; If a max Then max = a Next i Print Max=; max End Sub;顺序结构的流程图;作用;7.1顺序结构;执行过程如右图;如： Var1 = 30 i = i + 1 str = “Good morning,” Text1.Text = str “teacher!” Text2.Text = Str(Total) ;4.1顺序结构;4.1顺序结构;例4-3：private sub form_click() print 1,2,3 print 1;2;3 print 4,5,6, print 7;8;9; print 11,12 end sub;4.1顺序结构;7.1顺序结构;4. 程序举例;例4-5：设2007年我国工业产值为100个计算单位，若按平均年增长率为8%计算，试求出2017年的工业产值将达到多少个计算单位。;Private sub command1_click() Dim p1 as integer,n as integer Dim P as single ,r as single p1=100 n=2017-2007 r=0.08 p=p1*(1+r)^n Print “2017年的工业产值将达到：”;P End sub;例4-6:试编写一程序，使其具有接收用户输入的两个整数，并将两整数互换其值的功能;Private sub form_click() Dim a as integer,b as integer,temp as integer a=val(inputbox(“a=?”)) b=val(inputbox(“b=?”)) print “互换前，a和b分别为：”；a;b temp=a:a=b;b=temp print “互换后，a和b分别为：”；a;b End sub;作业题;单条件if 语句的流 程图;1. If语句;1. If语句;1. If语句;1. If语句;1. If语句;1. If语句;7.2 选择结构;1. If语句;1. If语句;1. If语句;1. If语句;1. If语句;1. If语句;7.2 选择结构;1. If语句;1. If语句;1. If语句;1. If语句;1. If语句;1. If语句;作业题;3、让计算机随机产生出两个1~99之间的正整数，接着从键盘上输入一个加、减、乘或除运算符，根据此运算符对两个随机数进行相应运算并显示出结果。 产生（a,b）之间的随机整数的表达式