2.5顺序结构程序设计.ppt

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,1,顺序结构的执行程序是自上而下、依次执行。大多数情况下顺序结构都是作为程序的一部分，与其他结构一起组成一个复杂的程序。,2,赋值语句的格式是,”,变量名表达式”或“对象名属性表达式”。如果在同一行中出现多个赋值语句，则语句之间用冒号,(,：,),隔开。,例如：,a,5,：,b,a,3,：,c,2,*,a+b8,2,5,顺序结构程序设计,Print,方法,Print,方法可以在窗体上显示文本字符串和表达式的值，其一般格式为：,Print P1P2,式中，,P1,，,P2,是输出项；,s,是输出项之间的分隔符，可以是逗号，也可以是分号。,例如：,Print,“的次方等于”，,56,格式输出函数,Format,用格式输出函数可以使数值或日期按指定的格式输出。一般格式为：,Format,（数值表达式，格式字符串）,该函数的功能是按“格式字符串”指定的格式输出“数值表达式”的值。,Print,方法的使用,Print,方法在实际的使用大多是作为程序调试用，用户在调试过程中使用,Print,方法可,以实时观察变量的变化。下面以实例来说明,Print,方法的使用。,Private Sub Command1_Click(),Print“,的次方等于”，,Print Format$(98765.4321,“,00000.00,”）,Print Format$,（,Sqr,（,5,），“,0.00,”）,Print Format$,（,0.853,，“,0.0%,”）,End Sub,4,InputBox,函数,InputBox,函数用来接收用户通过键盘输入的数据，即产生一个对话框，这个话框作为输入数据界面，等待用户输入数据，并返回所输入的内容。其格式为：,z,InputBox(,“提示字符串”，“对话框标题”,),例如：,Private Sub Command1_Click(),Dim a As Integer,a,InputBox(,“请输入,a,的值”，“输入变量值”,),End Sub,执行完该语句，系统会弹出如下对话框。,此时，输入的内容将返回到变量,a,中。,5,MsgBox,函数和语句,MsgBox,函数在对话框中显示消息，等待用户单击按钮，并返回一个整型变量告诉用户单击哪一个按钮。,(,注：在程序调试阶段，此函数非常有用。,),MsgBox,函数使用方法：,z,MsgBox(,“提示字符串”，按钮，“标题”,),参数说明：提示字符串为必填项，按钮为选填，默认值为,0,。,常量,值,说明,VbOKOnly,0,只显示,“,确定,”,按钮,VbOKCancel,1,显示,“,确定,”,和,“,取消,”,按钮,VbAbortRetryIgnore,2,显示,“,终止,”,、,“,重试,”,和,“,忽略,”,按钮,VbYesNoCancel,3,显示,“,是,”,、,“,否,”,和,“,取消,”,按钮,VbYesNo,4,显示,“,是,”,和,“,否,”,按钮,VbRetryCancel,5,显示,“,重试,”,和,“,取消,”,按钮,例如有以下,VB,程序段：,Private Sub Command1_Click(),Dim an As Integer,an,MsgBox,(,“你确认要离开我吗？”，,1,，”离开”,),If an,1 Then Print,“离开”,Else Print,“留下”,End Sub,运行时，会跳出如下图所示对话框。,MsgBox,语句使用方法,MsgBox,语句的使用方法为：,MsgBox,输出字符串或表达式，按钮，”窗口标题”,该语句与,MsgBox,函数唯一的区别就是没有返回值，因而常用于较为简单的信息提示。其中，跟,MsgBox,函数一样，按钮与窗口标题信息可以缺省。一般在调试过程中该语句用得比较多。例如：,Private Sub Command1_Click(),MsgBox,“今天是”,Str(Date),0,“提示日期”,End Sub,程序显示如下对话框：,6,Cls,方法,Cls,方法格式为：,对象,Cls,Cls,方法清除对象上的输出内容，默认对象为当前窗体。例如执行：,From1.Cls,。即将,From1,窗体中的所有显示信息清空。,本节课主要是掌握赋值语句格式的使用。尤其要掌握,VB,常用的程序调试方法。考查方式为选择题与填空题。,1,在,VB,中，给变量,a,，,b,，,c,均赋值为,8,，下列语句正确的是,(,),A,a,8,，,b,8,，,c,8,B,a,8,：,b,8,：,c,8,C,a,8,；,b,8,；,c,8,D,a,b,c,8,B,D,2,有如下,VB,程序段：,x,1:a,x:b,x,1,x,x,1:c,x:d,x,1,该程序运行后,(,),A,a,与,b,的值相同，,c,与,d,的值相同,B,a,与,b,的值相同，,c,与,d,的值不同,C,a,与,b,的值不同，,c,与,d,的值相同,D,a,与,b,的值不同，,c,与,d,的值不同,C,3,将整数型变量,c,的值显示在文本框,Text1,中，完整的语句是,(,),A,Str(Text1.Text),c,B,Val(Text1),c,C,Text1.Text,Val(c),D,Text1,c,4,有如下,VB,程序段：,a,321,b,a 10,c,b Mod 10,该程序运行后，变量,c,的值为,_,。,2,8,5,有如下,VB,程序段：,Dim a As Integer,a,InputBox(,“,a,”，“输入,a,”,),b,InputBox(,“,b,”，“输入,b,”,),c,a b,MsgBox c,运行程序，在,InputBox,提示窗口分别输入,2,和,3,，最后,MsgBox,提示窗口输出变量,c,的值是,_,。,好孩子,6,有如下,VB,程序段：,Private Sub Command1_Click(),a,我们都是好孩子,b,Len(Right(a,1),c,Mid(a,5,3),MsgBox a,b,c,End Sub,执行程序，单击命令按钮,Command1,，则在弹出的信息框标题栏中显示的标题是,_,。,a=InputBox(,请输入班内编号,输入框,),7,执行一个,VB,语句弹出如下图所示的对话框：,假如输入结果赋值给变量,a,，则这个语句是,_,。,X=False Y=True,8,有如下程序段：,Private Sub Command1_Click(),a,1,b,2,c,3,x,a b,y,Not x And b c,Print,“,X,”，,x,“,Y,”，,y,End Sub,运行程序后，在窗体中显示的信息是,_,。,2,9,有如下,VB,程序段：,Private Sub Command1_Click(),Dim a As Integer,Dim b As Integer,a,Val(Text1.Text),b,Val(Text2.Text),a,a,b,b,a Mod b,a,a b,Text1.Text,Str,(a),Text2.Text,Str,(b),End Sub,程序运行时，在文本框,Text1,与,Text2,分别输入,5,和,6,，单击命令按钮,Command1,后，文本框,Text1,中显示的内容是,_,，文本框,Text2,中显示的内容是,_,。,5,10,有如下,VB,程序段：,Private Sub Command1_Click(),Dim u As Single,x As Single,y As Single,z As Single,u,Val(Text1.Text),x,(u,10)/(u*u,8),y,(u,1)/(x,u),z,Sqr,(x,y),Text2.Text,Str,(z),End Sub,运行程序时，在文本框,Text1,中输入,1,，单击命令按钮,Command1,，弹出如上图所示的错误提示信息。产生此错误的语句是,_,。,y=(u-1)/(x+u),13,11,下列,VB,程序运行时，在文本框,Text1,中输入,10,，单击命令按钮,Command1,后，文本框,Text2,中显示的内容是,_,。,Private Sub Command1_Click(),Dim x As Single,a As Integer,b As Integer,a,Val(Text1.Text),x,Sqr,(a),b,Int,(x),Text2.Text,Str,(a,b),End Sub,12,(,操作题,),某段公路全长,300,公里，,A,车与,B,车分别从两头开始同一时间出发。请设计一个,VB,程序，计算两车相遇的时间。,程序代码参考如下：,Private Sub Command1_Click(),Dim a As Integer,b As Integer,h As Integer,，,f As Integer,a,_,输入,A,的时速,b,_ ,输入,B,的时速,a,a,b,计算速度和,h,_,计算小时数,f,_,计算剩余的分钟,MsgBox,“两车将在”,Str,(h),“小时”,Str,(f),“,分钟后相遇”，,0,“,”,End Sub,InputBox(,请输入,B,车的车速,km/h,输入车速,),(1),程序运行时显示如下图所示的输入窗口。,为实现该功能，应在处填入语句,_,，,在处填入语句,_,。,InputBox(,请输入,A,车的车速,km/h,输入车速,),(2),程序运行时，在对话框中分别输入,A,车的车速与,B,车的车速后，弹出如上图所示的信息。,为顺利实现该功能，应在处填入语句,_,；在处填入语句,_,；在处填入窗口标题信息,_,。,300a,相遇时间,Int(300 Mod a)/a*60,