VB第3章赋值与输入输出

VB第3章赋值与输入输出VB第3章赋值与输入输出 一个完整的一个完整的VBVB应用程序，一般都包含三部分内容，即应用程序，一般都包含三部分内容，即 输入输入 处理处理 输出输出 可通过可通过VBVB语句、各种控件实现输入输出操作语句、各种控件实现输入输出操作 本章主要内容本章主要内容 赋值语句赋值语句 常用基本语句常用基本语句 使用使用Print方法输出数据方法输出数据 窗体和基本控件窗体和基本控件 命令按钮命令按钮/标签标签/文本框文本框 对话框对话框 输入对话框输入对话框/消息对话框消息对话框 程序举例程序举例 第第3 3章章 赋值与输入输出赋值与输入输出VB第3章赋值与输入输出 赋值语句是程序设计中最基本、最常用的语句赋值语句是程序设计中最基本、最常用的语句 格式：格式：LetLet变量名变量名=表达式表达式 功能：计算右端的表达式，并把结果赋值给左端的变量功能：计算右端的表达式，并把结果赋值给左端的变量 例例3.1 3.1 已知已知a=6,b=9,a=6,b=9,计算计算c=a2+b2 c=a2+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 运行程序后单击窗体，输出结果如下：运行程序后单击窗体，输出结果如下：C=10.81665C=10.81665 3.1 3.1 赋值语句赋值语句VB第3章赋值与输入输出 本事件过程采用的是顺序程序结构，运行的过程是：本事件过程采用的是顺序程序结构，运行的过程是：声明声明3 3个单精度变量个单精度变量a,b,ca,b,c 6a 6a 9b 9b 计算表达式，其结果计算表达式，其结果10.81665c10.81665c 输出结果输出结果 赋值含义赋值含义:将值送到变量的存储单元中去将值送到变量的存储单元中去VB第3章赋值与输入输出说明：说明：(1)(1)表达式中的变量必须是赋过值的，否则变量的表达式中的变量必须是赋过值的，否则变量的初值自动取零值初值自动取零值(变长字符串变量取空字符变长字符串变量取空字符)。

例如：例如：a=1a=1 c=a+b+3 c=a+b+3 bb未赋过值，为未赋过值，为0 0 执行后，执行后，c c 值为值为 4 4 (2)(2)利用赋值语句，可以改变变量的值，因此，同利用赋值语句，可以改变变量的值，因此，同一变量在不同时刻可以取不同的值一变量在不同时刻可以取不同的值VB第3章赋值与输入输出 Private Sub Form_Click()a=3:Print*A=&a a=7:Print*A=&a a=a*2+3:Print*A=&a End Sub 运行程序后单击窗体，输出的结果如下：运行程序后单击窗体，输出的结果如下：*A=3A=3 *A=7A=7 *A=17A=17 (3)(3)赋值语句跟数学中等式具有不同的含意，例如赋值语赋值语句跟数学中等式具有不同的含意，例如赋值语句句x=x+1,x=x+1,表示把变量表示把变量x x的当前值加上的当前值加上1 1后再将结果赋给变量后再将结果赋给变量 “先读后写先读后写”：读出：读出x x的内容的内容 加加1 1 写回写回x x（覆盖原有内容）（覆盖原有内容）例例3.2 示例示例VB第3章赋值与输入输出 设计步骤如下：设计步骤如下：(1)(1)分析：计算某年分析：计算某年y y的元旦是星期几，可由以下式子得出：的元旦是星期几，可由以下式子得出：F=y-1+F=y-1+(y-1)/4(y-1)/4-(y-1)/100(y-1)/100+(y-1)/400(y-1)/400+1+1 其中其中 表示求整表示求整 K=F Mod 7 FK=F Mod 7 F除以除以7 7的余数的余数 y y为某年公元年号，计算出为某年公元年号，计算出K K为星期几为星期几 (2)(2)创建应用程序的用户界面创建应用程序的用户界面 例例3.33.3 设计一个设计一个“万年历万年历”程序，用来查看程序，用来查看某某 年的元旦是星期几年的元旦是星期几VB第3章赋值与输入输出 (3)(3)设置对象属性设置对象属性 (4)(4)编写程序代码编写程序代码 功能要求：用户在功能要求：用户在“输入年份输入年份”文本框文本框(Text1)(Text1)中输入某中输入某一年份，单击一年份，单击“查看查看”按钮时，则在按钮时，则在“星期星期”文本框文本框(Text2)(Text2)中显示出星期几中显示出星期几VB第3章赋值与输入输出 编写的编写的“查看查看”按钮按钮(Command1)Click(Command1)Click事件过程事件过程代码如下：代码如下：Private Sub Command1_Click()Dim y As Integer,f As Integer,k As Intege y=Val(Text1.Text)-1 f=y+Int(y/4)Int(y/100)+Int(y/400)+1 k=f Mod 7 等价于等价于 f-Int(f/7)*7 吗吗?Text2.Text=k End Sub 运行结果（见上图）运行结果（见上图）VB第3章赋值与输入输出 在程序的适应位置加上必要的注释，可以提高程序的可读性 语法格式：Rem 注释内容 或 注释内容 功能：在程序中加入注释内容，以便于对程序的理解。

例如 Rem 交换变量a和b的值 c=a c为临时单元 a=b b=c 说明：(1)如果使用关键字Rem，在Rem和注释内容之间要加一个空格2)在其他语句后使用Rem关键字，必须使用冒号(:)与前面的语句隔开注释符(单引号)可以直接写在其他语句后面3.2 3.2 常用基本语句常用基本语句VB第3章赋值与输入输出 加载对象语句Load 语法格式：Load 对象名 功能：把对象名代表的窗体对象、控件数组元素等加载到内存中说明：使用Load语句可以加载窗体，但不显示窗体当VB加载窗体对象时，先把窗体属性设置为初始值，再执行Load事件过程例如 Load Forml 加载窗体Forml Load Option(2)加载控件数组中的一个元素VB第3章赋值与输入输出 格式：格式：Unload Unload 对象名对象名 功能：从内存中卸载指定窗体或控件功能：从内存中卸载指定窗体或控件如果卸载的对象是程序惟一的窗体，则将终止程如果卸载的对象是程序惟一的窗体，则将终止程序的执行序的执行 例如例如 Private Sub Command1_Click()Private Sub Command1_Click()Unload Me Unload Me 卸载当前窗体卸载当前窗体 End SubEnd Sub MeMe是系统关键字，用来代表当前窗体是系统关键字，用来代表当前窗体VB第3章赋值与输入输出 格式：格式：EndEnd 功能：结束程序的运行。

功能：结束程序的运行也可以单击工具栏上的也可以单击工具栏上的“结束结束”按钮按钮 暂停语句暂停语句StopStop 格式：格式：StopStop 功能：暂停程序的运行可用于调试程序功能：暂停程序的运行可用于调试程序(设置断点设置断点)也可以通过单击工具栏上的也可以通过单击工具栏上的“中断中断”按钮来实现按钮来实现 使用使用Ctrl+BreakCtrl+Break组合键组合键 结束语句结束语句EndEnd VB第3章赋值与输入输出 用于显示(输出)文本 格式：对象名.Print 表达式列表 说明：(1)使用的对象可以是窗体等 Print“程序设计”在当前窗体上输出 Picture1.Print“程序设计”在图片框上输出 (2)表达式列表是一个或多个表达式，如果省略，则输出一个空行 (3)当输出多个表达式时，各表达式之间用分号“；”(紧凑格式)或逗号“，”(按区格式)隔开按区格式(14个字符位置)3.3 使用使用Print方法输出数据方法输出数据VB第3章赋值与输入输出例：例：Private Sub Form_Click()a=2 b=VB Print 50*a 计算并输出表达式的值计算并输出表达式的值 Print b 输出变量的值输出变量的值 Print 输出空行输出空行 Print The Total is 输出字符串常量输出字符串常量 End Sub 运行结果：运行结果：VB第3章赋值与输入输出 输出数值数据时，前面有一个符号位输出数值数据时，前面有一个符号位(正号以空格表示正号以空格表示)，后面留有一个空格；输出字符串时，前后不留空格。

后面留有一个空格；输出字符串时，前后不留空格例：例：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 运行结果运行结果 (4)(4)若语句行末尾有分号或逗号若语句行末尾有分号或逗号,则输出本行输出项后不换行则输出本行输出项后不换行VB第3章赋值与输入输出编写的窗体单击事件过程代码如下：编写的窗体单击事件过程代码如下：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 以下舍入到小数后以下舍入到小数后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人人VB第3章赋值与输入输出 1.Spc1.Spc函数函数 格式：格式：Spc(n)Spc(n)功能：在输出下一项之前插入功能：在输出下一项之前插入n n个空格。

个空格例如：例如：Print Print 学号学号；Spc(2)Spc(2)；姓名姓名；Spc(5)Spc(5)；成绩成绩 输出结果输出结果(表示空格表示空格)：学号学号姓名姓名成绩成绩VB第3章赋值与输入输出 2.Tab2.Tab函数函数 函数格式：函数格式：Tab(n)Tab(n)功能：把输出位置移到第功能：把输出位置移到第n n列例如：例如：Print Tab(2);Print Tab(2);学号学号；Tab(11);Tab(11);姓名姓名；Tab(21);Tab(21);成绩成绩 输出结果是输出结果是(1(1个汉字占个汉字占2 2个位置个位置)：学号学号姓名姓名成绩成绩VB第3章赋值与输入输出程序代码如下：程序代码如下：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);马小五马小五;Tab(36);92 Print Tab(14);String(27,-)输出输出27个减号字符个减号字符“-”End Sub例例3.5 3.5 使用使用TabTab对输出进行定位对输出进行定位VB第3章赋值与输入输出 运行结果VB第3章赋值与输入输出 格式：格式：Format(Format(表达式表达式 ,格式串格式串)功能：根据格式串规定的格式来输出表达式的值功能：根据格式串规定的格式来输出表达式的值 a=4513.7:b=3456.78:TimeVar=#08:30:05#Print Format(a,#,#.#)Print Format(a,$#,#.00)Print Format(b,+#,#.#)Print 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函数函数 VB第3章赋值与输入输出 窗体窗体(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的;一个程序可以有多个窗体一个程序可以有多个窗体 设置窗体的属性，可在程序设计时在属性窗口中设置窗体的属性，可在程序设计时在属性窗口中手工设置，也可以在程序运行时由代码实现手工设置，也可以在程序运行时由代码实现 默认属性默认属性 3.4 窗体窗体 VB第3章赋值与输入输出 一些常用的窗体属性：一些常用的窗体属性：NameName属性：用于设置窗体的名称。

属性：用于设置窗体的名称指定窗体的名称只读，指定窗体的名称只读，不能在应用程序中修改不能在应用程序中修改 CaptionCaption属性：用于设置窗体标题栏上的标题内容属性：用于设置窗体标题栏上的标题内容MaxbuttonMaxbutton和和MinbuttonMinbutton属性：用于设置最大化和最小化按钮属性：用于设置最大化和最小化按钮 HeightHeight和和WidthWidth属性：确定窗体的初始高度和宽度属性：确定窗体的初始高度和宽度 LeftLeft和和TopTop属性：确定窗体的左上角在屏幕上的横、纵坐标属性：确定窗体的左上角在屏幕上的横、纵坐标 AppearanceAppearance属性：用于设置窗体的外观是平面还是三维的属性：用于设置窗体的外观是平面还是三维的 BackColorBackColor和和ForeColorForeColor属性：设置窗体的背景色和前景色属性：设置窗体的背景色和前景色 PicturePicture属性：用于在窗体上设置要显示的图形属性：用于在窗体上设置要显示的图形对象对象.Picture=LoadPicture(Picture=LoadPicture(文件名文件名)Visible(Visible(可见性可见性)：设置对象的可见性，默认值为设置对象的可见性，默认值为True VB第3章赋值与输入输出 坐标原点坐标原点(0,0)(0,0)在窗体的左上角在窗体的左上角 坐标轴刻度单位为缇坐标轴刻度单位为缇(Twip,567(Twip,567缇为缇为1 1厘米厘米)当前位置的横坐标当前位置的横坐标(CurrentX)(CurrentX)和纵坐标和纵坐标(CurrentY)(CurrentY)窗体坐标系统窗体坐标系统 YX (CurrentX,CurrentY)当前位置VB第3章赋值与输入输出 窗体作为对象，能够对事件作出响应。

与窗体有关的常用窗体作为对象，能够对事件作出响应与窗体有关的常用事件有以下几种事件有以下几种窗体事件过程的一般格式为：窗体事件过程的一般格式为：Private Sub Form_事件名事件名(参数表参数表)End Sub 不管窗体名字如何定义，但在事件过程中只能使用不管窗体名字如何定义，但在事件过程中只能使用Form，而在过程内对窗体进行引用时才会用到窗体名字而在过程内对窗体进行引用时才会用到窗体名字(如如Form1等等)VB第3章赋值与输入输出 与窗体有关的常用事件有以下几种与窗体有关的常用事件有以下几种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返回所按键的返回所按键的ASCII码码VB第3章赋值与输入输出 (1)Show(1)Show方法：用于快速显示一个窗体，使该窗体方法：用于快速显示一个窗体，使该窗体变成活动窗体变成活动窗体 (2)Print(2)Print方法：用于在窗体上输出表达式的值方法：用于在窗体上输出表达式的值 (3)Cls(3)Cls方法：用于清除运行时在窗体中显示的文本方法：用于清除运行时在窗体中显示的文本或图形或图形 (4)Move(4)Move(移动移动)方法：用于移动并改变窗体或控件的方法：用于移动并改变窗体或控件的位置和大小位置和大小窗体的方法窗体的方法 VB第3章赋值与输入输出 1.1.焦点焦点 焦点焦点(Focus)(Focus)是对象接收鼠标或键盘输入的能力。

是对象接收鼠标或键盘输入的能力当对象得到或失去焦点时，分别会产生当对象得到或失去焦点时，分别会产生GotFocusGotFocus或或LostFocusLostFocus事件要将焦点赋给控件，有以下几种方法：要将焦点赋给控件，有以下几种方法：(1)(1)用鼠标选定对象用鼠标选定对象 (2)(2)按快捷键选定对象按快捷键选定对象 (3)(3)按按TabTab键或键或Shift+TabShift+Tab键在当前窗体的各对象之间切换焦点键在当前窗体的各对象之间切换焦点 (4)(4)在代码中用在代码中用SetFocusSetFocus方法来设置焦点例如：方法来设置焦点例如：Text1.SetFocus Text1.SetFocus 把焦点设置在文本框把焦点设置在文本框Text1Text1 2.Tab2.Tab键序键序 TabTab键序是指用户按键序是指用户按TabTab键时，焦点在控件间移动的顺序键时，焦点在控件间移动的顺序 反映在控件的反映在控件的TabIndexTabIndex属性属性 VB第3章赋值与输入输出 设置以下设置以下3 3个命令按钮：个命令按钮：“显示显示”按钮：用于显示唐诗按钮：用于显示唐诗“静夜思静夜思”“清除清除”按钮：用于清除所生成的文本按钮：用于清除所生成的文本 “结束结束”按钮：结束程序的运行按钮：结束程序的运行 设计步骤如下：设计步骤如下：(1)(1)创建应用程序的用户界面和设置对象的属性创建应用程序的用户界面和设置对象的属性 例例3.6 3.6 显示唐诗显示唐诗“静夜思静夜思”VB第3章赋值与输入输出(2)(2)编写程序代码。

编写的三个按钮的编写程序代码编写的三个按钮的ClickClick事件过程代码如下：事件过程代码如下：Private Sub Command1_Click()BackColor=RGB(255,255,255)ForeColor=RGB(0,0,255)FontName=楷体楷体_GB2312 FontSize=20 CurrentX=1200 CurrentY=350 Print 静夜思静夜思(唐诗唐诗)FontName=幼圆幼圆 Print FontSize=13 Print Spc(6);床前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Spc(6);举头望明月，低头思故乡举头望明月，低头思故乡 End SubVB第3章赋值与输入输出 Private Sub Command2_Click()Cls End Sub Private Sub Command3_Click()End End Sub 程序运行后，单击程序运行后，单击“显示显示”按钮，输出结果按钮，输出结果VB第3章赋值与输入输出 需要在窗体中放置各种控件，才能实现用户与应用程序之需要在窗体中放置各种控件，才能实现用户与应用程序之间的信息交互间的信息交互 三种基本控件三种基本控件命令按钮、标签和文本框命令按钮、标签和文本框 (1)Name属性：控件的属性：控件的Name属性（名称）必须以字母开属性（名称）必须以字母开头，其后可以是字母、数字和下划线，名称长度不能超过头，其后可以是字母、数字和下划线，名称长度不能超过40个字符个字符 (2)Caption属性：任意的字符串。

以通过程序代码改变其属性：任意的字符串以通过程序代码改变其值，例如：值，例如：Command1.Caption=“结束结束“可以在可以在Caption属性中为控件指定一个访问键例如，将命令按钮的属性中为控件指定一个访问键例如，将命令按钮的Caption属性设置为属性设置为“结束结束(&E)”，则运行时该控件外观如图，则运行时该控件外观如图3.7所示，只所示，只要用户同时按下要用户同时按下Alt键和键和E键，就能执行该按钮命令键，就能执行该按钮命令3.5 3.5 基本控件基本控件VB第3章赋值与输入输出 (3)Enabled属性属性:该属性决定控件是否对用户产生的事件该属性决定控件是否对用户产生的事件作出响应作出响应 (4)Visible属性属性 该属性决定控件是否可见，默认值为该属性决定控件是否可见，默认值为True5)Height、Width、Top和和Left属性：属性：Height和和Width属性属性确定控件的高度和宽度，确定控件的高度和宽度，Top和和Lelf属性确定控件在窗体中的属性确定控件在窗体中的位置位置 YXTopHeightLeftWidthVB第3章赋值与输入输出 (6)BackColor(6)BackColor和和ForeColorForeColor属性属性 (7)FontName(7)FontName、FontSizeFontSize、FontBoldFontBold、FontItalicFontItalic、FontStrikethruFontStrikethru和和FontUnderlineFontUnderline属属性性 (8)Font(8)Font属性：确定控件中显示的文本所用字体属性：确定控件中显示的文本所用字体的样式、大小、字体效果的样式、大小、字体效果等VB第3章赋值与输入输出 用于接收用户的操作信息，并引发应用程序的某个操作用于接收用户的操作信息，并引发应用程序的某个操作 1常用属性常用属性 (1)Default属性和属性和Cancel属性属性 Default属性和属性和Cancel属性分别用于设置属性分别用于设置“默认按钮默认按钮”和和“取消按钮取消按钮”(2)Style属性属性 设置命令按钮的外观设置命令按钮的外观 2.常用事件和方法常用事件和方法 命令按钮最常用的事件是命令按钮最常用的事件是Click(单击单击)事件，但不支持事件，但不支持DblClick(双击双击)事件。

事件命令按钮常用的方法是命令按钮常用的方法是SetFocus方法VB第3章赋值与输入输出 标签标签(Label)主要用来显示比较固定的提示性信息主要用来显示比较固定的提示性信息1常用属性常用属性 (1)Alignment属性属性 设置标签中文本的对齐方式设置标签中文本的对齐方式 (2)AutoSize属性属性 确定标签的大小是否根据标签的内容自动调整大小确定标签的大小是否根据标签的内容自动调整大小 (3)BorderStyle属性属性 设置标签的边框外观设置标签的边框外观 2.常用事件和方法常用事件和方法 标签最常用的事件是标签最常用的事件是Click(单击单击)事件和事件和DblClick(双击双击)事件标签常用的方法是标签常用的方法是SetFocus方法VB第3章赋值与输入输出 文本框文本框(TextBox)是一个文本编辑区域，用户可以在该区是一个文本编辑区域，用户可以在该区域中输入、编辑和显示文本内容域中输入、编辑和显示文本内容默认情况下，文本框只能输入单行文本，并且最多可以默认情况下，文本框只能输入单行文本，并且最多可以输入输入2048个字符个字符 1.常用属性常用属性 文本框具有一般控件的常用属性，但文本框没有文本框具有一般控件的常用属性，但文本框没有Caption属性属性 (1)Maxlength属性属性:确定文本框中文本的最大长度确定文本框中文本的最大长度 (2)Multiline属性属性:指定文本框中是否允许显示和输入多指定文本框中是否允许显示和输入多行文本行文本 (3)PasswordChar属性：确定在文本框中是否显示用户输属性：确定在文本框中是否显示用户输入的字符，常用于密码输入入的字符，常用于密码输入 (4)ScrollBars属性：指定在文本框中是否出现滚动条属性：指定在文本框中是否出现滚动条 VB第3章赋值与输入输出 (5)SelStart属性、属性、Sellength属性和属性和SelText属性属性 (6)Text属性属性 设置或返回文本框中所包含的文本内容。

设置或返回文本框中所包含的文本内容7)Locked属性属性 2.常用事件和方法常用事件和方法 文本框支持文本框支持Click、DblClick等鼠标事件，同时支持等鼠标事件，同时支持Change、GotFocus、LostFocus等事件等事件 文本框常用方法有文本框常用方法有SetFocus方法和方法和Move方法方法VB第3章赋值与输入输出 如输入如输入48524852秒，则应输出秒，则应输出1 1小时小时2020分分5252秒秒 (1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Command1_Click()Dim h As Integer,m As Integer,s As Integer,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 Sub例例3.7 3.7 输入一个总秒数，化成小时、分钟和秒数输入一个总秒数，化成小时、分钟和秒数Private Sub Command2_Click()EndEnd SubVB第3章赋值与输入输出 VB第3章赋值与输入输出 对话框既可以用来显示信息，也可以用于输入信息对话框既可以用来显示信息，也可以用于输入信息 VBVB中能够建立两种预制对话框：输入框和消息框中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数使用系统提供的函数(InputBox(InputBox和和MsgBox)MsgBox)，而不必为，而不必为对话框另建窗体对话框另建窗体 先看以下一个例子先看以下一个例子 例例3.7a 3.7a 通过输入框输入姓名，然后再消息框中显示出来通过输入框输入姓名，然后再消息框中显示出来 Private Sub Form_Load()x=InputBox(输入您的姓名输入您的姓名,您叫什么名您叫什么名?)MsgBox(x&先生：祝您马到功成！先生：祝您马到功成！)End Sub 3.6 使用对话框使用对话框 VB第3章赋值与输入输出 用于产生一个能接收用户输入的对话框用于产生一个能接收用户输入的对话框 格式：格式：变量变量=InputBox(=InputBox(提示提示,标题标题,缺省值缺省值,xpos,ypos),xpos,ypos)举例举例$=InputBox(“请输入文件名请输入文件名(不超过不超过8个字符个字符)”，”文件名文件名”，”vbfile”)将产生一个如下对话框将产生一个如下对话框VB第3章赋值与输入输出$=InputBox(请输入文件名请输入文件名 +Chr(13)+(不超过不超过8个字符个字符),文件名文件名,vbfile)VB第3章赋值与输入输出 使用使用MsgBoxMsgBox函数，可以产生一个对话框来显示消息函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击当用户单击某个按钮后，将返回一个数值以标明用户单击了哪个按钮了哪个按钮 其语法格式是：其语法格式是：变量变量=MsgBox(=MsgBox(提示提示,对话框类型对话框类型,对话框标题对话框标题)例：例：y=MsgBox(“y=MsgBox(“输入文件名是否正确输入文件名是否正确”,52,”,52,”请确请确认认”)“对话框类型对话框类型”一般有一般有3 3个参数，个参数，4+48+04+48+0 出现按钮；图标类型；默认按钮；出现按钮；图标类型；默认按钮；函数返回值函数返回值(例例3_9b)3_9b)VB第3章赋值与输入输出 消息框的三种格式 y=MsgBox(“y=MsgBox(“输入文件名是否正确输入文件名是否正确”,52,”,52,”请确请确认认”)MsgBox“MsgBox“输入文件名是否正确输入文件名是否正确”,52,”,52,”请确认请确认”MsgBox(“MsgBox(“输入文件名是否正确输入文件名是否正确”)VB第3章赋值与输入输出(1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性(2)(2)编写程序代码编写程序代码Private 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 从输入框中输入圆的半径，计算圆的周长和面积从输入框中输入圆的半径，计算圆的周长和面积VB第3章赋值与输入输出当输入的圆半径为当输入的圆半径为6565时，运行结果时，运行结果VB第3章赋值与输入输出例3.9 编写程序，实现两个文本框内容的交换 使用一个临时单元变量(t)(1)在窗体上建立两个标签、两个文本框和一个命令按钮 (2)编写程序代码 Private Sub Command1_Click()“交换”按钮 t=Text1.Text Text1.Text=Text2.Text Text2.Text=t End Sub 3.7 程序举例程序举例VB第3章赋值与输入输出 在窗体上设置三个命令按钮在窗体上设置三个命令按钮(图图3.15)，程序进入运行状态，程序进入运行状态后，当单击后，当单击“窗体变大窗体变大”命令按钮时，窗体变大，单击命令按钮时，窗体变大，单击“窗体变小窗体变小”按钮时，窗体变小。

单击按钮时，窗体变小单击“退出退出”按钮时，按钮时，则退出例例3.103.10 控制窗体控制窗体“变大变大”和和“变小变小”VB第3章赋值与输入输出(1)(1)建立应用程序的用户界面和设置对象属性建立应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load()Form1.Height=4000 Form1.Width=4000 Form1.Top=1000 Form1.Left=1000 End Sub Private Sub Command1_Click()“窗体变大窗体变大”按钮按钮 Form1.Height=Form1.Height+200 每次增加每次增加200点点 Form1.Width=Form1.Width+200 End Sub Private Sub Command2_Click()“窗体变小窗体变小”按钮按钮 Form1.Height=Form1.Height-200 每次减少每次减少200点点 Form1.Width=Form1.Width-200 End SubVB第3章赋值与输入输出 在第一个文本框中输入文字时，在另外两个文本框中在第一个文本框中输入文字时，在另外两个文本框中显示同样相同的内容，但显示的字号和字体不同。

单击显示同样相同的内容，但显示的字号和字体不同单击“清除清除”按钮时则清除三个文本框中的内容按钮时则清除三个文本框中的内容 例例3.113.11 在三个文本框中显示不同的文字效果在三个文本框中显示不同的文字效果VB第3章赋值与输入输出(1)(1)建立应用程序的用户界面和设置对象属性建立应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Sub Form_Load()Text2.FontName=隶书隶书 Text2.FontSize=16 Text3.FontName=楷体楷体_GB2312 Text3.FontSize=20 End Sub Private Sub Text1_Change()Text2.Text=Text1.Text Text3.Text=Text1.Text End Sub Private Sub Command1_Click()“清除清除”按钮按钮 Text1.Text=“”清除文本框清除文本框Text1的内容的内容 Text2.Text=清除文本框清除文本框Text2的内容的内容 Text3.Text=清除文本框清除文本框Text3的内容的内容 Text1.SetFocus 设置焦点设置焦点 End SubVB第3章赋值与输入输出 (1)在窗体上建立一个标签（在窗体上建立一个标签（Label1）和三个命）和三个命令按钮令按钮(Command1、Command2和和Command3)三个命令按钮分别使用访问键三个命令按钮分别使用访问键Alt+C、Alt+H和和Alt+D例例3.123.12 实现标签的显示和隐藏，以及改变文字的颜色实现标签的显示和隐藏，以及改变文字的颜色 。