第第四四章章 顺顺序序结结构构程程序序设设计计第第4 4章章 顺序结构程序设计顺序结构程序设计本章要点本章要点: : 赋值语句赋值语句数据输入数据输入* *数据输出数据输出* *注释、暂停与程序结束语句注释、暂停与程序结束语句1第第四四章章 顺顺序序结结构构程程序序设设计计事件驱动事件驱动: 将代码划分成一些将代码划分成一些“子过程子过程”过程结构过程结构: 过程内部代码由三种基本结构组成过程内部代码由三种基本结构组成 即即: 顺序结构、选择结构、循环结构顺序结构、选择结构、循环结构顺序结构顺序结构: 执行过程的次序从上到下，从左到右执行过程的次序从上到下，从左到右例例: Private Sub Command1_Click() Const Pi = 3.14 H = Val(Text1.Text) : R = Val(Text2.Text) Text3.Text = Pi * R 2 * H End Sub2第第四四章章 顺顺序序结结构构程程序序设设计计4.1 赋值语句赋值语句1. 格式格式 let = 或或: .= 2. 功能功能 计算表达式的值计算表达式的值,再将此值赋给变量或对象属性。再将此值赋给变量或对象属性。3. 说明说明(1) : 应符合应符合VB变量命名约定。变量命名约定。(2) : 常量、变量、表达式、属性。常量、变量、表达式、属性。(3) : 缺省时为当前窗体。缺省时为当前窗体。(4) 赋值号赋值号“=”: 与数学中的等号意义不同与数学中的等号意义不同。 例例: X=X+13第第四四章章 顺顺序序结结构构程程序序设设计计(5) 赋值号左边必须是变量或对象属性。赋值号左边必须是变量或对象属性。 例例: X=1 MyStr=Good Morning Command1.Caption=确定确定 X+1=X 错误，赋值号左边是表达式错误，赋值号左边是表达式 Y=5 正确正确 5=Y 错误，赋值号左边是常量错误，赋值号左边是常量 (6) 变量名或对象属性名的类型应与表达式类型变量名或对象属性名的类型应与表达式类型相容。相容。 类型类型相容相容：指变量名或对象属性名能够正确存：指变量名或对象属性名能够正确存取赋值号右边的表达式的值取赋值号右边的表达式的值。4第第四四章章 顺顺序序结结构构程程序序设设计计例例: Dim A As Integer, B As Single Dim C As Double, S As String A = 100 将整型数将整型数100赋给整型变量赋给整型变量A S = 123.45 将字符串将字符串123.45赋给变量赋给变量S A = S 将数字字符串变量赋给整型变量，将数字字符串变量赋给整型变量， 变量变量A中存放中存放123 S = A S中存放字符串中存放字符串123 B = 12345.67 A = B 高单度变量赋值给整型变量，高单度变量赋值给整型变量， 先四舍五入后取整先四舍五入后取整, A中存放中存放12346 C = 123456.789 B = C 高精度变量赋值给低精度变量，高精度变量赋值给低精度变量， 变量变量B中存放中存放123456.8。有效数字。有效数字7位位 S = abc A = S 错误，类型不匹配错误，类型不匹配5第第四四章章 顺顺序序结结构构程程序序设设计计(7) 变量未赋值时，数值型变量值为变量未赋值时，数值型变量值为0，字符串变，字符串变量值为空串量值为空串。(8) 给可变类型的变量赋值后，变量的类型为赋值给可变类型的变量赋值后，变量的类型为赋值号右边表达式的类型。号右边表达式的类型。例例: 执行下列各赋值语句后，执行下列各赋值语句后，A的数据类型是什么的数据类型是什么？ (设设A没有定义数据类型没有定义数据类型) A = 6 = 5 A = 5 + 3 A = 5+3 A = #11/26/99# A = #11/26/1999# A = Not 5 8可用可用TypeName函数显示变量的数据类型。函数显示变量的数据类型。如如:Print TypeName(A)6第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-1】设变量】设变量A中存放中存放5，变量，变量B中存放中存放8，交，交换两个变量的值，使变量换两个变量的值，使变量A中存放中存放8，变量，变量B中存中存放放5。 代码如下代码如下: A = 5 B = 8 C = A A = B B = CVB4lt1:进入进入VB环境环境ABCC=AA=BB=C7第第四四章章 顺顺序序结结构构程程序序设设计计4.2 数据输入数据输入 把要加工的初始数据从某种外部设备（例如键把要加工的初始数据从某种外部设备（例如键盘）盘）输入输入到计算机中，并把处理结果到计算机中，并把处理结果输出输出到指定到指定设备（如显示器），这是程序设计语言所应具备设备（如显示器），这是程序设计语言所应具备的基本部分。的基本部分。赋值语句；赋值语句；输入框输入框(InputBox)；文本框文本框(TextBox)；输入输入8第第四四章章 顺顺序序结结构构程程序序设设计计4.2.1 用输入框用输入框(InputBox)输入数据输入数据1. InputBox函数的格式函数的格式 InputBox( , , )2. 功能功能 提示一对话框，等待用户输入正文或按下按钮，提示一对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串。并返回包含文本框内容的字符串。3. 3. 说明说明 n : 字符串表达式。字符串表达式。可用可用Chr(13)、Chr(10)、Chr(13) & Chr(10)、vbCrLf换行。最多可有换行。最多可有1024个字符个字符n : 字符串表达式字符串表达式,省略时默认为应用程序名。省略时默认为应用程序名。n : 字符串表达式字符串表达式,省略时默认为空。省略时默认为空。n返回值返回值: 字符串字符串(在对话框中单击取消则返回在对话框中单击取消则返回)9第第四四章章 顺顺序序结结构构程程序序设设计计例例: Private Sub Form_Activate() Dim R As Single, AREA As Single R = Val(InputBox(“请输入半径请输入半径”, “计算面积计算面积”, “1”) AREA = 3.14 * R 2 Print R=; R; AREA=; AREA End Sub单击单击“确定确定”，返回文本框中的文本到变量，返回文本框中的文本到变量R中中单击单击“取消取消”，返回一个零长度的字符串，返回一个零长度的字符串10第第四四章章 顺顺序序结结构构程程序序设设计计 用文本框输入数据时，也就是将文本框的用文本框输入数据时，也就是将文本框的Text属性的内容赋值给某个变量。属性的内容赋值给某个变量。 例：将文本框例：将文本框Text1中输入的字符串赋给字符串中输入的字符串赋给字符串变量变量Mystr Dim MyStr As String MyStr = Text1.Text 例：将文本框例：将文本框Text1中输入的字符串作为数据赋中输入的字符串作为数据赋给整型变量给整型变量 Dim A As Integer A = Val(Text1.Text)4.2.2 用文本框用文本框(TextBox)输入数据输入数据11第第四四章章 顺顺序序结结构构程程序序设设计计1. 文本框控件的常用属性文本框控件的常用属性(1)Text属性：表示文本框中包含的内容属性：表示文本框中包含的内容(2)Locked属性：决定文本框的内容是否可编辑属性：决定文本框的内容是否可编辑(3)Multiline属性：为属性：为true,可输入多行文本，默认为可输入多行文本，默认为false.(4)Scrollbars:决定是否有滚动条以及滚动条的显示决定是否有滚动条以及滚动条的显示方式。默认为不显示。方式。默认为不显示。(5)Passwordchar:显示在文本框中的替代符，如显示在文本框中的替代符，如“*”，主要用于口令的输入。，主要用于口令的输入。(6)Maxlength:指定显示的字符个数，超出部分不接指定显示的字符个数，超出部分不接收，并同时发出嘟嘟声。收，并同时发出嘟嘟声。12第第四四章章 顺顺序序结结构构程程序序设设计计2.文本框控件的显示文本文本框控件的显示文本文本框显示的文本受文本框显示的文本受text属性控制。属性控制。Text属性可属性可以用以下以用以下3种方式设置：种方式设置：n设计时在属性窗口中进行；设计时在属性窗口中进行；n编程时通过代码设置编程时通过代码设置n运行时由用户输入运行时由用户输入若不希望用户更改文本，可以把文本框的若不希望用户更改文本，可以把文本框的locked 属性设置为属性设置为true或将或将enabled属性设置为属性设置为False以以vb4lt1为例说明为例说明13第第四四章章 顺顺序序结结构构程程序序设设计计3. 多行文本框多行文本框若需要在文本框中显示多行文本，可以修改文本框的若需要在文本框中显示多行文本，可以修改文本框的multiline和和scorllbars属性，但这两种属性只能在属性窗口中属性，但这两种属性只能在属性窗口中修改。修改。Multiline 属性属性TRUE：可以输入和显示多行文本，同时具有文字处理器：可以输入和显示多行文本，同时具有文字处理器的自动换行功能，按的自动换行功能，按ctrl+enter组合键可以插入一行。组合键可以插入一行。Scorllbars属性属性当当multiline为为true时，时，scrollbars属性才有效。属性才有效。0-none 1- horizontal 2-vertical 3-both若无若无horizontal滚动条，文本框的文本会自动按字换行，滚动条，文本框的文本会自动按字换行，当加了当加了horizontal以后，文本框的自动换行功能会自动消失，以后，文本框的自动换行功能会自动消失，只有按只有按enter键才能换行。举例说明。键才能换行。举例说明。14第第四四章章 顺顺序序结结构构程程序序设设计计1. 焦点焦点 当前可以接收用户输入的对象称为具有焦点。当前可以接收用户输入的对象称为具有焦点。 注意注意: 并非所有控件都可以接收焦点。而且并非所有控件都可以接收焦点。而且, 只有只有Enable和和Visible属性为属性为True时，才可以接收焦点。时，才可以接收焦点。2. 事件事件 GotFocus 发生在对象得到焦点时发生在对象得到焦点时 LostFocus 发生在对象失去焦点时发生在对象失去焦点时3. 对象何时得到焦点对象何时得到焦点n运行时选择对象运行时选择对象(鼠标、鼠标、Tab键、访问键键、访问键)n在代码中使用在代码中使用SetFocus方法方法 其格式为：其格式为：.setfocus4.2.3 焦点和焦点和Tab键序键序15第第四四章章 顺顺序序结结构构程程序序设设计计4. 对象何时失去焦点对象何时失去焦点n运行时用运行时用Tab键移动、用访问键或用鼠标单击选择键移动、用访问键或用鼠标单击选择另一个对象。另一个对象。n在代码中对另一个对象使用在代码中对另一个对象使用SetFocus方法改变焦方法改变焦点。点。5. Tab键序键序n指按指按Tab键时焦点在各个控件之间移动的顺序。键时焦点在各个控件之间移动的顺序。n每个窗体都有自己的每个窗体都有自己的Tab键序。键序。n默认键序与控件的建立次序一致。默认键序与控件的建立次序一致。nTabIndex属性属性: 决定决定Tab键序键序 改变改变TabIndex属性可以改变属性可以改变Tab键序键序 nTabStop属性属性: 决定是否能够使用决定是否能够使用 TAB 键将焦点移键将焦点移动到当前对象。动到当前对象。16第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-2】设计如下图所示的界面，运行时，输入某】设计如下图所示的界面，运行时，输入某学生三门课的成绩，计算平均成绩。按要求编程。学生三门课的成绩，计算平均成绩。按要求编程。要求：要求：n单击单击“计算计算”按钮求平均成绩；按钮求平均成绩；n当输入成绩的文本框获得焦点时，选中其中的文本；当输入成绩的文本框获得焦点时，选中其中的文本；n当输入成绩的文本框内容发生变化时，清除平均值；当输入成绩的文本框内容发生变化时，清除平均值；n单击单击“清除清除”按钮清除所有内容，将焦点定位在按钮清除所有内容，将焦点定位在Text1中；中；n单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。Text4Text1Text2Text3Command1Command2Command3设设Text4的的Locked属性为属性为True17第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“计算计算”按钮求平均成绩按钮求平均成绩 Private Sub Command1_Click() A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) Text4.Text = (A + B + C) / 3 End Sub18第第四四章章 顺顺序序结结构构程程序序设设计计当输入成绩的文本框获得焦点时当输入成绩的文本框获得焦点时,选中其中的文本选中其中的文本 Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text)End SubPrivate Sub Text3_GotFocus() Text3.SelStart = 0 Text3.SelLength = Len(Text3.Text)End Sub19第第四四章章 顺顺序序结结构构程程序序设设计计当输入成绩的文本框内容发生变化时当输入成绩的文本框内容发生变化时,清除平均值清除平均值 Private Sub Text1_Change() Text4.Text = End Sub Private Sub Text2_Change() Text4.Text = End SubPrivate Sub Text3_Change() Text4.Text = End Sub20第第四四章章 顺顺序序结结构构程程序序设设计计单击单击“清除清除”按钮清除所有文本框的内容，并按钮清除所有文本框的内容，并将焦点定位在文本框将焦点定位在文本框Text1中。中。 Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus End Sub单击单击“退出退出”按钮结束程序的运行。按钮结束程序的运行。 Private Sub Command3_Click() End End Sub21第第四四章章 顺顺序序结结构构程程序序设设计计4.2.4 框架控件框架控件框架框架(frame)控件是一种容器控件。在框架控件内控件是一种容器控件。在框架控件内的控件可以随框架一起移动，并且受框架控件的某的控件可以随框架一起移动，并且受框架控件的某些属性（些属性（visible,enabled等）的控制。等）的控制。1.使用框架控件对其他控件进行分组，可以使使用框架控件对其他控件进行分组，可以使界面更清晰明了。一般不需要响应框架控件的事件。界面更清晰明了。一般不需要响应框架控件的事件。2.使用框架控件将其他控件分组的方法有两个：使用框架控件将其他控件分组的方法有两个：n先画框架控件并激活，再加入其中的控件，这样先画框架控件并激活，再加入其中的控件，这样可使框架控件及其上的控件一起移动。可使框架控件及其上的控件一起移动。n若要用框架控件将现有的控件分组，可先选定所若要用框架控件将现有的控件分组，可先选定所有控件，将它们剪切到剪贴板上，然后选定框架控有控件，将它们剪切到剪贴板上，然后选定框架控件进行粘贴。以件进行粘贴。以vb4lt2为例。为例。22第第四四章章 顺顺序序结结构构程程序序设设计计4.3 数据输出数据输出 在程序设计中对输入的数据进行加工后，往往需在程序设计中对输入的数据进行加工后，往往需要将处理结果、提示信息等呈现给用户，即输出。要将处理结果、提示信息等呈现给用户，即输出。输出输出Print方法方法消息框消息框(MsgBox) 文本框文本框标签标签23第第四四章章 顺顺序序结结构构程程序序设设计计 用文本框输出数据时，也就是将数据赋给文本框用文本框输出数据时，也就是将数据赋给文本框的的Text属性。例如输出一个字符串（或数值）属性。例如输出一个字符串（或数值）, 输出输出多个字符串（或数值）多个字符串（或数值）例：用文本框例：用文本框Text1输出一个字符串输出一个字符串 Text1.Text = hello例：用文本框例：用文本框Text1输出一个数值型数据输出一个数值型数据 X = 3 5 Text1.Text = Str(X) Str可以省略或用可以省略或用Format例：用文本框例：用文本框Text1输出多个数，分多行输出输出多个数，分多行输出。 首先将文本框的首先将文本框的MultiLine设置为设置为True，必要时必要时可以进一步设滚动条属性可以进一步设滚动条属性ScrollBars。 X = 3 5: Y = 7 4 Text1.Text = Str(X) & vbCrLf & Str(Y)4.3.1 用文本框用文本框(TextBox)输出数据输出数据24第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-3】在】在Text1中输入任一英文字母，在中输入任一英文字母，在Text2中显示该英文字母及其中显示该英文字母及其ASCII码值。要求在文本码值。要求在文本框框Text2中显示出所有输入的英文字母及其中显示出所有输入的英文字母及其ASCII码值。码值。Text1Text2Command125第第四四章章 顺顺序序结结构构程程序序设设计计Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Space(5) & Char & _ Space(10) & Str(Asc(Char) & vbCrLf Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End SubChr(13) & Chr(10)26第第四四章章 顺顺序序结结构构程程序序设设计计4.3.2 用标签用标签(Label)输出数据输出数据 用标签输出数据时，也就是将数据赋给标签的用标签输出数据时，也就是将数据赋给标签的Caption属性。也可以输出多个数据属性。也可以输出多个数据。例：用标签例：用标签Label1输出一个字符串输出一个字符串 Label1.Caption = hello例：用标签例：用标签Label1输出一个数值型数据输出一个数值型数据 X = 3 5 Label1.Caption = Str(X) 例：用标签例：用标签Label1输出多个数，分多行输出输出多个数，分多行输出。 通常要先设置标签的通常要先设置标签的AutoSize属性和属性和WordWrap属性为属性为True。 X = 3 5: y = 7 4 Label1.Caption = x= & Str(X) & vbCrLf _ & y= & Str(y)27第第四四章章 顺顺序序结结构构程程序序设设计计【例【例4-4】已知三角形的三条边】已知三角形的三条边a、b、c的长度，的长度，用海伦公式求三角形的面积用海伦公式求三角形的面积S。海伦公式。海伦公式:n将文本框将文本框Text1、Text2、Text3的内容清空的内容清空;n设置三个文本框的设置三个文本框的Alignment属性为属性为1-Right Justify;n设置标签设置标签Label2的的Caption属性为空属性为空;n设置标签设置标签Label2的的BorderStyle属性为属性为1 Fixed Single。Text1 Text2 Text3Label2Command128第第四四章章 顺顺序序结结构构程程序序设设计计代码如下：代码如下：Private Sub Command1_Click() Dim A As Single, B As Single, C As Single Dim P As Single, S As Single A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) P = (A + B + C) / 2 S = Sqr(P * (P - A) * (P - B) * (P - C) 显示时保留两位小数显示时保留两位小数 Label2.Caption = Format(S, 0.00) End Sub29第第四四章章 顺顺序序结结构构程程序序设设计计 消息框常用于在屏幕上显示一个对话框，给出消息框常用于在屏幕上显示一个对话框，给出一些提示或警告信息，并允许用户进行选择。程一些提示或警告信息，并允许用户进行选择。程序可根据该选择确定进一步的操作。序可根据该选择确定进一步的操作。1. MsgBox函数的格式函数的格式 =MsgBox( , , ) 或：或： MsgBox , , 4.3.3 用消息框用消息框(MsgBox)输出数据输出数据图标标题提示信息命令按钮30第第四四章章 顺顺序序结结构构程程序序设设计计2. 功能功能 在对话框中显示消息，等待用户单击按钮，并在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。返回一个整数告诉用户单击了哪个按钮。3.3.说明说明 (1) “标题标题”和和“提示提示”与与InputBox函数中对应的参数函数中对应的参数相同；相同； () “按钮类型按钮类型+图标类型图标类型+默认按钮默认按钮”是整型表达式，是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及默认决定信息框按钮数目、出现在信息框上的图标类型及默认按钮。按钮。 () 若程序中需要返回值，则使用函数，否则可调用过若程序中需要返回值，则使用函数，否则可调用过程。程。 31第第四四章章 顺顺序序结结构构程程序序设设计计按钮及图标值如下按钮及图标值如下:根据用户所选按钮，函数返回17的整数值，其含义如下表:（表4-9)32第第四四章章 顺顺序序结结构构程程序序设设计计例例: Private Sub Command1_Click() MsgBox 提示信息提示信息 End Sub例例: 换行换行 Private Sub Command1_Click() MsgBox 第一行第一行 & Chr(13) & Chr(10) & 第二行第二行 End Sub33第第四四章章 顺顺序序结结构构程程序序设设计计例例: Private Sub Command1_Click() A = MsgBox(提示信息提示信息, , 标题内容标题内容) End Sub例例: 按钮类型按钮类型0到到5或符号常量或符号常量 见见P65 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 1, 标题内容标题内容) End Sub34第第四四章章 顺顺序序结结构构程程序序设设计计例例: 图标类型图标类型16、32、48、64或符号常量或符号常量 见见P67 Private Sub Command1_Click() A = MsgBox(提示信息提示信息, 16, 标题内容标题内容) End Sub例例: 默认按钮默认按钮0,256,512 见见P67 Private Sub Command1_Click() a = MsgBox(提示信息提示信息, 2 + 256, 标题内容标题内容) Print a End Sub按回车打印按回车打印435第第四四章章 顺顺序序结结构构程程序序设设计计4.3.4 用用Print方法输出数据方法输出数据1. Print方法方法 格式格式: . Print ; | , : 窗体窗体 如如 Form1.Print Hello 图片框图片框 如如 Picture1.Print Hello 打印机打印机 如如 Printer.Print Hello 立即窗口立即窗口 如如 Debug .Print Hello 省略省略: 默认为当前窗体。默认为当前窗体。 : 多个表达式多个表达式使用逗号或分号隔开。使用逗号或分号隔开。 逗号逗号: 以以14个字符位置为单位把一个输出行个字符位置为单位把一个输出行分成若干区段。分成若干区段。 分号分号: 后一项紧跟前一项输出。后一项紧跟前一项输出。36第第四四章章 顺顺序序结结构构程程序序设设计计输出时，数值型数据前有一个符号位输出时，数值型数据前有一个符号位(正号不显正号不显)，后，后面留一个空格位；字符串原样输出，前后无空格。面留一个空格位；字符串原样输出，前后无空格。例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=;2 + 4, Print 2-4=; Print 2 - 4 End Sub例例: Private Sub Form_Activate() Print 12345678901234567890 Print 2+4=; 2 + 4 Print 2-4=, 2 - 4 End Sub 37第第四四章章 顺顺序序结结构构程程序序设设计计例例: Private Sub Form_Load() Form1.Show Print 12345678901234567890 Print 产生空行产生空行 Print 2+4=; 2 + 4, Print 取消上面一句末尾逗号的作用取消上面一句末尾逗号的作用 Print 2-4=; Print 2 - 4 End Sub输入输入Print时可用时可用?代替，代替，VB将其自动转换成将其自动转换成Print38第第四四章章 顺顺序序结结构构程程序序设设计计2. 与与Print方法有关的函数方法有关的函数(1) Tab函数函数 格式格式: Tab(n) 功能功能: 在指定的第在指定的第n个位置上输出数据。个位置上输出数据。 参数参数n: n当前位置当前位置: 打印位置为下一行的第打印位置为下一行的第n列列 n1: 打印位置为第打印位置为第1列列 省略省略: 打印位置为下一个打印区的起点打印位置为下一个打印区的起点 (每每14个字符为一个打印区个字符为一个打印区) 当当n大于行的宽度时，显示位置为：大于行的宽度时，显示位置为： n mod 39第第四四章章 顺顺序序结结构构程程序序设设计计例例: Private Sub Form_Activate() Print 12345678901234567890 Print Hello; Tab(10); World Print Hello; Tab; World Print Hello; Tab(4); World Print Tab(-5); Hello End Sub40第第四四章章 顺顺序序结结构构程程序序设设计计(2) Spc函数函数 格式格式: Spc(n) 功能功能: n表示在显示或打印下一个表达式之前表示在显示或打印下一个表达式之前插入的空格数。表示跳过插入的空格数。表示跳过n个空格。个空格。 例例: Print HOW; Spc(3); ABOUT 结果结果: HOWABOUT注意注意: Spc函数与函数与Space函数、函数、Tab函数的区别函数的区别nSpace函数函数:可以用在字符串允许出现的任何位置。可以用在字符串允许出现的任何位置。nSpc函数函数:只能用在打印语句中。只能用在打印语句中。nTab函数指定绝对位置；函数指定绝对位置； Space函数或函数或Spc函数指定函数指定相对位置。相对位置。41第第四四章章 顺顺序序结结构构程程序序设设计计3. 清除方法清除方法 Cls使用使用cls 方法可以清除方法可以清除form,picturebox中由中由print方方法或图形方法在运行时所生成的图形或文本，清除法或图形方法在运行时所生成的图形或文本，清除后的区域以背景色填充。使用格式为：后的区域以背景色填充。使用格式为： .cls说明：说明：（1）对象名可以是）对象名可以是form或或picturebox.若省略，则若省略，则清除窗体上由清除窗体上由print方法或图形方法在运行时所生成方法或图形方法在运行时所生成的文本或图形。的文本或图形。 (2) 设计时使用设计时使用picture属性设置的背景位图和放属性设置的背景位图和放置的控件不受置的控件不受cls方法影响。方法影响。举例说明。举例说明。42第第四四章章 顺顺序序结结构构程程序序设设计计4.4 注释、暂停、卸载对象与程序结束语句注释、暂停、卸载对象与程序结束语句1. 注释语句注释语句 格式格式: | Rem 功能功能: 给语句或程序段加上注释，以提高可读性。给语句或程序段加上注释，以提高可读性。 说明说明: Rem与与 之间至少空一个空格。之间至少空一个空格。例例: Private Sub Form_Activate() Rem 本程序用于计算圆的面积本程序用于计算圆的面积 Dim R As String, AREA As Single R为半径为半径 R=InputBox(请输入半径请输入半径, , 1) :Rem 输入半径输入半径 AREA = 3.14 * Val(R) 2 以下将半径和面积输出到窗体上以下将半径和面积输出到窗体上 Print Val(R), AREAEnd Sub43第第四四章章 顺顺序序结结构构程程序序设设计计2. 暂停语句暂停语句 格式格式: Stop 功能功能: 暂停程序的执行。暂停程序的执行。 用于程序调试。类似于执行用于程序调试。类似于执行“运行运行”菜单中的菜单中的“中断中断”命令命令3. 卸载对象语句卸载对象语句 当要结束应用程序或从内存中卸载窗体，或从内当要结束应用程序或从内存中卸载窗体，或从内存中卸载某些控件时，可以使用存中卸载某些控件时，可以使用unload语句。语句。 格式格式: Unload 功能功能: 从内存中卸载掉对象。从内存中卸载掉对象。4. 结束语句结束语句 格式格式: End 功能功能: 结束程序的执行。结束程序的执行。44第第四四章章 顺顺序序结结构构程程序序设设计计本章小结本章小结: :输入输入计算、处理：计算、处理：输出输出赋值语句赋值语句文本框文本框IntputBox函数函数赋值语句赋值语句标签标签文本框文本框Print语句语句MsgBox函数函数开始开始输入输入计算、处理计算、处理输出输出结束结束顺序结构程序：顺序结构程序：45第第四四章章 顺顺序序结结构构程程序序设设计计课堂作业：课堂作业：1. 编写大小写转换函数程序。在文本框中输入英文编写大小写转换函数程序。在文本框中输入英文字母，按字母，按”转大写转大写“按钮，文本变成大写；按钮，文本变成大写； 按按”转小写转小写“按钮，文本变成小写。按钮，文本变成小写。2. 设某职工应发工资设某职工应发工资x元，试求各种面额钞票总张数元，试求各种面额钞票总张数最少的付款方案。最少的付款方案。3. 设计工程，输出在指定范围内的设计工程，输出在指定范围内的3个随机数，范围个随机数，范围在文本框中输入。在文本框中输入。46