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