第4章控制结构与过程-1ppt课件

2020/5/8,.,1,第4章控制结构与过程,.,2,2020/5/8,4.1顺序结构4.2选择结构4.3循环结构,第4章控制结构与过程,.,3,2020/5/8,4.1顺序结构,VB应用程序主要是由过程组成的，编写程序时通常使用结构化程序设计的方法。结构化程序设计包括:顺序结构选择结构循环结构顺序结构是按程序中语句出现的先后顺序执行的结构。,.,4,2020/5/8,4.1.1赋值语句,赋值语句是VB中使用最频繁的语句之一，其格式为：=功能：将表达式的结果赋给变量或某个对象的属性。例如：V1=V1+50,.,5,2020/5/8,4.1.1赋值语句,说明:为内存变量名或对象的属性名。赋值语句中“=”是赋值号，与数学中的等号意义不同。先计算表达式的值，然后将结果赋给等号“=”左边的变量。如果等号“=”左边为Variant变量，则表达式可以是任意类型。可以是任何数据类型，但等号“=”两边的数据类型必须一致或相容。,.,6,2020/5/8,4.1.2使用Print方法输出数据,1Print方法Print方法的格式为：Print,|;功能：在窗体、图片框、立即窗口或打印机等对象中输出信息。,.,7,2020/5/8,4.1.2使用Print方法输出数据,说明:如果“对象名称”省略，则在当前窗体上输出。“表达式表”可以是算术表达式、字符串表达式、关系表达式或布尔表达式。若“表达式表”默认，则输出一个空行。当需要在同一行输出多个表达式的值时，如用逗号（，）将表达式隔开，则按标准输出格式（以14个字符位置为单位，把一行分成多个区段）在各区段分别显示表达式的值；若用分号（；）作分隔符，则按紧凑格式输出数据。,.,8,2020/5/8,4.1.2使用Print方法输出数据,2Tab函数Tab函数可以与Print方法配合使用。其格式为：Tab(n)功能：把光标移到由参数n指定的位置，从这个位置开始输出数据。,.,9,2020/5/8,4.1.2使用Print方法输出数据,3Spc函数其格式为：Spc(n)功能：在Print输出中，光标由当前位置跳过n个空格。,.,10,2020/5/8,【例4-1】使用Print方法直接在窗体上输出数据实例。,运行界面,.,11,2020/5/8,例4-1（语句）,程序代码如下：PrivateSubForm_Click()Dimv1AsString,v2AsStringDimv3AsString,v4AsStringDimv5AsStringv1=2008:v2=北京奥运v3=北京欢迎你v4=同一个世界v5=同一个梦想,.,12,2020/5/8,程序代码如下：PrintPrintTab(15);v1;v2PrintPrintTab(16);v3PrintPrintTab;v4,v5PrintPrintTab(4);v4,v5EndSub,.,13,2020/5/8,4.1.3输入函数InputBox,格式为：InputBox(Prompt.Title,Default,Xpos,Ypos)功能：弹出一个对话框（如图所示），等待用户输入数据，当用户敲回车键或单击“确定”按钮时，函数将输入的内容以字符串返回。,.,14,2020/5/8,4.1.3输入函数InputBox,例如：n=InputBox(请输入学生人数：,输入框,0),提示,标题,默认值,.,15,2020/5/8,4.1.3输入函数InputBox,函数中参数含义如下。Prompt：这是一个必选项，可以是字符串或字符串变量，用于表示出现在对话框中的提示信息，最长1024个字符，如上例中的“请输入学生人数:”。在对话框中显示Prompt时系统会自动换行，如果想按自己的要求换行，可在适当的位置插入回车换行操作：Chr$(13)Chr$(10),.,16,2020/5/8,4.1.3输入函数InputBox,函数中参数含义如下。Title：可选项，字符串或字符串变量，用于表示对话框内的标题信息，如上例中的“输入框”，若省略此项，则用工程名作为对话框的标题。,.,17,2020/5/8,4.1.3输入函数InputBox,函数中参数含义如下。Default：可选项，字符串或字符串变量，用于设置输入框的文本中的默认文本。如果此项省略，则对话框的输入区是空白的，否则，在对话框的输入区会显示该参数的内容，并作为输入的默认值。如果用户不想用这个默认字符串作为输入值，可在输入区直接输入新的数据。,.,18,2020/5/8,4.1.3输入函数InputBox,函数中参数含义如下。Xpos，Ypos：可选项，是两个整数值，用于设置输入框与屏幕左边和上边的距离（单位为twip）。若默认，则对话框显示在屏幕中心线向下约三分之一处。,.,19,2020/5/8,4.1.3输入函数InputBox,【例4-2】设计一个窗体，其中有一个命令按钮，如下图所示。,.,20,2020/5/8,4.1.3输入函数InputBox,编写单击命令按钮响应事件如下：PrivateSubCommand1_Click()Dims1AsString*8,s2AsStringDims3AsInteger,s4AsStringClss1=InputBox(请输入学号:,输入学号,20080001)s2=InputBox(请输入姓名:,输入姓名)s3=Val(InputBox(请输入年龄:,输入年龄,18),.,21,2020/5/8,4.1.3输入函数InputBox,编写单击命令按钮响应事件如下：s4=InputBox(请输入班级:,输入班级)PrintPrintTab(4);学号;Spc(5);姓名;Spc(5);年龄;Spc(6);班级PrintTab(2);s1;Tab(12);s2;Tab(22);s3;Tab(30);s4End,.,22,2020/5/8,【例4.1】输入一个圆的半径，试求其面积。新建一个工程，在其窗体上建立一个命令按钮。对命令按钮的单击事件编程。,.,23,2020/5/8,PrivateSubCommand1_Click()DimsAsSingle,rAsSingler=InputBox(请输入圆半径)s=3.14159*r*rPrint圆面积为：EndIfWendEndSub,.,95,2020/5/8,改进例题4-11,输入一个正整数N，单击窗体，则输出0N之间能被3整除的数，每输出10个数，换行一次。,.,96,2020/5/8,PrivateSubForm_Click()DimnAsInteger,yAsInteger,kAsIntegern=Val(InputBox(输入正整数N)Whileyns=s+1/(2*i+1)i=i+1Loopp=计算1+1/3+.1/(2n+1)之和MsgBox1+1/3+.+1/(2*&n&+1)=&s,pEndSub,.,112,2020/5/8,【例4.21】求两个数的最大公约数。用MsgBox语句输出。当输入的两个数分别为504与180时，MsgBox对话框如图所示。,.,113,2020/5/8,算法描述,被除数(m)除以除数(n)得余数(res)若余数为0，则退出循环，本次的除数(n)即为最大公约数；若余数不为0，则将除数(n)赋给被除数(m)，将余数(res)赋给除数(n)，然后再除得余数res。再判断余数res是否为0。依此类推。,.,114,2020/5/8,PrivateSubForm_Click()DimmAsInteger,nAsIntegerresAsIntegerDimm1AsInteger,n1AsInteger,pasStringDom=InputBox(输入第1个数)n=InputBox(输入第2个数)LoopWhilem=0Orn=0m1=m:n1=nDores=mModnIfres=0ThenExitDom=n:n=resLoopp=m1&和&n1&的最大公约数是：MsgBoxp&n,求最大公约数“EndSub,.,115,2020/5/8,【例4.23】产生40个随机数，模拟学生成绩。求最高分、最低分及平均分。程序运行界面如图所示。,.,116,2020/5/8,随机函数,Rnd函数在调用Rnd函数之前，先使用无参数的Randomize语句初始化随机数生成器。无参数时，根据系统时钟得到种子。生成某个范围的随机数，用以下公式：,Int(Upperbound-Lowerbound+1)*Rnd+Lowerbound),.,117,2020/5/8,PrivateSubForm_Click()DimmaxAsInteger,minAsInteger,eAsSingleDimiAsInteger,xAsIntegerRandomize:max=-1:min=1