VB第3章赋值与输入输出

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

2、语句是程序设计中最基本、最常用的语句赋值语句是程序设计中最基本、最常用的语句 格式：格式：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

3、* b) Print c= 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

4、 + 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. Sp

5、c1. 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)

6、;姓名姓名；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

7、); 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=

8、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章赋值与输入输出 窗体窗体

9、(Form)是设计是设计VB应用程序的基本平台应用程序的基本平台 窗体本身是一个对象，又是其他对象的载体或容器窗体本身是一个对象，又是其他对象的载体或容器 多数应用程序是从窗体开始执行的多数应用程序是从窗体开始执行的 ; 一个程序可以有多个窗体一个程序可以有多个窗体 设置窗体的属性，可在程序设计时在属性窗口中设置窗体的属性，可在程序设计时在属性窗口中 手工设置，也可以在程序运行时由代码实现手工设置，也可以在程序运行时由代码实现 默认属性默认属性 3.4 窗体窗体 VB第3章赋值与输入输出 一些常用的窗体属性：一些常用的窗体属性： NameName属性：用于设置窗体的名称。属性：用于设置窗体的名

10、称。指定窗体的名称。只读，指定窗体的名称。只读， 不能在应用程序中修改不能在应用程序中修改 CaptionCaption属性：用于设置窗体标题栏上的标题内容。属性：用于设置窗体标题栏上的标题内容。 MaxbuttonMaxbutton和和MinbuttonMinbutton属性：用于设置最大化和最小化按钮属性：用于设置最大化和最小化按钮 HeightHeight和和WidthWidth属性：确定窗体的初始高度和宽度属性：确定窗体的初始高度和宽度 LeftLeft和和TopTop属性：确定窗体的左上角在屏幕上的横、纵坐标属性：确定窗体的左上角在屏幕上的横、纵坐标 AppearanceAppear

11、ance属性：用于设置窗体的外观是平面还是三维的属性：用于设置窗体的外观是平面还是三维的 BackColorBackColor和和ForeColorForeColor属性：设置窗体的背景色和前景色属性：设置窗体的背景色和前景色 PicturePicture属性：用于在窗体上设置要显示的图形。属性：用于在窗体上设置要显示的图形。 对象对象. .Picture=LoadPicture(Picture=LoadPicture(文件名文件名) ) Visible(Visible(可见性可见性) )：设置对象的可见性，默认值为设置对象的可见性，默认值为True VB第3章赋值与输入输出 坐标原点坐标原点

12、(0, 0)(0, 0)在窗体的左上角在窗体的左上角 坐标轴刻度单位为缇坐标轴刻度单位为缇(Twip,567(Twip,567缇为缇为1 1厘米厘米) ) 当前位置的横坐标当前位置的横坐标(CurrentX)(CurrentX)和纵坐标和纵坐标(CurrentY)(CurrentY) 窗体坐标系统窗体坐标系统 Y X (CurrentX, CurrentY) 当前位置 VB第3章赋值与输入输出 窗体作为对象，能够对事件作出响应。与窗体有关的常用窗体作为对象，能够对事件作出响应。与窗体有关的常用 事件有以下几种。事件有以下几种。 窗体事件过程的一般格式为：窗体事件过程的一般格式为： Privat

13、e Sub Form_事件名事件名(参数表参数表) End Sub 不管窗体名字如何定义，但在事件过程中只能使用不管窗体名字如何定义，但在事件过程中只能使用Form， 而在过程内对窗体进行引用时才会用到窗体名字而在过程内对窗体进行引用时才会用到窗体名字(如如Form1等等) VB第3章赋值与输入输出 与窗体有关的常用事件有以下几种。与窗体有关的常用事件有以下几种。 (1)Load(装载装载)事件事件 (2)Unload(卸载卸载)事件事件 (3)Activate(活动活动)、Deactivate(非活动非活动)事件事件 (4)Paint(绘画绘画)事件事件 (5)Click(单击单击)事件事件

14、 (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方法：用于在窗体

15、上输出表达式的值方法：用于在窗体上输出表达式的值 (3)Cls(3)Cls方法：用于清除运行时在窗体中显示的文本方法：用于清除运行时在窗体中显示的文本 或图形或图形 (4)Move(4)Move(移动移动) )方法：用于移动并改变窗体或控件的方法：用于移动并改变窗体或控件的 位置和大小位置和大小 窗体的方法窗体的方法 VB第3章赋值与输入输出 1. 1. 焦点焦点 焦点焦点(Focus)(Focus)是对象接收鼠标或键盘输入的能力。是对象接收鼠标或键盘输入的能力。 当对象得到或失去焦点时，分别会产生当对象得到或失去焦点时，分别会产生GotFocusGotFocus或或LostFocusLost

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

17、是指用户按键序是指用户按TabTab键时，焦点在控件间移动的顺序键时，焦点在控件间移动的顺序 反映在控件的反映在控件的TabIndexTabIndex属性属性 VB第3章赋值与输入输出 设置以下设置以下3 3个命令按钮：个命令按钮： “显示显示”按钮：用于显示唐诗按钮：用于显示唐诗“静夜思静夜思” “清除清除”按钮：用于清除所生成的文本按钮：用于清除所生成的文本 “结束结束”按钮：结束程序的运行按钮：结束程序的运行 设计步骤如下：设计步骤如下： (1)(1)创建应用程序的用户界面和设置对象的属性创建应用程序的用户界面和设置对象的属性 例例3.6 3.6 显示唐诗显示唐诗“静夜思静夜思” VB第

18、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); 床

19、前明月光，疑是地上霜床前明月光，疑是地上霜 Print Print Spc(6); 举头望明月，低头思故乡举头望明月，低头思故乡 End Sub VB第3章赋值与输入输出 Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub 程序运行后，单击程序运行后，单击“显示显示”按钮，输出结果按钮，输出结果 VB第3章赋值与输入输出 需要在窗体中放置各种控件，才能实现用户与应用程序之需要在窗体中放置各种控件，才能实现用户与应用程序之 间的信息交互间的信息交互 三种基本控件三种基本控件命令按钮、标

20、签和文本框命令按钮、标签和文本框 (1)Name属性：控件的属性：控件的Name属性（名称）必须以字母开属性（名称）必须以字母开 头，其后可以是字母、数字和下划线，名称长度不能超过头，其后可以是字母、数字和下划线，名称长度不能超过40 个字符个字符 (2)Caption属性：任意的字符串。以通过程序代码改变其属性：任意的字符串。以通过程序代码改变其 值，例如：值，例如： Command1.Caption=“结束结束“ 可以在可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的属性中为控件指定一个访问键。例如，将命令按钮的 Caption属性设置为属性设置为“结束结束(&E)”，则

21、运行时该控件外观如图，则运行时该控件外观如图3.7所示，只所示，只 要用户同时按下要用户同时按下Alt键和键和E键，就能执行该按钮命令。键，就能执行该按钮命令。 3.5 3.5 基本控件基本控件 VB第3章赋值与输入输出 (3) Enabled属性属性:该属性决定控件是否对用户产生的事件该属性决定控件是否对用户产生的事件 作出响应作出响应 (4) Visible属性属性 该属性决定控件是否可见，默认值为该属性决定控件是否可见，默认值为True。 (5)Height、Width、Top和和Left属性：属性：Height和和Width属性属性 确定控件的高度和宽度，确定控件的高度和宽度，Top和

22、和Lelf属性确定控件在窗体中的属性确定控件在窗体中的 位置位置 Y X Top Height Left Width VB第3章赋值与输入输出 (6)BackColor(6)BackColor和和ForeColorForeColor属性属性 (7)FontName(7)FontName、FontSizeFontSize、FontBoldFontBold、 FontItalicFontItalic、FontStrikethruFontStrikethru和和FontUnderlineFontUnderline属属 性性 (8)Font(8)Font属性：确定控件中显示的文本所用字体属性：确定控件

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

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

25、击)事件和事件和 DblClick(双击双击)事件。事件。 标签常用的方法是标签常用的方法是SetFocus方法。方法。 VB第3章赋值与输入输出 文本框文本框(TextBox)是一个文本编辑区域，用户可以在该区是一个文本编辑区域，用户可以在该区 域中输入、编辑和显示文本内容。域中输入、编辑和显示文本内容。 默认情况下，文本框只能输入单行文本，并且最多可以默认情况下，文本框只能输入单行文本，并且最多可以 输入输入2048个字符个字符 1. 常用属性常用属性 文本框具有一般控件的常用属性，但文本框没有文本框具有一般控件的常用属性，但文本框没有 Caption属性属性 (1) Maxlength属

26、性属性: 确定文本框中文本的最大长度确定文本框中文本的最大长度 (2) Multiline属性属性: 指定文本框中是否允许显示和输入多指定文本框中是否允许显示和输入多 行文本行文本 (3) PasswordChar属性：确定在文本框中是否显示用户输属性：确定在文本框中是否显示用户输 入的字符，常用于密码输入入的字符，常用于密码输入 (4) ScrollBars属性：指定在文本框中是否出现滚动条属性：指定在文本框中是否出现滚动条 VB第3章赋值与输入输出 (5)SelStart属性、属性、Sellength属性和属性和SelText属性属性 (6)Text属性属性 设置或返回文本框中所包含的文本

27、内容。设置或返回文本框中所包含的文本内容。 (7)Locked属性属性 2.常用事件和方法常用事件和方法 文本框支持文本框支持Click、DblClick等鼠标事件，同时支持等鼠标事件，同时支持 Change、GotFocus、LostFocus等事件等事件 文本框常用方法有文本框常用方法有SetFocus方法和方法和Move方法方法 VB第3章赋值与输入输出 如输入如输入48524852秒，则应输出秒，则应输出1 1小时小时2020分分5252秒秒 (1)(1)创建应用程序的用户界面和设置对象属性创建应用程序的用户界面和设置对象属性 (2)(2)编写程序代码编写程序代码 Private Su

28、b 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() End End Sub VB第3章赋值与输

29、入输出 VB第3章赋值与输入输出 对话框既可以用来显示信息，也可以用于输入信息对话框既可以用来显示信息，也可以用于输入信息 VBVB中能够建立两种预制对话框：输入框和消息框中能够建立两种预制对话框：输入框和消息框 使用系统提供的函数使用系统提供的函数(InputBox(InputBox和和MsgBox)MsgBox)，而不必为，而不必为 对话框另建窗体对话框另建窗体 先看以下一个例子先看以下一个例子 例例3.7a 3.7a 通过输入框输入姓名，然后再消息框中显示出来通过输入框输入姓名，然后再消息框中显示出来 Private Sub Form_Load() x = InputBox(输入您的姓名

30、输入您的姓名, 您叫什么名您叫什么名?) MsgBox (x & 先生：祝您马到功成！先生：祝您马到功成！) End Sub 3.6 使用对话框使用对话框 VB第3章赋值与输入输出 用于产生一个能接收用户输入的对话框用于产生一个能接收用户输入的对话框 格式：格式： 变量变量=InputBox(=InputBox(提示提示,标题标题,缺省值缺省值,xpos,ypos),xpos,ypos) 举例举例 $=InputBox(“请输入文件名请输入文件名(不超过不超过8个字符个字符)”，”文件名文件名”，”vbfile”) 将产生一个如下对话框将产生一个如下对话框 VB第3章赋值与输入输出 $=Inp

31、utBox(请输入文件名请输入文件名 + Chr(13) + (不超过不超过8个字符个字符), 文件名文件名, vbfile) VB第3章赋值与输入输出 使用使用MsgBoxMsgBox函数，可以产生一个对话框来显示消息函数，可以产生一个对话框来显示消息 当用户单击某个按钮后，将返回一个数值以标明用户单击当用户单击某个按钮后，将返回一个数值以标明用户单击 了哪个按钮了哪个按钮 其语法格式是：其语法格式是： 变量变量=MsgBox(=MsgBox(提示提示,对话框类型对话框类型,对话框标题对话框标题) 例：例：y = MsgBox(“y = MsgBox(“输入文件名是否正确输入文件名是否正确”

32、,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(“输入文件名是否正确输入文件名是否正确”

33、) ) 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.1

34、0 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 = Tex

35、t2.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