林卓然VB教程课件顺序结构第3章教案

1、主页主页2022-2-31 学习程序设计，初学者要学习程序设计，初学者要善于模仿，并要多练。善于模仿，并要多练。 任何一门程序设计语言都任何一门程序设计语言都有一套严格的编程规定有一套严格的编程规定( (如语法如语法规则规则) )，在编程时一定要遵守这，在编程时一定要遵守这些规定些规定( (只能遵守，不能创造只能遵守，不能创造) )。主页主页2022-2-32 一个完整的一个完整的VBVB应用程序，一般都包含三部分内容，即应用程序，一般都包含三部分内容，即 输入输入 处理处理 输出输出 可通过可通过VBVB语句、各种控件实现输入输出操作语句、各种控件实现输入输出操作 本章主要内容本章主要内容第

2、第3 3章章 顺序结构程序设计顺序结构程序设计赋值语句赋值语句注释、结束及暂停语句注释、结束及暂停语句使用使用Print方法输出数据方法输出数据窗体和基本控件窗体和基本控件对话框对话框程序举例程序举例命令按钮命令按钮标签标签文本框文本框输入框输入框消息框消息框退出退出主页主页2022-2-33 1. 1. 赋值语句赋值语句LetLet变量名变量名= =表达式表达式 示例：示例：x = 5 x = 5 * * 1.4 1.4 2. 2. 注释、结束和暂停语句注释、结束和暂停语句 (1) (1) 注释语句注释语句 Rem 注释内容注释内容 或或 注释内容注释内容 (2) (2) 结束语句结束语句

3、End (3) (3) 暂停语句暂停语句 Stop 也可以通过单击工具栏上的也可以通过单击工具栏上的“中断中断”按钮来实按钮来实现现 使用使用Ctrl + Break组合键组合键, ,可强制程序暂停运行可强制程序暂停运行赋值与输入输出赋值与输入输出主页主页2022-2-34 (1)(1)表达式中的变量必须是赋过值的，否则变量的初值自动表达式中的变量必须是赋过值的，否则变量的初值自动取零值取零值( (变长字符串变量取空字符变长字符串变量取空字符) )。例如：。例如： a = 1a = 1 c = a + b + 3 c = a + b + 3 bb未赋过值，为未赋过值，为0 0 执行后，执行后，

4、c c 值为值为 4 4 (2) (2)赋值语句跟数学中等式具有不同的含意，例如赋值语句跟数学中等式具有不同的含意，例如 x = x + 1x = x + 1 表示表示把变量把变量x x的当前值加上的当前值加上1 1后再将结果赋给变量后再将结果赋给变量 “先读后写先读后写”：读出读出x x的内容的内容 加加1 1 写回写回x x（覆盖原有内容）（覆盖原有内容）说明说明主页主页2022-2-35 (3)变量出现在赋值号的右边和左边，其用途是不相同的。出变量出现在赋值号的右边和左边，其用途是不相同的。出现在右边表达式中时，变量是参与运算的元素现在右边表达式中时，变量是参与运算的元素(其值被读出其值

5、被读出)；出；出现在左边时，变量起存放表达式的值的作用现在左边时，变量起存放表达式的值的作用(被赋值被赋值)。例如。例如 x = 2 a = 3 x = 2*a + 5 当执行第当执行第3行语句行语句“x=2*a+5”时，将读出变量时，将读出变量a的值的值(即即3)，把，把该值乘该值乘2后加后加5，然后将结果，然后将结果(11)赋值给变量赋值给变量x。 (4)赋值号两边的数据类型必须一致，即同时为数值型或同时赋值号两边的数据类型必须一致，即同时为数值型或同时为字符型。为字符型。说明说明主页主页2022-2-36编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下： Private S

6、ub Form_Click() Dim x As Integer, a As Integer Dim b As Integer, c As Integer x = 36 a = Int(x / 10) 求十位数求十位数 b = x Mod 10 求个位数求个位数 c = b * 10 + a 生成新的数生成新的数 Print 处理后的数处理后的数: ; c End Sub运行程序后单击窗体，输出结果是：运行程序后单击窗体，输出结果是： 处理后的数：处理后的数：63例例3.1 给定一个两位数给定一个两位数(如如36)，交换个位数和十位数的位，交换个位数和十位数的位置，把处理后的数显示在窗体上置，

7、把处理后的数显示在窗体上例例3.1 处理方法处理方法两位数两位数 ab b取出个位数取出个位数 a取出十位数取出十位数新两位数新两位数: : b b* *10 + a10 + a主页主页2022-2-37 编写的编写的VBVB程序代码如下：程序代码如下： Private Sub Form_Click()Private Sub Form_Click() Dim x As Integer, a As Integer Dim x As Integer, a As Integer Dim b As Integer, c As Integer Dim b As Integer, c As Integer

8、 x = InputBox(“ x = InputBox(“输入一个位数输入一个位数”)”) 运行时由用户运行时由用户任意任意给定一个位数给定一个位数 a = Int(x / 10) a = Int(x / 10) 求十位数求十位数 b = x Mod 10 b = x Mod 10 求个位数求个位数 c = b c = b * * 10 + a 10 + a 生成新的数生成新的数 Print Print 处理后的数处理后的数: ; c: ; c End Sub End Sub 执行后，弹出一个输入对话框，若用户输入执行后，弹出一个输入对话框，若用户输入“83”83”，输出结，输出结果：果：

9、处理后的数处理后的数: 38: 38 例例3.1A 3.1A 运行时由用户任意运行时由用户任意给定一个两位数，交换个位数和十位数给定一个两位数，交换个位数和十位数的位置，把处理后的数显示在网页上。的位置，把处理后的数显示在网页上。例例3.1A一种灵活一种灵活输入方式输入方式InputBox是是VB函数，函数，见见P58主页主页2022-2-38例例3.2 设计程序，实现两个文本框内容的交换设计程序，实现两个文本框内容的交换 (1)在窗体上建立两个标签、两个文本框和一个命令按钮在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码编写程序代码 借助于另一个变量借助于另一个变量(假设为

10、假设为 t) ，并直接在控件中交换数据并直接在控件中交换数据 Private Sub Command1_Click() “交换交换”按钮按钮 Dim t As String t = Text1.Text Text1.Text = Text2.Text Text2.Text = t End SubText1Text2例例3.2有的对象属性有的对象属性具有变量的特性具有变量的特性主页主页2022-2-39 编写的程序代码如下编写的程序代码如下 ： Private Sub Command1_Click() “交换交换”按钮按钮 t = Text1.Text Text1.Text = Text2.Te

11、xt Text2.Text = t End Sub 采用变体型变量采用变体型变量 说明：说明：对于初学者来说，为了节省时间，有时可对于初学者来说，为了节省时间，有时可以不采用以不采用Dim等语句声明就直接使用变量等语句声明就直接使用变量(默认为变体默认为变体型，如型，如t)。但在规范的软件开发中，通常都要求程序。但在规范的软件开发中，通常都要求程序中使用的变量必须预先声明。中使用的变量必须预先声明。没用没用Dim语句语句t 是变体型变量是变体型变量主页主页2022-2-310 把上述程序改为以下形式，效果是否一样？把上述程序改为以下形式，效果是否一样？Private Sub Command1_

12、Click() “交换交换”按钮按钮 Text2.Text = Text1.Text Text1.Text = Text2.Text End Sub思考题思考题想一想想一想主页主页2022-2-311 下列程序的运行结果是什么？下列程序的运行结果是什么？ 运行时，在文本框运行时，在文本框Text1Text1中输入中输入5 5，单击，单击“计算计算”按钮后，在文本框按钮后，在文本框Text2Text2显示的结果是什么显示的结果是什么? ? Private Sub Command1_Click() “计算计算”按钮按钮 Dim a As Integer, b As Integer, c As In

13、teger a = Val(Text1.Text) b = 7 c = 2 * a Mod b / 3 + 1 a = a + 1 b = 2 * b - 1 c = c + a + b Text2.Text = cEnd Sub思考题思考题想一想想一想Text1Text2例例3.2A20主页主页2022-2-312 3.3.1 Print3.3.1 Print方法方法 用于显示用于显示( (输出输出) )文本文本 格式：格式：对象名对象名. .Print Print 表达式列表表达式列表 说明：说明：(1)使用的对象可以是窗体等使用的对象可以是窗体等 Print “Print “程序设计程序

14、设计” 在当前窗体上输出在当前窗体上输出 Picture1.Print “Picture1.Print “程序设计程序设计” ” 在图片框上输出在图片框上输出 并不是所有控件都支持并不是所有控件都支持print，比如，比如Label就不支持。就不支持。 (2)表达式列表是一个或多个表达式，如果省略，则输出表达式列表是一个或多个表达式，如果省略，则输出一个空行一个空行 3.3 使用使用Print方法输出数据方法输出数据主页主页2022-2-313 例例3.3 Print3.3 Print输出示例输出示例 Private Sub Form_Click() a = 3: b = 4 Print a,

15、 b, 4 + a, Print 2 * b Print a, , b Print Print a=; a, b=; b End Sub 运行结果运行结果 例例3.3分号分号“；”紧凑格式，紧挨着输出紧凑格式，紧挨着输出逗号逗号“，”按区段格式按区段格式(14个字符位个字符位置置)语句行末尾有分号或逗号语句行末尾有分号或逗号,则输出本行输则输出本行输出项后不换行出项后不换行多个表达式之间用分号多个表达式之间用分号; 或逗号或逗号,隔开。隔开。输出数值数据时，前面自动有一个符号输出数值数据时，前面自动有一个符号位位(正号以空格表示正号以空格表示)，后面留有一个空格；，后面留有一个空格；而输出字符

16、串时，前后不留空格。而输出字符串时，前后不留空格。主页主页2022-2-314 1. Spc1. Spc函数函数 格式：格式：Spc(nSpc(n) ) 功能：在输出下一项之前插入功能：在输出下一项之前插入n n个空格。个空格。 例如：例如： Print Print 学号学号；Spc(2)Spc(2)；姓名姓名；Spc(5)Spc(5)；成绩成绩 输出结果输出结果(表示空格表示空格) )： 学号学号姓名姓名成绩成绩 3.3.23.3.2 特殊打印格式特殊打印格式主页主页2022-2-315 函数格式：函数格式：Tab(nTab(n) ) 功能：把输出位置移到第功能：把输出位置移到第n n列。列

17、。 例如：例如： Print Tab(2);Print Tab(2);学号学号；Tab(11);Tab(11);姓名姓名；Tab(21);Tab(21);成绩成绩 输出结果是输出结果是(1(1个汉字占个汉字占2 2个位置个位置) )： 学号学号姓名姓名成绩成绩 2. Tab函数函数主页主页2022-2-316程序代码如下：程序代码如下： Private Sub Form_Click() Print Print Tab(15); 学号学号; Tab(26); 姓名姓名; Tab(36); 成绩成绩 Print Tab(14); String(27, -) 输出输出27个减号字符个减号字符“-”

18、Print Tab(14); 20011001; Tab(26); 张小三张小三; Tab(36); 57 Print Tab(14); 20011003; Tab(26); 李小四李小四; Tab(36); 69 Print Tab(14); 20011012; Tab(26); 马小五马小五; Tab(36); 92 Print Tab(14); String(27, -) 输出输出27个减号字符个减号字符“-” End Sub例：例：使用使用TabTab对输出进行定位对输出进行定位主页主页2022-2-317 运行结果主页主页2022-2-318 格式：格式：Format(Format(

19、表达式表达式 ,格式串格式串) 功能：根据格式串规定的格式来输出表达式的值功能：根据格式串规定的格式来输出表达式的值 示例示例 a=4513.7a=4513.7 Print Format(a Print Format(a,#,#.#),#,#.#) Print Format(a,$#,#.00) Print Format(a,$#,#.00) 输出结果是：输出结果是： 4,513.74,513.7 $4,513.70 $4,513.70 格式符号格式符号# #和和0 0都能显示数字，但符号都能显示数字，但符号# #会剔除不必会剔除不必要的要的0 0，符号，符号0 0会按规定补足会按规定补足0

20、0 3. Format函数函数主页主页2022-2-319 窗体窗体(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗一个程序可以有多个窗体体 3.4.1 3.4.1 窗体的基本属性窗体的基本属性 设置窗体的属性，可在程序设计时在属性窗口中手工设置，设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现也可以在程序运行时由代码实现 默认属性默认属性3.4 窗体窗体主页主页2022

21、-2-320 一些常用的窗体属性：一些常用的窗体属性： NameName属性属性：用于设置窗体的：用于设置窗体的名称名称。指定窗体的名称。只读，。指定窗体的名称。只读， 不能在应用程序中修改不能在应用程序中修改 CaptionCaption属性属性：用于设置窗体标题栏上的：用于设置窗体标题栏上的标题标题内容。内容。 MaxbuttonMaxbutton和和MinbuttonMinbutton属性属性：用于设置：用于设置最大化最大化和和最小化最小化按钮按钮 HeightHeight和和WidthWidth属性属性：确定窗体的初始：确定窗体的初始高度高度和和宽度宽度 LeftLeft和和TopTo

22、p属性属性：确定窗体的左上角在屏幕上的：确定窗体的左上角在屏幕上的横、纵坐标横、纵坐标 BackColorBackColor和和ForeColorForeColor属性属性：设置窗体的：设置窗体的背景色背景色和和前景色前景色 FontNameFontName属性属性：用于在窗体上设置：用于在窗体上设置字体字体。 FontSizeFontSize属性属性：用于在窗体上设置：用于在窗体上设置字号字号。 Visible(Visible(可见性可见性) )：设置对象的设置对象的可见性可见性，默认值为，默认值为TrueTrue主页主页2022-2-321 坐标原点坐标原点(0, 0)(0, 0)在窗体的

23、左上角在窗体的左上角 坐标轴刻度单位为缇坐标轴刻度单位为缇(Twip,567(Twip,567缇为缇为1 1厘米厘米) ) 当前位置的横坐标当前位置的横坐标(CurrentX(CurrentX) )和纵坐标和纵坐标(CurrentY(CurrentY) ) Y YX X (CurrentX, CurrentY) 当前位置当前位置窗体坐标系统窗体坐标系统主页主页2022-2-322 窗体事件过程的一般格式为：窗体事件过程的一般格式为： Private Sub Form_事件名事件名(参数表参数表) End 在事件过程中只能使用在事件过程中只能使用Form，而在过程内对窗，而在过程内对窗体进行引用

24、时才会用到窗体名字体进行引用时才会用到窗体名字(如如Form1等等) 3.4.2 窗体的事件窗体的事件只能写成只能写成Form,Form,不能写成不能写成Form1Form1主页主页2022-2-323 与窗体有关的常用事件有以下几种。与窗体有关的常用事件有以下几种。 Load(Load(装载装载) )事件：事件：启动程序时，通常先执行启动程序时，通常先执行Form_Load Unload(Unload(卸载卸载) )事件事件 Click(Click(单击单击) )事件事件 DblClickDblClick( (双击双击) )事件事件 KeyPressKeyPress( (按键按键) )事件：

25、当按下键盘上的某个健时，将触事件：当按下键盘上的某个健时，将触发发KeyPressKeyPress事件。其事件过程的格式为：事件。其事件过程的格式为： Private Sub Private Sub 对象对象_KeyPress(KeyAscii_KeyPress(KeyAscii As Integer) As Integer) End Sub End Sub 示例：示例：Private Sub Form_KeyPress(KeyAsciiPrivate Sub Form_KeyPress(KeyAscii As Integer) As Integer) Print Print 你录入的键是：你

26、录入的键是：; Chr(KeyAsciiChr(KeyAscii) ) End Sub End Sub 参数参数KeyAscii返回返回所按键的所按键的ASCII码码主页主页2022-2-324 (1)Show(1)Show方法方法：用于快速显示一个窗体，使该窗体变成活动窗：用于快速显示一个窗体，使该窗体变成活动窗体。例如：体。例如： Private Sub Form_LoadPrivate Sub Form_Load()() Show Show Print “ Print “窗体已被窗体已被howhow显示出来！显示出来！” End SubEnd Sub (2)Print(2)Print方法

27、方法：用于在窗体上输出表达式的值：用于在窗体上输出表达式的值 (3)Cls(3)Cls方法方法：用于清除运行时在窗体中显示的文本或图形：用于清除运行时在窗体中显示的文本或图形 (4)Move(4)Move(移动移动) )方法方法：用于移动并改变窗体或控件的位置和大：用于移动并改变窗体或控件的位置和大小小 3.4.33.4.3 窗体的方法窗体的方法启动程序时，系统先启动程序时，系统先自动执行本过程，但自动执行本过程，但窗体未被显示出来窗体未被显示出来通过通过Show显示窗体。显示窗体。使后续的使后续的Print输出内输出内容可见容可见主页主页2022-2-325 1. 1. 焦点焦点 焦点焦点(

28、Focus(Focus，光标，光标) )是是对象接收鼠标或键盘输入的能力对象接收鼠标或键盘输入的能力。 要将焦点赋给控件，有以下几种方法：要将焦点赋给控件，有以下几种方法： (1)(1)用鼠标选定对象用鼠标选定对象 (2)(2)按快捷键选定对象按快捷键选定对象 (3)(3)按按TabTab键或键或Shift+TabShift+Tab键在当前窗体的各对象之间切换焦点键在当前窗体的各对象之间切换焦点 (4)(4)在代码中用在代码中用SetFocusSetFocus方法来设置焦点。例如：方法来设置焦点。例如： Text1.SetFocus Text1.SetFocus 把焦点设置在文本框把焦点设置在

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

30、(1)(1)创建应用程序的用户界面和设置对象的属性创建应用程序的用户界面和设置对象的属性 例例3.43.4 显示唐诗显示唐诗“静夜思静夜思”例例3.4主页主页2022-2-327 (2)(2)编写程序代码。三个按钮的事件过程代码：编写程序代码。三个按钮的事件过程代码： Private Sub CmdPrt_ClickPrivate Sub CmdPrt_Click()() BackColor BackColor = RGB(255, 255, 255) = RGB(255, 255, 255) 背景颜色，白色背景颜色，白色 ForeColorForeColor = RGB(0, 0, 255)

31、 = RGB(0, 0, 255) 前景颜色，蓝色前景颜色，蓝色 FontNameFontName = = 楷体楷体_GB2312_GB2312 FontSize FontSize = 20 = 20 FontBold FontBold = True = True 粗体粗体 CurrentX = 1200 : CurrentYCurrentX = 1200 : CurrentY = 350 = 350 显示位置显示位置 Print Print 静夜思静夜思( (唐诗唐诗) Print Print 空一行空一行 FontNameFontName = = 幼圆幼圆 FontSize FontSiz

32、e = 13 = 13 Print Spc(6); Print Spc(6); 床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Print Spc(6); Print Spc(6); 举头望明月，低头思故乡举头望明月，低头思故乡 End Sub End Sub颜色值见附录颜色值见附录B B主页主页2022-2-328 Private Sub CmdCls_Click() Cls End Sub Private Sub CmdEnd_Click() End End Sub 程序运行后，单击程序运行后，单击“显示显示”按钮，输出结果按钮，输出结果主页主页2022-2-329

33、3.5 3.5 基本控件基本控件 三种基本控件三种基本控件命令按钮、标签和文本框命令按钮、标签和文本框 命令按钮命令按钮(commandButten)用于引发应用程序的某个操作用于引发应用程序的某个操作 标签标签(Label)主要用来显示比较固定的提示性信息。主要用来显示比较固定的提示性信息。 文本框文本框(TextBox)是一个文本编辑区域，用户可以在该区域中是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容。输入、编辑和显示文本内容。 几点说明：几点说明： (1) Caption属性：属性：对象的标题对象的标题 可以在可以在Caption属性中为控件指定一个访问键属性中为控件指

34、定一个访问键 例如：例如： Command1.Caption=“结束结束(&E)” 运行时只要用户同时按下运行时只要用户同时按下Alt键和键和E键，就能执行该按钮命令键，就能执行该按钮命令 (2) Enabled属性：属性：决定控件是否对用户产生的事件作出响应决定控件是否对用户产生的事件作出响应 (3) Visible属性：属性：决定控件是否可见，默认值为决定控件是否可见，默认值为True主页主页2022-2-330 当文本框的当文本框的Text属性内容发生变化时，会触发文本框属性内容发生变化时，会触发文本框的的Change事件。事件。 当在文本框当在文本框Text1中输入中输入ABC

35、三个字符时窗体上显示三个字符时窗体上显示的是什么。的是什么。 Private Sub Text1_Change() Print Text1.Text End Sub例例3.4AAABABC思考题思考题想一想想一想主页主页2022-2-331 在窗体上已经建立了两个文本框在窗体上已经建立了两个文本框Text1和和Text2，并编写，并编写 如下三个事件过程：如下三个事件过程： Private Sub Form_Click() Text2.Text = P Text1.Text = P + Text1.Text End Sub Private Sub Text1_Change() 内容发生改变内容

36、发生改变 Text2.Text = Text2.Text + N + Text1.Text End Sub Private Sub Form_Load() Text2.Text = M Text1.Text = M End Sub 运行程序后单击窗体，则在文本框运行程序后单击窗体，则在文本框Text2中显示的内容是中显示的内容是 A. PNM B. NPM C. PNP D. PNPMA. PNM B. NPM C. PNP D. PNPM 例例3.4BD思考题思考题想一想想一想主页主页2022-2-332 3.63.6 使用对话框使用对话框 对话框既可以用来显示信息，也可以用于输入信息对话框

37、既可以用来显示信息，也可以用于输入信息 VBVB中能够建立两种预制对话框：输入框和消息框中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数使用系统提供的函数( (InputBoxInputBox和和MsgBoxMsgBox) )，而不必为对话框，而不必为对话框另建窗体另建窗体 例例3.53.5 通过输入框输入姓名，通过输入框输入姓名， 然后再消息框中显示出来然后再消息框中显示出来 Private Sub Form_Load() x = InputBox(输入您的姓名输入您的姓名, 您叫什么名您叫什么名?) y = MsgBox( x & 先生：祝您马到功成！先生：祝您马到功成

38、！) End Sub例例3.5输入框输入框消息框消息框主页主页2022-2-333 用于产生一个能接收用户输入的对话框用于产生一个能接收用户输入的对话框 格式：格式： 变量变量=InputBox=InputBox( (提示提示,标题标题,缺省值缺省值,xpos,ypos,xpos,ypos) 举例举例filename=InputBoxfilename=InputBox( (请输入文件名请输入文件名( (不超过不超过8 8个字符个字符) ), 文件名文件名,vbfilevbfile) ) 将产生一个如下对话框将产生一个如下对话框 3.6.1 3.6.1 输入对话框输入对话框例例3.5A主页主页2

39、022-2-334 filename=InputBox(请输入文件名请输入文件名 + Chr(13) + (不超过不超过8个字符个字符), 文件名文件名, vbfile) 主页主页2022-2-335 使用使用MsgBoxMsgBox函数，可以产生一个对话框来显示消息函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮了哪个按钮 其语法格式是：其语法格式是： 变量变量=MsgBox=MsgBox( (提示提示,对话框类型对话框类型,对话框标题对话框标题) 例：例：y = MsgBox(“y = Msg

40、Box(“输入文件名是否正确输入文件名是否正确”,52,”,52,”请确请确认认”) ) “ “对话框类型对话框类型”一般有一般有3 3个参数，个参数， 4+48+04+48+0 出现按钮；图标类型；默认按钮；出现按钮；图标类型；默认按钮； 函数返回值函数返回值 示例：示例： 3.6.2 3.6.2 消息对话框消息对话框例例3.5B主页主页2022-2-336 1. 1. 返回一个值。从返回值中可以知道用户按下的返回一个值。从返回值中可以知道用户按下的是哪个按钮（表是哪个按钮（表3.53.5）。例如）。例如 y = MsgBox(“y = MsgBox(“输入文件名是否正确输入文件名是否正确”

41、,52,”,52,”请确请确认认”) ) 若若y y为为1 1，表示用户按下的是，表示用户按下的是“确定确定”按钮，依此类推。按钮，依此类推。 程序通过判断程序通过判断y y值值( (如采用条件语句如采用条件语句IF-THEN)IF-THEN)，再根据用，再根据用户按下的是什么按钮，再做不同的处理。户按下的是什么按钮，再做不同的处理。 2. 2. 不返回值。例如不返回值。例如 MsgBoxMsgBox “ “输入文件名是否正确输入文件名是否正确”,52,”,52,”请确认请确认” ” MsgBoxMsgBox “ “输入文件名是否正确输入文件名是否正确” 采用这种格式时，不知道用户按下的是什么

42、按钮。这种采用这种格式时，不知道用户按下的是什么按钮。这种格式可以使用在不需要知道用户按钮情况的场合。格式可以使用在不需要知道用户按钮情况的场合。MsgBox的两种格式主页主页2022-2-337 (1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码例例3.6 设计一个密码输入的简单检验程序。密码假定为设计一个密码输入的简单检验程序。密码假定为“123456”，密码输入时在屏幕上不显示输入的字符，而以密码输入时在屏幕上不显示输入的字符，而以“*”代替。代替。例例3.6图图3.13 密码检验运行界面密码检验运行界面 图图3.1

43、4 密码输入错误时弹出的消息框密码输入错误时弹出的消息框主页主页2022-2-338Private Sub Command1_Click() Private Sub Command1_Click() “确定确定”命令按钮命令按钮 Dim p As IntegerDim p As Integer If Text1.Text = 123456 Then If Text1.Text = 123456 Then MsgBox MsgBox 欢迎您用机！欢迎您用机！ Else Else p = MsgBox p = MsgBox(密码错误！密码错误！, 5 + 48, , 5 + 48, 输入密码输入密

44、码) ) 在消息框上显示在消息框上显示“重试重试”和和“取消取消”按钮，以及按钮，以及“！”图标图标 If p = 4 Then If p = 4 Then 44表示单击了表示单击了“重试重试”按钮按钮 Text1.SetFocus Text1.SetFocus 焦点定位在原输入的文本框中焦点定位在原输入的文本框中 ElseElse MsgBox MsgBox 密码错误，不重试了！密码错误，不重试了！ End End End If End If End If End IfEnd SubEnd SubPrivate Sub Form_LoadPrivate Sub Form_Load()() T

45、ext1.PasswordChar = Text1.PasswordChar = * * 设置以设置以“* *”替代显示替代显示 Text1.Text = Text1.Text = End SubEnd Sub例例3.6 设计一个密码输入的简单检验程序。密码假定为设计一个密码输入的简单检验程序。密码假定为“123456”，密码输入时在屏幕上不显示输入的字符，而以密码输入时在屏幕上不显示输入的字符，而以“*”代替。代替。主页主页2022-2-339 在窗体上有一个文本框，然后编写如下事件过程：在窗体上有一个文本框，然后编写如下事件过程： Private Sub Form_Click() x =

46、InputBox(请输入一个整数请输入一个整数) Print x + Text1.text End Sub 程序运行时，在文本框中输入程序运行时，在文本框中输入456，然后单击窗体，在输入，然后单击窗体，在输入对话框中输入对话框中输入123，单击，单击“确定确定”按钮后，在窗体上显示的内容按钮后，在窗体上显示的内容是是 A. 123 B. 456 C. 579 D. 123456例例3.6AD思考题思考题想一想想一想主页主页2022-2-340 例例3.73.7 控制窗体控制窗体“变大变大”和和“变小变小” 在窗体上设置三个命令按钮，程序进入运行状态后，当在窗体上设置三个命令按钮，程序进入运行

47、状态后，当单击单击“窗体变大窗体变大”命令按钮时，窗体变大，单击命令按钮时，窗体变大，单击“窗体变小窗体变小”按钮时，窗体变小。单击按钮时，窗体变小。单击“退出退出”按钮时，则退出。按钮时，则退出。 3.7 3.7 程序举例程序举例例例3.7主页主页2022-2-341 (1)(1)建立应用程序的用户界面和设置对象属性建立应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load() Form1.Height = 4000 Height为窗体的高度，为窗体的高度，P55 Form1.Width = 4000 Width为窗体的宽度为窗体的宽度 Form1.Top = 1000 设置窗体的初始位置设置窗体的初始位置(y) Form1.Left = 1000 设置窗体的初始位置设置窗体的初始位置(x) End Sub P