第6章-程序VB-顺序结构程序设计课件

第6章顺序结构程序设计

建议课时（1.5课时）第6章顺序结构程序设计建议课时（1.5课时）1学习重点

赋值语句的使用。熟练使用常用的输入输出语句。其他顺序语句的使用。掌握常用的顺序结构算法。学习重点赋值语句的使用。2本章内容6.1赋值语句6.2常用的输入语句6.3常用的输出语句6.4其他语句6.5常用算法及应用本章小结

本章内容6.1赋值语句3引言顺序结构

★按语句在代码中出现的先后次序“从上到下”依次执行

PrivateSubForm_Load() List1.AddItem"西游记"List1.AddItem"傲慢与偏见"List1.AddItem"水浒"List1.AddItem"王子复仇记"List1.AddItem"白雪公主"EndSub引言顺序结构★按语句在代码中出现的先后次序“从上到下”依次4引言（续）★顺序结构中的各条语句之间可能存在一定的关联，要注意各语句之间的逻辑顺序要求；a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)★有的顺序语句之间没有任何关联，先执行谁都无所谓，编程时可以根据程序员的习惯设置先后次序，一旦程序代码确定，各条语句的执行顺序也就唯一了。

PrivateSubCmdDisPlay_Click()

DimNumAsDoubleNum=Val(TxtNum)TxtInt=Cstr(Fix(Num))TxtDec=Cstr(Num-Fix(Num))

EndSub引言（续）★顺序结构中的各条语句之间可能存在一定的关联，要注5引言（续）顺序结构中的典型语句赋值语句对象方法的调用语句用户交互语句某些不会引起程序发生跳转的控制语句

引言（续）顺序结构中的典型语句66.1赋

值

语

句

一般格式如下：

[Let]varname=表达式作用是将表达式的值赋给变量或属性。说明：(1)Let是关键字，可省略。(2)varname是变量或属性的名称，遵循标准变量命名约定。(3)表达式是赋给变量或属性的值。

6.1赋值语句一般格式如下：

[Let]var76.1赋

值

语

句（续）如：DimMyStrAsString,MyIntAsIntegerLetMyStr="HelloWorld"等价于：MyStr="HelloWorld"LetMyInt=5等价于：MyInt=5见“4.3.3变量”一节中“变量的赋值”

6.1赋值语句（续）如：见“4.3.3变量”一节中86.1赋

值

语

句（续）注意：（1）等号左侧只能是变量或对象的属性名，且只能给运行时可修改的对象属性赋值，试图用赋值语句修改只读属性的值是错误的，如以下代码是错误的。

Form1.Name="MyForm“

Text1.ScrollBars=vbHorizontal（2）赋值语句中左侧变量或属性都是有类型的，赋给它们的值也应该是同类型数据，如果表达式的值类型和变量或属性类型不一致时，系统将最大限度的进行自动转换，把表达式的值转换成与变量或属性相同类型后再进行赋值，若自动转换失败，系统将提示错误信息。

6.1赋值语句（续）注意：96.1赋

值

语

句（续）赋值语句中的数据自动转换原则

6.1赋值语句（续）赋值语句中的数据自动转换原则10例题在程序中将变量A定义为Integer型，则语句A=“333”+“222”将使A的值成为____。溢出例题在程序中将变量A定义为Integer型，则语句A=11例题运行下面的程序，单击命令按钮C1，则窗体上的输出是____________。PrivateSubC1_Click()DimAAsInteger,BAsBoolean,CAsInteger

DimDAsIntegerA=20/3B=TrueC=BD=A+CPrintA,D,A=A+CEndSub76False

例题运行下面的程序，单击命令按钮C1，则窗体上的输出是___126.2常用的输入语句输入是指提供程序中待处理的数据，可以是运行时由用户使用键盘或鼠标进行输入的，也可以是先行程序的结果作为后继程序的输入。

6.2.1用控件输入

6.2.2输入框——InputBox函数

6.2常用的输入语句输入是指提供程序中待处理的数据，可以136.2.1用控件输入大部分控件可以在运行时通过界面修改其主要属性。常用的输入控件1．文本框

2．单选钮和复选框

3．列表框和组合框

6.2.1用控件输入大部分控件可以在运行时通过界面修改其141．文本框文本框既是一个输入控件又是一个输出控件。Text属性是实现输入输出的重要属性。例6-1输入三门课程得分，计算总分。

PrivateSubCommand1_Click()Text4.Text=Val(Text1.Text)+Val(Text2.Text)+Val(Text3.Text)EndSub

1．文本框文本框既是一个输入控件又是一个输出控件。例6-1152．单选钮和复选框

单选按钮（OptionButton）和复选框（CheckBox）主要由用户通过单击鼠标来确定要输入的数据。Caption属性、Value属性是实现输入的重要属性。

例6-22．单选钮和复选框单选按钮（OptionButton）和复162．单选钮和复选框例6-2实现将文字进行放大1倍、2倍和3倍。

DimxAsInteger '过程级变量x，用来存放标签最原始的尺寸PrivateSubForm_Activate() '程序开始时获取x的初始值x=Label1.FontSizeEndSubPrivateSubOption1_Click()Label1.FontSize=xEndSubPrivateSubOption2_Click()Label1.FontSize=2*xEndSubPrivateSubOption3_Click()Label1.FontSize=3*xEndSub2．单选钮和复选框例6-2实现将文字进行放大1倍、2倍和173．列表框和组合框

使用列表框（ListBox）和组合框（ComboBox）进行数据的输入，主要依靠用户通过鼠标单击列表项来获取数据。List、Text、ListIndex、ListCount等属性是实现数据输入的重要属性。例6-33．列表框和组合框使用列表框（ListBox）和组合框（C183．列表框和组合框例6-3列表框中有若干门课程名称，用户选中某课程后单击“确定”按钮，使按钮上的显示文字与该课程的名称一致。PrivateSubCommand1_Click()

Command1.Caption=List1.TextEndSub

本题可作为“一钮多用”的部分功能实现，根据不同的选择呈现出不同的按钮样式，若采用选择结构继续编程则可实现多种用途的按钮。

3．列表框和组合框例6-3列表框中有若干门课程名称，用户选中196.2.2输入框——InputBox函数

1．InputBox函数InputBox函数格式如下：

Varname=InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])功能：程序执行以上格式语句时，弹出一个供用户输入信息的对话框，等待用户输入正文或按下按钮，并返回文本框内容。如：s=InputBox("请输入你的姓名","测试")

6.2.2输入框——InputBox函数1．Input206.2.2输入框——InputBox函数说明：（1）Varname是变量名，用于存放InputBox函数的返回值，即用户输入的内容。（2）prompt是作为消息文字出现在输入框上的字符串表达式，不可以省略。prompt的最大长度大约是1

024个字符，由所用字符的宽度决定。如果prompt包含多个行，则可在各行之间用回车符Chr(13)、换行符Chr(10)、回车换行符的组合Chr(13)&Chr(10)或常量VbCrLf来分隔。（3）title是显示在输入框标题栏中的字符串表达式。如果省略title，则把应用程序名放入标题栏中。（4）default是输入框弹出时就显示在文本框中的默认字符串表达式，在没有其它输入时作为默认值。如果省略default，则文本框为空。6.2.2输入框——InputBox函数说明：216.2.2输入框——InputBox函数（5）xpos是表示x坐标的数值表达式，和ypos成对出现，指定对话框的左边与屏幕左边的水平距离。如果省略xpos，则对话框会在水平方向居中。（6）ypos是表示y坐标的数值表达式，和xpos成对出现，指定对话框的上边与屏幕上边的距离。如果省略ypos，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。（7）helpfile是表示帮助文件的字符串表达式，若识别到帮助文件，则使用该文件为对话框提供上下文相关的帮助。helpfile和context一定会一起出现，即如果已提供helpfile，则也必须提供context。使用helpfile和context将会使输入框增加一个“帮助”按钮，用户可以按F1来查看与context相应的帮助主题。（8）context是表示某个帮助主题的帮助上下文编号的数值表达式。

6.2.2输入框——InputBox函数（5）xpos是226.2.2输入框——InputBox函数在InputBox函数的使用中如果要省略某些位置参数，原则上都必须加入相应的逗号分界符，有一种情况下可以不加逗号，就是省略其后所有可省略的参数。

s=InputBox(“请输入你的姓名”,,,,Height/2)

其中Height/2是ypos参数，中间的title、default和xpos都被省略了。

6.2.2输入框——InputBox函数在InputBo236.2.2输入框——InputBox函数2．InputBox函数的返回值格式中的Varname用来存放InputBox函数的返回值，该返回值是一个String型数据。由InputBox函数产生的输入框一般有“确定”和“取消”两个按钮，如果用户单击“确定”按钮或按下回车键，则InputBox函数返回文本框中的内容。如果用户单击“取消”按钮或按下Esc键，则此函数返回一个长度为零的字符串("")。

6.2.2输入框——InputBox函数2．InputB246.2.2输入框——InputBox函数3．InputBox函数举例

例6-4

用户在运行时输入列表框的各个单词项。

PrivateSubCommand1_Click()DimsAsString,messageAsStringmessage="请输入列表项内容"&vbCrLf&"要求输入一个英文单词"s=InputBox(message,"输入数据")List1.AddItemsEndSub

缺陷：当用户输入时按了“取消”按钮或未输入就按“确定”按钮的时候，列表框中会被添加进一些空项。

6.2.2输入框——InputBox函数3．InputB256.3常用的输出语句

计算机中数据的输出是将程序处理结果反馈给用户，通常是在程序界面上将结果显示出来。6.3.1用控件输出6.3.2消息框——MsgBox函数

6.3常用的输出语句计算机中数据的输出是将程序处理结果反馈266.3.1用控件输出

只要可以显示信息的控件都可以用来输出。VB中大部分控件都可以显式的表示出某些数据信息，只要修改能显示信息的属性即可，如：标签的Caption属性，文本框的Text属性，单选钮、复选框的Caption和Value属性，甚至在窗体、按钮的Caption属性。除了控件的属性外，在窗体或图片框中使用Print方法将结果信息输出也是编程人员经常采用的输出方式。6.3.1用控件输出只要可以显示信息的控件都可以用来输出276.3.1用控件输出例6-5

单击按钮每次产生一个随机整数，将这些数分别显示在窗体、图片框、文本框和列表框中。

对不同的对象我们采用不同的输出策略：在窗体上用Print方法输出；在图片框上也用Print方法输出；在文本框中使用Text属性累计输出；在列表框中使用AddItem方法增加输出项。

6.3.1用控件输出例6-5单击按钮每次产生一个随机整28在各个对象上输出一个数PrivateSubCommand1_Click()DimxAsIntegerx=Int(Rnd*100+1)Printx; '在窗体上输出x，完整格式为Form1.PrintxPicture1.Printx; '在图片框中输入xText1.Text=Text1.Text&x '在文本框中输出xList1.AddItemx '在列表框中能够输出xPrint '在窗体上输出换行Picture1.Print '在图片框中输出换行Text1.Text=Text1.Text&Chr(10)&Chr(13)'在文本框中输出换行'列表框无须用户换行，一个列表项占一行EndSub清除各个对象上的显示内容PrivateSubForm_Activate()'清空Cls '清屏，完整格式为Form1.ClsPicture1.Cls '清空图片框Text1="" '清空文本框List1.Clear '清空列表框EndSub在各个对象上输出一个数296.3.2消息框——MsgBox函数

1.MsgBox函数MsgBox函数格式

Varname=MsgBox(prompt[,buttons][,title][,helpfile,context])作用：在弹出式对话框中显示消息，等待用户单击按钮，并返回一个Integer型数值存放在变量Varname中告诉系统用户单击了哪一个按钮。

如：x=MsgBox("恭喜你，注册成功！",vbOKOnly+vbExclamation,"信息提示")6.3.2消息框——MsgBox函数1.MsgBox函306.3.2消息框——MsgBox函数说明：（1）buttons表示按钮值的总和，是一个数值表达式，用于指定显示按钮的数目及形式、使用的图标样式、默认按钮是什么以及消息框的强制回应等。如果省略，则buttons的默认值为0。（2）其他参数同InputBox函数

6.3.2消息框——MsgBox函数说明：316.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消息框——MsgBox函数MsgBox函数中的b326.3.2消息框——MsgBox函数2．MsgBox函数的返回值

MsgBox函数格式中的Varname变量用来存放MsgBox函数的返回值，MsgBox函数的返回值是用来表示用户单击了消息框上的哪个按钮，可能的返回值在表6-6中列举。

6.3.2消息框——MsgBox函数2．MsgBox函数的336.3.2消息框——MsgBox函数3．MsgBox函数的另一种调用格式

忽略返回值的调用格式

MsgBoxprompt[,buttons][,title][,helpfile,context]

如：

MsgBox“恭喜你，注册成功！”,0+48,“信息提示”

通常这种格式用于无须判断用户单击的是哪个按钮的情况。6.3.2消息框——MsgBox函数3．MsgBox函数的346.3.2消息框——MsgBox函数4．MsgBox函数举例例6-6

如图所示，在窗体上有5个动物图片，用户拖动某图片到目标框中时，将图片在目标框显示，并弹出消息框告知用户该动物的名称。

（a）初始界面

（b）用户拖动后窗体界面

（c）用户拖动后出现的消息框

6.3.2消息框——MsgBox函数4．MsgBox函数举356.3.2消息框——MsgBox函数分析：5个动物图片和1个目标框都设计成Image对象，设置各个Image对象的Stretch属性为True使图片大小一致；将5个动物图片所在的Image对象的Name（名称）属性设置为各个图片中动物的名称，在属性窗口中设置5个Image对象的Picture属性；将5个动物Image的DragMode属性设置为“1-Automatic”，并在目标框Image1的DragDrop事件中编写代码。代码如下。

PrivateSubimage1_DragDrop(SourceAsControl,_

XAsSingle,YAsSingle)

Image1.Picture=Source.Picture

MsgBox“你拖动的动物是：”&Source.Name,_

vbInformation,“提示”

EndSub6.3.2消息框——MsgBox函数分析：366.4其他语句6.4.1注释语句

6.4.2暂停语句

6.4.3结束语句

6.4.4Exit语句

6.4其他语句6.4.1注释语句376.4.1注释语句VisualBasic中提供了两种格式的注释语句。

格式1：Rem注释内容

格式2：'注释内容说明：格式1中的关键字Rem和注释内容之间必须用空格隔开；注释内容中可以包含任意字符（西文、中文等）；注释语句是非执行语句，仅仅对相应位置上的代码起到注释作用。格式1的注释语句在使用时，一般单独成行，若要和其他语句同行，则需用分隔符分开；格式2的注释语句在使用时较格式1更加灵活，可以不用加语句间的分隔符，直接出现在某行语句后面进行注释。如：

a=a+b:b=a-b:a=a-b‘采用算术方法实现数据交换

a=a+b:b=a-b:a=a-b:Rem采用算术方法实现数据交换6.4.1注释语句VisualBasic中提供了两种格386.4.2暂停语句格式：Stop。Stop语句用来暂停程序的执行，作用类似于“运行”菜单中的“中断”命令。Stop常用于程序调试，用它来设置断点，当Stop语句执行时，会中断程序运行，并自动打开立即窗口，方便用户对程序代码进行检查和调试。6.4.2暂停语句格式：Stop。396.4.3结束语句

格式：End。End语句用来结束一个应用程序的执行，即强迫中止应用程序，卸载该程序中的所有窗体，凡是由Open语句打开的文件被关闭，并且释放程序所占用的内存。注意End语句不调用Unload、QueryUnload或Terminate事件或任何其他VisualBasic代码，只是生硬地终止代码执行。在执行时，End语句会重置所有模块级别变量和所有模块的静态局部变量。若要保留这些变量的值，改为使用Stop语句，则可以在保留这些变量值的基础上恢复执行。6.4.3结束语句格式：End。406.4.4Exit语句格式:

EixtDo

ExitFor

ExitSub

ExitFunctionEixt语句主要用于从当前位置跳出所在的程序结构。根据Exit后的关键字，以上格式分别对应于跳出Do…Loop语句、For语句、子过程、函数过程，且关键字和各结构是唯一对应的。

6.4.4Exit语句格式:

EixtDo

Exit416.5常用算法及应用

6.5.1交换两个数据的值

6.5.2数据的自运算

6.5常用算法及应用6.5.1交换两个数据的值426.5.1交换两个数据的值有A、B两个杯子中分别装有红酒和咖啡，要求将两个杯子中的饮品互换。

具体实施步骤如下：

步骤1：先将A杯中的红酒倒入C杯中。

步骤2：再将B杯中的咖啡倒入A杯中。

步骤3：最后将C杯中的红酒倒入B杯中。

6.5.1交换两个数据的值有A、B两个杯子中分别装有红酒436.5.1交换两个数据的值设x和y是两个相同类型的变量，将两个变量中的值进行交换。

分析：简单的使用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.1交换两个数据的值设x和y是两个相同类型的变量，446.5.2数据的自运算

程序中经常出现一些变量，他们的值是通过前一次赋值经过运算得到的，这种相对于自己的一种运算我们称之为自运算，这种运算在本质上属于递推概念。

6.5.2数据的自运算程序中经常出现一些变量，他们的值456.5.2数据的自运算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数据的自运算1．算术运算（主要用于数值型数据466.5.2数据的自运算2．字符运算（1）在字符串s的后面添加字符“！”，语