《第6章程序VB 顺序结构程序设计ppt课件.ppt》由会员分享，可在线阅读，更多相关《第6章程序VB 顺序结构程序设计ppt课件.ppt（51页珍藏版）》请在三一办公上搜索。
1、第6章 顺序结构程序设计,建议课时（1.5课时）,学习重点,赋值语句的使用。熟练使用常用的输入输出语句。其他顺序语句的使用。掌握常用的顺序结构算法。,本章内容,6.1 赋值语句6.2 常用的输入语句6.3 常用的输出语句6.4 其他语句6.5 常用算法及应用本章小结,引言,顺序结构,按语句在代码中出现的先后次序“从上到下”依次执行,Private Sub Form_Load()List1.AddItem 西游记 List1.AddItem 傲慢与偏见 List1.AddItem 水浒 List1.AddItem 王子复仇记 List1.AddItem 白雪公主End Sub,引言（续）,顺序结
2、构中的各条语句之间可能存在一定的关联，要注意各语句之间的逻辑顺序要求；,a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text),有的顺序语句之间没有任何关联，先执行谁都无所谓，编程时可以根据程序员的习惯设置先后次序，一旦程序代码确定，各条语句的执行顺序也就唯一了。,Private Sub CmdDisPlay_Click()Dim Num As Double Num=Val(TxtNum)TxtInt=Cstr(Fix(Num)TxtDec=Cstr(Num-Fix(Num)End Sub,引言（续）,顺序结构中的典型语句赋值语句对象方法的调用语
3、句用户交互语句某些不会引起程序发生跳转的控制语句,6.1 赋 值 语 句,一般格式如下：Let varname=表达式作用是将表达式的值赋给变量或属性。说明：(1)Let是关键字，可省略。(2)varname是变量或属性的名称，遵循标准变量命名约定。(3)表达式是赋给变量或属性的值。,6.1 赋 值 语 句（续）,如：Dim MyStr As String,MyInt As IntegerLet MyStr=Hello World 等价于：MyStr=Hello World Let MyInt=5 等价于：MyInt=5,见“4.3.3变量”一节中“变量的赋值”,6.1 赋 值 语 句（续）,
4、注意：（1）等号左侧只能是变量或对象的属性名，且只能给运行时可修改的对象属性赋值，试图用赋值语句修改只读属性的值是错误的，如以下代码是错误的。Form1.Name=MyForm“Text1.ScrollBars=vbHorizontal（2）赋值语句中左侧变量或属性都是有类型的，赋给它们的值也应该是同类型数据，如果表达式的值类型和变量或属性类型不一致时，系统将最大限度的进行自动转换，把表达式的值转换成与变量或属性相同类型后再进行赋值，若自动转换失败，系统将提示错误信息。,6.1 赋 值 语 句（续）,赋值语句中的数据自动转换原则,例题,在程序中将变量A定义为Integer型，则语句A=“333
5、”+“222”将使A的值成为_。,溢出,例题,运行下面的程序，单击命令按钮C1，则窗体上的输出是_。Private Sub C1_Click()Dim A As Integer,B As Boolean,C As Integer Dim D As Integer A=20/3 B=True C=B D=A+C Print A,D,A=A+CEnd Sub,7 6 False,6.2 常用的输入语句,输入是指提供程序中待处理的数据，可以是运行时由用户使用键盘或鼠标进行输入的，也可以是先行程序的结果作为后继程序的输入。6.2.1 用控件输入 6.2.2 输入框InputBox函数,6.2.1 用控
6、件输入,大部分控件可以在运行时通过界面修改其主要属性。常用的输入控件1文本框 2单选钮和复选框 3列表框和组合框,1文本框,文本框既是一个输入控件又是一个输出控件。Text属性是实现输入输出的重要属性。,例6-1 输入三门课程得分，计算总分。Private Sub Command1_Click()Text4.Text=Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text)End Sub,2单选钮和复选框,单选按钮（OptionButton）和复选框（CheckBox）主要由用户通过单击鼠标来确定要输入的数据。Caption属性、Value属性是实现输入的
7、重要属性。例6-2,2单选钮和复选框,例6-2 实现将文字进行放大1倍、2倍和3倍。Dim x As Integer 过程级变量x，用来存放标签最原始的尺寸Private Sub Form_Activate()程序开始时获取x的初始值 x=Label1.FontSizeEnd SubPrivate Sub Option1_Click()Label1.FontSize=xEnd SubPrivate Sub Option2_Click()Label1.FontSize=2*xEnd SubPrivate Sub Option3_Click()Label1.FontSize=3*xEnd Sub,
8、3列表框和组合框,使用列表框（ListBox）和组合框（ComboBox）进行数据的输入，主要依靠用户通过鼠标单击列表项来获取数据。List、Text、ListIndex、ListCount等属性是实现数据输入的重要属性。例6-3,3列表框和组合框,例6-3列表框中有若干门课程名称，用户选中某课程后单击“确定”按钮，使按钮上的显示文字与该课程的名称一致。Private Sub Command1_Click()Command1.Caption=List1.TextEnd Sub,本题可作为“一钮多用”的部分功能实现，根据不同的选择呈现出不同的按钮样式，若采用选择结构继续编程则可实现多种用途的按钮
9、。,6.2.2 输入框InputBox函数,1InputBox函数InputBox函数格式如下：Varname=InputBox(prompt,title,default,xpos,ypos,helpfile,context)功能：程序执行以上格式语句时，弹出一个供用户输入信息的对话框，等待用户输入正文或按下按钮，并返回文本框内容。如：s=InputBox(请输入你的姓名,测试),6.2.2 输入框InputBox函数,说明：（1）Varname是变量名，用于存放InputBox函数的返回值，即用户输入的内容。（2）prompt是作为消息文字出现在输入框上的字符串表达式，不可以省略。promp
10、t的最大长度大约是1024个字符，由所用字符的宽度决定。如果prompt包含多个行，则可在各行之间用回车符Chr(13)、换行符Chr(10)、回车换行符的组合Chr(13)&Chr(10)或常量VbCrLf来分隔。（3）title是显示在输入框标题栏中的字符串表达式。如果省略title，则把应用程序名放入标题栏中。（4）default是输入框弹出时就显示在文本框中的默认字符串表达式，在没有其它输入时作为默认值。如果省略default，则文本框为空。,6.2.2 输入框InputBox函数,（5）xpos是表示x坐标的数值表达式，和ypos成对出现，指定对话框的左边与屏幕左边的水平距离。如果省
11、略 xpos，则对话框会在水平方向居中。（6）ypos是表示y坐标的数值表达式，和xpos成对出现，指定对话框的上边与屏幕上边的距离。如果省略 ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。（7）helpfile是表示帮助文件的字符串表达式，若识别到帮助文件，则使用该文件为对话框提供上下文相关的帮助。helpfile和context一定会一起出现，即如果已提供helpfile，则也必须提供context。使用helpfile和context将会使输入框增加一个“帮助”按钮，用户可以按F1来查看与context相应的帮助主题。（8）context是表示某个帮助主题的帮助上下文编
12、号的数值表达式。,6.2.2 输入框InputBox函数,在InputBox函数的使用中如果要省略某些位置参数，原则上都必须加入相应的逗号分界符，有一种情况下可以不加逗号，就是省略其后所有可省略的参数。s=InputBox(“请输入你的姓名”,Height/2)其中Height/2是ypos参数，中间的title、default和xpos都被省略了。,6.2.2 输入框InputBox函数,2InputBox函数的返回值格式中的Varname用来存放InputBox函数的返回值，该返回值是一个String型数据。由InputBox函数产生的输入框一般有“确定”和“取消”两个按钮，如果用户单击“
13、确定”按钮或按下回车键，则InputBox函数返回文本框中的内容。如果用户单击“取消”按钮或按下Esc键，则此函数返回一个长度为零的字符串()。,6.2.2 输入框InputBox函数,3InputBox函数举例 例6-4 用户在运行时输入列表框的各个单词项。,Private Sub Command1_Click()Dim s As String,message As String message=请输入列表项内容&vbCrLf&要求输入一个英文单词 s=InputBox(message,输入数据)List1.AddItem sEnd Sub,缺陷：当用户输入时按了“取消”按钮或未输入就按“确
14、定”按钮的时候，列表框中会被添加进一些空项。,6.3常用的输出语句,计算机中数据的输出是将程序处理结果反馈给用户，通常是在程序界面上将结果显示出来。6.3.1 用控件输出 6.3.2 消息框MsgBox函数,6.3.1 用控件输出,只要可以显示信息的控件都可以用来输出。VB中大部分控件都可以显式的表示出某些数据信息，只要修改能显示信息的属性即可，如：标签的Caption属性，文本框的Text属性，单选钮、复选框的Caption和Value属性，甚至在窗体、按钮的Caption属性。除了控件的属性外，在窗体或图片框中使用Print方法将结果信息输出也是编程人员经常采用的输出方式。,6.3.1 用
15、控件输出,例6-5 单击按钮每次产生一个随机整数，将这些数分别显示在窗体、图片框、文本框和列表框中。,对不同的对象我们采用不同的输出策略：在窗体上用Print方法输出；在图片框上也用Print方法输出；在文本框中使用Text属性累计输出；在列表框中使用AddItem方法增加输出项。,在各个对象上输出一个数Private Sub Command1_Click()Dim x As Integer x=Int(Rnd*100+1)Print x;在窗体上输出x，完整格式为Form1.Print x Picture1.Print x;在图片框中输入x Text1.Text=Text1.Text&x 在
16、文本框中输出x List1.AddItem x 在列表框中能够输出x Print 在窗体上输出换行 Picture1.Print 在图片框中输出换行 Text1.Text=Text1.Text&Chr(10)&Chr(13)在文本框中输出换行 列表框无须用户换行，一个列表项占一行End Sub清除各个对象上的显示内容Private Sub Form_Activate()清空 Cls 清屏，完整格式为Form1.Cls Picture1.Cls 清空图片框 Text1=清空文本框 List1.Clear 清空列表框End Sub,6.3.2 消息框MsgBox函数,1.MsgBox函数MsgBo
17、x函数格式Varname=MsgBox(prompt,buttons,title,helpfile,context)作用：在弹出式对话框中显示消息，等待用户单击按钮，并返回一个Integer型数值存放在变量Varname中告诉系统用户单击了哪一个按钮。如：x=MsgBox(恭喜你，注册成功！,vbOKOnly+vbExclamation,信息提示),6.3.2 消息框MsgBox函数,说明：（1）buttons表示按钮值的总和，是一个数值表达式，用于指定显示按钮的数目及形式、使用的图标样式、默认按钮是什么以及消息框的强制回应等。如果省略，则buttons的默认值为0。（2）其他参数同Input
18、Box函数,6.3.2 消息框MsgBox函数,MsgBox函数中的buttons参数由5个部分组成，如表6-1表6-5所示。buttons参数可由符号常量和数值任意组合而成。如：x=MsgBox(“恭喜你，注册成功！”,vbOKOnly+vbExclamation,“信息提示”)等价于：x=MsgBox(“恭喜你，注册成功！”,0+48,“信息提示”)x=MsgBox(“恭喜你，注册成功！”,48,“信息提示”)x=MsgBox(“恭喜你，注册成功！”,0+vbExclamation,“信息提示”)x=MsgBox(恭喜你，注册成功！,vbOkOnly+48,信息提示),6.3.2 消息框M
19、sgBox函数,2MsgBox函数的返回值 MsgBox函数格式中的Varname变量用来存放MsgBox函数的返回值，MsgBox函数的返回值是用来表示用户单击了消息框上的哪个按钮，可能的返回值在表6-6中列举。,6.3.2 消息框MsgBox函数,3MsgBox函数的另一种调用格式 忽略返回值的调用格式 MsgBox prompt,buttons,title,helpfile,context 如：MsgBox“恭喜你，注册成功！”,0+48,“信息提示”通常这种格式用于无须判断用户单击的是哪个按钮的情况。,6.3.2 消息框MsgBox函数,4MsgBox函数举例例6-6 如图所示，在窗体
20、上有5个动物图片，用户拖动某图片到目标框中时，将图片在目标框显示，并弹出消息框告知用户该动物的名称。,（a）初始界面（b）用户拖动后窗体界面（c）用户拖动后出现的消息框,6.3.2 消息框MsgBox函数,分析：5个动物图片和1个目标框都设计成Image对象，设置各个Image对象的Stretch属性为True使图片大小一致；将5个动物图片所在的Image对象的Name（名称）属性设置为各个图片中动物的名称，在属性窗口中设置5个Image对象的Picture属性；将5个动物Image的DragMode属性设置为“1-Automatic”，并在目标框Image1的DragDrop事件中编写代码。
21、代码如下。Private Sub image1_DragDrop(Source As Control,_ X As Single,Y As Single)Image1.Picture=Source.Picture MsgBox“你拖动的动物是：”&Source.Name,_ vbInformation,“提示”End Sub,6.4 其 他 语 句,6.4.1 注释语句 6.4.2 暂停语句 6.4.3 结束语句 6.4.4 Exit语句,6.4.1 注释语句,Visual Basic中提供了两种格式的注释语句。格式1：Rem 注释内容格式2：注释内容说明：格式1中的关键字Rem和注释内容之间
22、必须用空格隔开；注释内容中可以包含任意字符（西文、中文等）；注释语句是非执行语句，仅仅对相应位置上的代码起到注释作用。格式1的注释语句在使用时，一般单独成行，若要和其他语句同行，则需用分隔符分开；格式2的注释语句在使用时较格式1更加灵活，可以不用加语句间的分隔符，直接出现在某行语句后面进行注释。如：a=a+b:b=a-b:a=a-b 采用算术方法实现数据交换a=a+b:b=a-b:a=a-b:Rem 采用算术方法实现数据交换,6.4.2 暂停语句,格式：Stop。Stop语句用来暂停程序的执行，作用类似于“运行”菜单中的“中断”命令。Stop常用于程序调试，用它来设置断点，当Stop语句执行时
23、，会中断程序运行，并自动打开立即窗口，方便用户对程序代码进行检查和调试。,6.4.3 结束语句,格式：End。End语句用来结束一个应用程序的执行，即强迫中止应用程序，卸载该程序中的所有窗体，凡是由Open语句打开的文件被关闭，并且释放程序所占用的内存。注意End语句不调用Unload、QueryUnload或Terminate事件或任何其他Visual Basic代码，只是生硬地终止代码执行。在执行时，End语句会重置所有模块级别变量和所有模块的静态局部变量。若要保留这些变量的值，改为使用Stop语句，则可以在保留这些变量值的基础上恢复执行。,6.4.4 Exit语句,格式:Eixt Do
24、Exit For Exit Sub Exit FunctionEixt语句主要用于从当前位置跳出所在的程序结构。根据Exit后的关键字，以上格式分别对应于跳出DoLoop语句、For语句、子过程、函数过程，且关键字和各结构是唯一对应的。,6.5 常用算法及应用,6.5.1 交换两个数据的值 6.5.2 数据的自运算,6.5.1 交换两个数据的值,有A、B两个杯子中分别装有红酒和咖啡，要求将两个杯子中的饮品互换。具体实施步骤如下：步骤1：先将A杯中的红酒倒入C杯中。步骤2：再将B杯中的咖啡倒入A杯中。步骤3：最后将C杯中的红酒倒入B杯中。,6.5.1 交换两个数据的值,设x和y是两个相同类型的变
25、量，将两个变量中的值进行交换。,分析：简单的使用x=y:y=x并不能达到目的，这样的赋值会使x中的数值丢失而使y=x失去意义。使用辅助变量z来实现。步骤1：将x的值放入z中。步骤2：再将y的值放入x中。步骤3：最后将z中的值放入y中。以上步骤的代码实现是z=x:x=y:y=z(3条语句)使用时要特别注意执行中变量值的变化情况。对于数值型变量的交换，还可以采用数学的方法来实现。x=x+y:y=x-y:x=x y(3条语句),6.5.2 数据的自运算,程序中经常出现一些变量，他们的值是通过前一次赋值经过运算得到的，这种相对于自己的一种运算我们称之为自运算，这种运算在本质上属于递推概念。,6.5.2
26、 数据的自运算,1算术运算（主要用于数值型数据的自运算）（1）将变量x的值增加1语句为x=x+1。（2）将变量x的值减少1语句为x=x 1。（3）将标签Label1的Left属性增加100，语句为Label1.Left=Label1.Left+100。（4）将图像Image1的Width属性扩大两倍，语句为Image1.Width=Image1.Width*2。,6.5.2 数据的自运算,2字符运算（1）在字符串s的后面添加字符“！”，语句为s=s&“!”（2）删除字符串s的最后一个字符，语句为：s=Left(s,Len(s)-1)（3）在字符串s的后面添加字符“#”，语句为s=“#”&s（4
27、）删除字符串s的第一个字符，语句为：s=Right(s,Len(s)-1)（5）在字符串s的第k个字符后添加字符“*”，语句为：s=Left(s,k)&*&Right(s,Len(s)-k)（6）删除字符串s的第k个字符，语句为：s=Left(s,k-1)&Right(s,Len(s)-k),6.5.2 数据的自运算,例6-7 统计点击次数。如图所示，单击窗体后在窗体上输出当前的点击次数。在程序中，可以使用一种特殊的变量，初始值为0，每执行一次某个程序段，该变量的值就自增1，这样变量的值和程序段的执行次数一致，我们称这种变量为计数器。,例6-7,程序代码如下：Private Sub Form_
28、Click()Static x As Integer x=x+1 Cls Print 您已经连续点击了&x&次窗体。End Sub以上代码中使用了Static（静态）变量x，这种用Static定义的变量可以保留前一次执行本段程序时获得的值，因此x的值实际是从0开始进行了累加，即每次加1。,例题,模拟实现Backspace键的功能,Private Sub Command1_Click()Text1.Text=Left(Text1.Text,Len(Text1.Text)-1)Text1.SetFocus Text1.SelStart=Len(Text1.Text)End Sub,本 章 小 结,本章主要介绍了常用的顺序语句，包括赋值语句、交互语句及其他语句。赋值语句是使用频率最高的语句，应用于值的存储、属性值的设置和更改等，在表达式中也经常使用第4章中介绍的系统函数。交互语句分为输入和输出，从本章介绍看，主要的输入输出还是靠赋值语句来实现，Visual Basic也提供了一些交互函数供用户使用。在顺序语句中，有些语句的顺序是可以更改的，但有些语句的顺序是不可以更改的，要注意分析前后语句的逻辑关系。,
