一个完整的VB应用程序,一般都包含三部分内容,即 输入 →

1、 一个完整的一个完整的VBVB应用程序，一般都包含三部分内容，即应用程序，一般都包含三部分内容，即 输入输入 处理处理 输出输出 可通过可通过VBVB语句、各种控件实现输入输出操作语句、各种控件实现输入输出操作 本章主要内容本章主要内容 赋值语句赋值语句 常用基本语句常用基本语句 使用使用Print方法输出数据方法输出数据 窗体和基本控件窗体和基本控件 命令按钮命令按钮/标签标签/文本框文本框 对话框对话框 输入对话框输入对话框/消息对话框消息对话框 程序举例程序举例第第3 3章章 赋值与输入输出赋值与输入输出 赋值语句是程序设计中最基本、最常用的语句赋值语句是程序设计中最基本、最常用的语句

2、格式：格式：LetLet变量名变量名= =表达式表达式 功能：计算右端的表达式，并把结果赋值给左端的变量功能：计算右端的表达式，并把结果赋值给左端的变量 例例3.13.1 已知已知a=6,b=9,a=6,b=9,计算计算c=c=a2 + b2a2 + b2 编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Single, b As Single, c As Single a = 6 b = 9 c = Sqr(a * a + b * b) Print c= & c End Sub 运行程序后单击窗体，输

3、出结果如下：运行程序后单击窗体，输出结果如下： C=10.81665C=10.81665 3.1 3.1 赋值语句赋值语句 本事件过程采用的是顺序程序结构，运行的过程是：本事件过程采用的是顺序程序结构，运行的过程是： 声明声明3 3个单精度变量个单精度变量a,b,ca,b,c 6a 6a 9b 9b 计算表达式，其结果计算表达式，其结果10.81665c10.81665c 输出结果输出结果 赋值含义赋值含义: : 将值送到变量的存储单元中去将值送到变量的存储单元中去说明：说明： (1)(1)表达式中的变量必须是赋过值的，否则变量的表达式中的变量必须是赋过值的，否则变量的初值自动取零值初值自动取

4、零值( (变长字符串变量取空字符变长字符串变量取空字符) )。例如：。例如： a = 1a = 1 c = a + b + 3 c = a + b + 3 bb未赋过值，为未赋过值，为0 0 执行后，执行后，c c 值为值为 4 4 (2)(2)利用赋值语句，可以改变变量的值，因此，同利用赋值语句，可以改变变量的值，因此，同一变量在不同时刻可以取不同的值。一变量在不同时刻可以取不同的值。 Private Sub Form_Click() a = 3 : Print *A= & a a = 7 : Print *A= & a a = a * 2 + 3 : Print *A= &

5、amp; a End Sub 运行程序后单击窗体，输出的结果如下：运行程序后单击窗体，输出的结果如下： * *A=3A=3 * * *A=7A=7 * * * *A=17A=17 (3) (3)赋值语句跟数学中等式具有不同的含意，例如赋值语赋值语句跟数学中等式具有不同的含意，例如赋值语句句x=x+1x=x+1, ,表示表示把变量把变量x x的当前值加上的当前值加上1 1后再将结果赋给变量后再将结果赋给变量 “先读后写先读后写”：读出读出x x的内容的内容 加加1 1 写回写回x x（覆盖原有内容）（覆盖原有内容） 例例3.2 示例示例 语法格式：语法格式：Load 对象名对象名 功能：把对象名

6、代表的窗体对象、控件数组元素等加载功能：把对象名代表的窗体对象、控件数组元素等加载到内存中。到内存中。 说明：使用说明：使用Load语句可以加载窗体，但不显示窗体。当语句可以加载窗体，但不显示窗体。当VB加载窗体对象时，先把窗体属性设置为初始值，再执行加载窗体对象时，先把窗体属性设置为初始值，再执行Load事件过程。事件过程。 例如例如 Load Forml 加载窗体加载窗体Forml Load Option(2) 加载控件数组中的一个元素加载控件数组中的一个元素 格式：格式：Unload Unload 对象名对象名 功能：从内存中卸载指定窗体或控件。功能：从内存中卸载指定窗体或控件。 如果卸

7、载的对象是程序惟一的窗体，则将终止程如果卸载的对象是程序惟一的窗体，则将终止程序的执行序的执行 例如例如 Private Sub Command1_Click()Private Sub Command1_Click() Unload Me Unload Me 卸载当前窗体卸载当前窗体 End SubEnd Sub MeMe是系统关键字，用来代表当前窗体是系统关键字，用来代表当前窗体 格式：格式：EndEnd 功能：结束程序的运行。功能：结束程序的运行。 也可以单击工具栏上的也可以单击工具栏上的“结束结束”按钮按钮 暂停语句暂停语句StopStop 格式：格式：StopStop 功能：暂停程序的

8、运行。可用于调试程序功能：暂停程序的运行。可用于调试程序( (设置断点设置断点) ) 也可以通过单击工具栏上的也可以通过单击工具栏上的“中断中断”按钮来实现按钮来实现 使用使用Ctrl + BreakCtrl + Break组合键组合键 用于显示用于显示( (输出输出) )文本文本 格式：格式：对象名对象名. .Print Print 表达式列表表达式列表 说明：说明：(1)使用的对象可以是窗体等使用的对象可以是窗体等 Print “Print “程序设计程序设计” 在当前窗体上输出在当前窗体上输出 Picture1.Print “Picture1.Print “程序设计程序设计” ” 在图片

9、框上输出在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出表达式列表是一个或多个表达式，如果省略，则输出一个空行一个空行 (3)(3)当输出多个表达式时，各表达式之间用分号当输出多个表达式时，各表达式之间用分号“；”( (紧紧凑格式凑格式) )或逗号或逗号“，”( (按区格式按区格式) )隔开。隔开。 按区格式按区格式(14(14个字符位置个字符位置) ) 3.3 使用使用Print方法输出数据方法输出数据例：例：Private Sub Form_Click() a = 2 b = VB Print 50 * a 计算并输出表达式的值计算并输出表达式的值 Print b 输出

10、变量的值输出变量的值 Print 输出空行输出空行 Print The Total is 输出字符串常量输出字符串常量 End Sub 运行结果：运行结果： 输出数值数据时，前面有一个符号位输出数值数据时，前面有一个符号位( (正号以空格表示正号以空格表示) )，后面留有一个空格；输出字符串时，前后不留空格。后面留有一个空格；输出字符串时，前后不留空格。 例：例：Private Sub Form_Click() a = 3: b = 4 Print a, b, 4 + a, Print 2 * b Print a, , b Print a=; a, b=; b End Sub 运行结果运行结果

11、 (4)(4)若语句行末尾有分号或逗号若语句行末尾有分号或逗号, ,则输出本行输出项后不换行则输出本行输出项后不换行编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private Sub Form_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer, s As Integer, m As Single a = 6 : b = 21 : c = 23 : d = 15 s = a + b + c + d m = (a * 18 + b * 19 + c * 20 + d * 21) / s

12、以下舍入到小数后以下舍入到小数后1位位 Print 平均年龄：平均年龄：; Int(m * 10 + 0.5) / 10 End Sub 运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 平均年龄：平均年龄：19.719.7 例例3.43.4 使用使用PrintPrint方法输出全班学生的平均年龄方法输出全班学生的平均年龄 已知已知1818岁岁6 6人，人，1919岁岁2121人，人，2020岁岁2323人，人，2121岁岁1515人人 1. Spc1. Spc函数函数 格式：格式：Spc(n)Spc(n) 功能：在输出下一项之前插入功能：在输出下一项之前插入n n个空格。个空

13、格。 例如：例如： Print Print 学号学号；Spc(2)Spc(2)；姓名姓名；Spc(5)Spc(5)；成绩成绩 输出结果输出结果(表示空格表示空格) )： 学号学号姓名姓名成绩成绩 特殊打印格式特殊打印格式 函数格式：函数格式：Tab(n)Tab(n) 功能：把输出位置移到第功能：把输出位置移到第n n列。列。 例如：例如： Print Tab(2);Print Tab(2);学号学号；Tab(11);Tab(11);姓名姓名；Tab(21);Tab(21);成绩成绩 输出结果是输出结果是(1(1个汉字占个汉字占2 2个位置个位置) )： 学号学号姓名姓名成绩成绩 2. Tab函

14、数函数程序代码如下：程序代码如下： Private Sub Form_Click() Print Print Tab(15); 学号学号; Tab(26); 姓名姓名; Tab(36); 成绩成绩 Print Tab(14); String(27, -) 输出输出27个减号字符个减号字符“-” Print Tab(14); 20011001; Tab(26); 张小三张小三; Tab(36); 57 Print Tab(14); 20011003; Tab(26); 李小四李小四; Tab(36); 69 Print Tab(14); 20011012; Tab(26); 马小五马小五; Ta

15、b(36); 92 Print Tab(14); String(27, -) 输出输出27个减号字符个减号字符“-” End Sub例例3.53.5 使用使用TabTab对输出进行定位对输出进行定位 运行结果 格式：格式：Format(Format(表达式表达式 ,格式串格式串) 功能：根据格式串规定的格式来输出表达式的值功能：根据格式串规定的格式来输出表达式的值 a=4513.7 : b=3456.78 : TimeVar=#08:30:05# Print Format(a, #,#.#) Print Format(a, $#,#.00) Print Format(b, +#,#.#) Pr

16、int Format(TimeVar, h:m:s) 输出结果是：输出结果是： 4,513.7 $4,513.70 +3,456.8 8:30:5 格式符号格式符号# #和和0 0都能显示数字，但符号都能显示数字，但符号# #会剔除不必要的会剔除不必要的0 0，符号符号0 0会按规定补足会按规定补足0 0 3. Format函数函数 窗体窗体(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体一个程序可以

17、有多个窗体 设置窗体的属性，可在程序设计时在属性窗口中设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现手工设置，也可以在程序运行时由代码实现 默认属性默认属性 3.4 窗体窗体 一些常用的窗体属性：一些常用的窗体属性： NameName属性属性：用于设置窗体的名称。：用于设置窗体的名称。指定窗体的名称。只读，指定窗体的名称。只读，不能在应用程序中修改不能在应用程序中修改 CaptionCaption属性属性：用于设置窗体标题栏上的标题内容。：用于设置窗体标题栏上的标题内容。 MaxbuttonMaxbutton和和MinbuttonMinbutton属性属性：用

18、于设置最大化和最小化按钮：用于设置最大化和最小化按钮 HeightHeight和和WidthWidth属性属性：确定窗体的初始高度和宽度：确定窗体的初始高度和宽度 LeftLeft和和TopTop属性属性：确定窗体的左上角在屏幕上的横、纵坐标：确定窗体的左上角在屏幕上的横、纵坐标 AppearanceAppearance属性属性：用于设置窗体的外观是平面还是三维的：用于设置窗体的外观是平面还是三维的 BackColorBackColor和和ForeColorForeColor属性属性：设置窗体的背景色和前景色：设置窗体的背景色和前景色 PicturePicture属性属性：用于在窗体上设置要显

19、示的图形。：用于在窗体上设置要显示的图形。 对象对象. .Picture=LoadPicture(Picture=LoadPicture(文件名文件名) ) Visible(Visible(可见性可见性) )：设置对象的可见性，默认值为设置对象的可见性，默认值为True 坐标原点坐标原点(0, 0)(0, 0)在窗体的左上角在窗体的左上角 坐标轴刻度单位为缇坐标轴刻度单位为缇(Twip,567(Twip,567缇为缇为1 1厘米厘米) ) 当前位置的横坐标当前位置的横坐标(CurrentX)(CurrentX)和纵坐标和纵坐标(CurrentY)(CurrentY) Y YX X (Curre

20、ntX, CurrentY) 当前位置窗体坐标系统窗体坐标系统 窗体作为对象，能够对事件作出响应。与窗体有关的常用窗体作为对象，能够对事件作出响应。与窗体有关的常用事件有以下几种。事件有以下几种。 窗体事件过程的一般格式为：窗体事件过程的一般格式为： Private Sub Form_事件名事件名(参数表参数表) End Sub 不管窗体名字如何定义，但在事件过程中只能使用不管窗体名字如何定义，但在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字而在过程内对窗体进行引用时才会用到窗体名字(如如Form1等等) 与窗体有关的常用事件有以下几种。与窗体有关的常用事件有以下几种

21、。 (1)Load(装载装载)事件事件 (2)Unload(卸载卸载)事件事件 (3)Activate(活动活动)、Deactivate(非活动非活动)事件事件 (4)Paint(绘画绘画)事件事件 (5)Click(单击单击)事件事件 (6)DblClick(双击双击)事件事件 (7)KeyPress(按键按键)事件：当按下键盘上的某个健时，将触发事件：当按下键盘上的某个健时，将触发KeyPress事件。其事件过程的格式为：事件。其事件过程的格式为： Private Sub 对象对象_KeyPress(KeyAscii As Integer) End Sub 参数参数KeyAscii返回所按

22、键的返回所按键的ASCII码码 (1)Show(1)Show方法方法：用于快速显示一个窗体，使该窗体：用于快速显示一个窗体，使该窗体变成活动窗体变成活动窗体 (2)Print(2)Print方法方法：用于在窗体上输出表达式的值：用于在窗体上输出表达式的值 (3)Cls(3)Cls方法方法：用于清除运行时在窗体中显示的文本：用于清除运行时在窗体中显示的文本或图形或图形 (4)Move(4)Move(移动移动) )方法方法：用于移动并改变窗体或控件的：用于移动并改变窗体或控件的位置和大小位置和大小 窗体的方法窗体的方法 1. 1. 焦点焦点 焦点焦点(Focus)(Focus)是是对象接收鼠标或键

23、盘输入的能力对象接收鼠标或键盘输入的能力。 当对象得到或失去焦点时，分别会产生当对象得到或失去焦点时，分别会产生GotFocusGotFocus或或LostFocusLostFocus事件。事件。 要将焦点赋给控件，有以下几种方法：要将焦点赋给控件，有以下几种方法： (1)(1)用鼠标选定对象用鼠标选定对象 (2)(2)按快捷键选定对象按快捷键选定对象 (3)(3)按按TabTab键或键或Shift+TabShift+Tab键在当前窗体的各对象之间切换焦点键在当前窗体的各对象之间切换焦点 (4)(4)在代码中用在代码中用SetFocusSetFocus方法来设置焦点。例如：方法来设置焦点。例如

24、： Text1.SetFocus Text1.SetFocus 把焦点设置在文本框把焦点设置在文本框Text1Text1 2. Tab2. Tab键序键序 TabTab键序是指用户按键序是指用户按TabTab键时，焦点在控件间移动的顺序键时，焦点在控件间移动的顺序 反映在控件的反映在控件的TabIndexTabIndex属性属性 焦点与焦点与TabTab键序键序 设置以下设置以下3 3个命令按钮：个命令按钮： “ “显示显示”按钮：用于显示唐诗按钮：用于显示唐诗“静夜思静夜思” “ “清除清除”按钮：用于清除所生成的文本按钮：用于清除所生成的文本 “ “结束结束”按钮：结束程序的运行按钮：结束

25、程序的运行 设计步骤如下：设计步骤如下： (1)(1)创建应用程序的用户界面和设置对象的属性创建应用程序的用户界面和设置对象的属性 例例3.63.6 显示唐诗显示唐诗“静夜思静夜思” (2)(2)编写程序代码。编写的三个按钮的编写程序代码。编写的三个按钮的ClickClick事件过程代码如下：事件过程代码如下： Private Sub Command1_Click() BackColor = RGB(255, 255, 255) ForeColor = RGB(0, 0, 255) FontName = 楷体楷体_GB2312 FontSize = 20 CurrentX = 1200 Cur

26、rentY = 350 Print 静夜思静夜思(唐诗唐诗) FontName = 幼圆幼圆 Print FontSize = 13 Print Spc(6); 床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Spc(6); 举头望明月，低头思故乡举头望明月，低头思故乡 End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub 程序运行后，单击程序运行后，单击“显示显示”按钮，输出结果按钮，输出结果 需要在窗体中放置各种控件，才能实现用户与应用程序之需

27、要在窗体中放置各种控件，才能实现用户与应用程序之间的信息交互间的信息交互 三种基本控件三种基本控件命令按钮、标签和文本框命令按钮、标签和文本框 (1)Name属性：属性：控件的控件的Name属性（名称）必须以字母开属性（名称）必须以字母开头，其后可以是字母、数字和下划线，名称长度不能超过头，其后可以是字母、数字和下划线，名称长度不能超过40个字符个字符 (2)Caption属性：属性：任意的字符串。以通过程序代码改变其任意的字符串。以通过程序代码改变其值，例如：值，例如： Command1.Caption=“结束结束“ 可以在可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的属

28、性中为控件指定一个访问键。例如，将命令按钮的Caption属性设置为属性设置为“结束结束(&E)”，则运行时该控件外观如图，则运行时该控件外观如图3.7所示，只所示，只要用户同时按下要用户同时按下Alt键和键和E键，就能执行该按钮命令。键，就能执行该按钮命令。 3.5 3.5 基本控件基本控件 (3) Enabled属性属性:该属性决定控件是否对用户产生的事件该属性决定控件是否对用户产生的事件作出响应作出响应 (4) Visible属性属性 该属性决定控件是否可见，默认值为该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和和Left属性属性：Heigh

29、t和和Width属性属性确定控件的高度和宽度，确定控件的高度和宽度，Top和和Lelf属性确定控件在窗体中的属性确定控件在窗体中的位置位置 YXTopHeightLeftWidth (6)(6)BackColorBackColor和和ForeColorForeColor属性属性 (7)(7)FontNameFontName、FontSizeFontSize、FontBoldFontBold、FontItalicFontItalic、FontStrikethruFontStrikethru和和FontUnderlineFontUnderline属性属性 (8)(8)FontFont属性：确定控件

30、中显示的文本所用字体的属性：确定控件中显示的文本所用字体的样式、大小、字体效果样式、大小、字体效果等 用于接收用户的操作信息，并引发应用程序的某个操作用于接收用户的操作信息，并引发应用程序的某个操作 1常用属性常用属性 (1)Default属性和属性和Cancel属性属性 Default属性和属性和Cancel属性分别用于设置属性分别用于设置“默认按钮默认按钮”和和“取消按钮取消按钮” (2)Style属性属性 设置命令按钮的外观设置命令按钮的外观 2.常用事件和方法常用事件和方法 命令按钮最常用的事件是命令按钮最常用的事件是Click(单击单击)事件，但不支持事件，但不支持DblClick(

31、双击双击)事件。事件。 命令按钮常用的方法是命令按钮常用的方法是SetFocus方法。方法。 标签标签(Label)主要用来显示比较固定的提示性信息。主要用来显示比较固定的提示性信息。 1常用属性常用属性 (1)Alignment属性属性 设置标签中文本的对齐方式设置标签中文本的对齐方式 (2)AutoSize属性属性 确定标签的大小是否根据标签的内容自动调整大小确定标签的大小是否根据标签的内容自动调整大小 (3)BorderStyle属性属性 设置标签的边框外观设置标签的边框外观 2.常用事件和方法常用事件和方法 标签最常用的事件是标签最常用的事件是Click(单击单击)事件和事件和DblC

32、lick(双击双击)事件。事件。 标签常用的方法是标签常用的方法是SetFocus方法。方法。 文本框文本框(TextBox)是一个文本编辑区域，用户可以在该区是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。域中输入、编辑和显示文本内容。 默认情况下，文本框只能输入单行文本，并且最多可以默认情况下，文本框只能输入单行文本，并且最多可以输入输入2048个字符个字符 1. 常用属性常用属性 文本框具有一般控件的常用属性，但文本框没有文本框具有一般控件的常用属性，但文本框没有Caption属性属性 (1) Maxlength属性属性: 确定文本框中文本的最大长度确定文本框中文本的最大

33、长度 (2) Multiline属性属性: 指定文本框中是否允许显示和输入多指定文本框中是否允许显示和输入多行文本行文本 (3) PasswordChar属性属性：确定在文本框中是否显示用户输：确定在文本框中是否显示用户输入的字符，常用于密码输入入的字符，常用于密码输入 (4) ScrollBars属性属性：指定在文本框中是否出现滚动条：指定在文本框中是否出现滚动条 (5)SelStart属性、属性、Sellength属性和属性和SelText属性属性 (6)Text属性属性 设置或返回文本框中所包含的文本内容。设置或返回文本框中所包含的文本内容。 (7)Locked属性属性 2.常用事件和方

34、法常用事件和方法 文本框支持文本框支持Click、DblClick等鼠标事件，同时支持等鼠标事件，同时支持Change、GotFocus、LostFocus等事件等事件 文本框常用方法有文本框常用方法有SetFocus方法和方法和Move方法方法 如输入如输入48524852秒，则应输出秒，则应输出1 1小时小时2020分分5252秒秒 (1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Command1_Click() Dim h As Integer, m As Integer, s As In

35、teger, t As Integer t = Val(Text1.Text) h = t 3600 t = t - h * 3600 m = t 60 s = t - m * 60 Text2.Text = h Text3.Text = m Text4.Text = s End SubPrivate Sub Command2_Click() EndEnd Sub 例例3.73.7 输入一个总秒数，化成小时、分钟和秒数输入一个总秒数，化成小时、分钟和秒数 对话框既可以用来显示信息，也可以用于输入信息对话框既可以用来显示信息，也可以用于输入信息 VBVB中能够建立两种预制对话框：输入框和消息框中

36、能够建立两种预制对话框：输入框和消息框 使用系统提供的函数使用系统提供的函数( (InputBoxInputBox和和MsgBoxMsgBox) )，而不必为，而不必为对话框另建窗体对话框另建窗体 先看以下一个例子先看以下一个例子 例例3.7a3.7a 通过输入框输入姓名，然后再消息框中显示出来通过输入框输入姓名，然后再消息框中显示出来 Private Sub Form_Load() x = InputBox(输入您的姓名输入您的姓名, 您叫什么名您叫什么名?) MsgBox (x & 先生：祝您马到功成！先生：祝您马到功成！) End Sub 3.63.6 使用对话框使用对话框 用于

37、产生一个能接收用户输入的对话框用于产生一个能接收用户输入的对话框 格式：格式： 变量变量=InputBox(=InputBox(提示提示,标题标题,缺省值缺省值,xpos,ypos),xpos,ypos) 举例举例 filename$=InputBox(“请输入文件名请输入文件名(不超过不超过8个字符个字符)”，”文件文件名名”，”vbfile”) 将产生一个如下对话框将产生一个如下对话框 filename$=InputBox(请输入文件名请输入文件名 + Chr(13) + (不超过不超过8个字符个字符), 文件名文件名, vbfile) 使用使用MsgBoxMsgBox函数，可以产生一个对

38、话框来显示消息函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮了哪个按钮 其语法格式是：其语法格式是： 变量变量=MsgBox(=MsgBox(提示提示,对话框类型对话框类型,对话框标题对话框标题) 例：例：y = MsgBox(“y = MsgBox(“输入文件名是否正确输入文件名是否正确”,52,”,52,”请确请确认认”) ) “ “对话框类型对话框类型”一般有一般有3 3个参数，个参数， 4+48+04+48+0 出现按钮；图标类型；默认按钮；出现按钮；图标类型；默认按钮； 函数返回值函数

39、返回值( (例例3_9b)3_9b) 消息对话框消息对话框 1. 1. 返回一个值。从返回值中可以知道用户按下的返回一个值。从返回值中可以知道用户按下的是哪个按钮（表是哪个按钮（表3.53.5）。例如）。例如 y = MsgBox(“y = MsgBox(“输入文件名是否正确输入文件名是否正确”,52,”,52,”请确请确认认”) ) 若若y y为为1 1，表示用户按下的是，表示用户按下的是“确定确定”按钮，依此类推。按钮，依此类推。 程序通过判断程序通过判断y y值值( (如采用条件语句如采用条件语句IF-THEN)IF-THEN)，再根据用，再根据用户按下的是什么按钮，再做不同的处理。户按

40、下的是什么按钮，再做不同的处理。 2. 2. 不返回值。例如不返回值。例如 MsgBox “MsgBox “输入文件名是否正确输入文件名是否正确”,52,”,52,”请确认请确认” ” MsgBox “MsgBox “输入文件名是否正确输入文件名是否正确” 采用这种格式时，不知道用户按下的是什么按钮。这种采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。格式可以使用在不需要知道用户按钮情况的场合。MsgBox的两种格式(1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性(2)(2)编写程序代码编写程序代码Private

41、Sub Command1_Click() Dim r As Single, k As Single, s As Single r = Val(InputBox(请输入圆的半径请输入圆的半径, 计算圆的周长和面积计算圆的周长和面积) k = 2 * 3.14159 * r s = 3.14159 * r * r Text1.Text = k Text2.Text = s MsgBox 计算已完成计算已完成, , 例例3.10 End Sub Private Sub Command2_Click() End End Sub例例3.8 从输入框中输入圆的半径，计算圆的周长和面积从输入框中输入圆的半径，计算圆的周长和面积当输入的圆半径为当输入的圆半径为6565时，运行结果时，运行结果 3.7 程序举例程序举例例例3.9 编写程序，实现两个文本框内容的交换编写程序，实现