赋值与输入输出

第3章赋值与输入输出

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

输入f处理f输出

可通过VB语句、各种控件实现输入输出操作

本章主要内衮

窗体和基本控件

命令按钮/标签/文本框

对话框¥

输入对话框/消息对话框1w

3.1赋值语句

赋值语句是程序设计中最基本、最常用的语句

格式：［Let］变量名二表达式・

功能：计算右端的表达式，并把结果赋值给左端的变量

例3.1已知a=6,b=9,计算c=Ja2+b2

编写的窗体单击事件过程代码如下：

PrivateSubForm_Click()

DimaAsSingle,bAsSingle,cAsSingle

a=6

b=9

c=Sqr(a*a+b*b)

Printnc=n&c

EndSub

C=10.81665

本事件过程采用的是顺序程序结构，运行的过程是

声明3个单精度变量a,b,c

6-a

9-b

计算表达式，其结果10.81665-c

输出结果

赋值含义：将值送到变量的存储单元中去

¥★

说明:

(1)表达式中的变量必须是赋过值的，否则变量的

初值自动取零值(变长字符串变量取空字符)。例如：

■

a=1

c=a+b+3'b未赋过值，为

执行后，c值为4

⑵利用赋值语句，可以改变变量的值，因此，同

例3.2示例

PrivateSubForm_Click()

a=3:Print"*A="&a

a=7:Print***A="&a

a=a*2+3:Print”***A="&a

EndSub

运行程序后单击窗体，输出的结果如下：

**A=7^H

***A=17

(3)赋值语句跟数学中等式具有不同的含意，例如赋值语

句x=x+l,表示把变量x的当前值加上1后再将结果赋给变量

“先读后写”：读出X的内容一力口1一写回X(覆盖原有内容)

某

年的元旦是星期几

⑴分析：计算某年y的元旦是星期几，可由以下式子得出:

F=y-l+[(y-1)/4]-[(y-1)/100]+[(y-l)/400]+1

其中[]表示求整・

K=FMod7F除以

y为某年公元年号，计算出K为星期几

⑵创建应用程序的用户界面

―一万年房

输入年份)2005

星期F

⑶设置对象属性

(4)编写程序代码

功能要求：用户在“输入年份”文本框(Text1)中输入某

一年份，单击“查看”按钮时，则在“星期”文本框(Text2)

中显示出星期几

*

编写的“查看”按钮(Commandl)Click事件过程代

码如下：

PrivateSubCommandl_Click()

DimyAsInteger,fAsInteger,kAsIntege

y=Val(Textl.Text)-1

f=y+Int(y/4)一Int(y/100)+Int(y/400)+1

k=fMod7，等价于吗？

Textl.Text=k

EndSub

运行结果（见上图）*

3.2常用基本语句

3.2.1注释语句Rem

在程序的适应位置加上必要的注释,可以提高程序的可读性

语法格式：Rem

或

Rem交换变量a和b的值

a=b

b=c

用关键字Rem,在Rem和注释内容之间要

(2)在其他语句后使用Rem关键字，必须使用冒号④与前面

的语句隔开。注释符(单引号')可以直接写在其他语旬后面。

3.2.2加载对象语句Load

语法格式:Load对象名

功能：把对象名代表的窗体对象、控件数组元素等

说明：使用Load语句可以加载窗体，但不显示窗体。当VB

加载窗体对象时，先把窗体属性设置为初始值，再执行Load事

LoadForml'加载窗体

LoadOption(2)'加载控件数组中的一个元素

如果卸载的对象是程序惟一的窗体，则将终止程

序的执行

例如

PrivateSubCommandl_Click()^^|

UnloadMe/卸载当前窗体■

EndSub

Me是系统关键字，用来代表当前窗体

3.2.4结束语句End

格式：End^^l

也可以单击工具栏上的“结束”按钮

■

3.2.5暂停语句Stop-

格式：Stop

功能：暂停程序的运行。可用于调试程序（设置断点）

也可以通过单击工具栏上的“中断”按钮来实现

使用Ctrl+Break组合键

3.3使用Print方法输出数据

3.3.1Print方法■

用于显示（输出

格式：［对象名.］Print［表达式列表］

说明：（1）使用的对象可以是窗体等

Print''程序设计"'在当前窗体上输出

Picturel.Print''程序设计”，在图片框上输出

（2）表达式列表是一个或多个表达式，如果省略，则输出

一个空行

（3）当输出多个表达式时，各表达式之间用分号“；”（紧

凑格式）或逗号”（按区格式）隔开。

个字符位置）

例：PrivateSubForm_Click()

a=2

b=nVBn

Print50*a'计算并输出表达式的值

Printb，输出变量的值

Print，输出空行

Print"TheTotalis”，输出字符串常量

EndSub

输出数值数据时，前面有一个符号位(正号以空格表示),

后面留有一个空格；输出字符串时，前后不留空格。

例：PrivateSubForm_Click()

a=3:b=4

Printa,b,4+a,

Print2*b

Printa,,b

Printna=n;a,nb=n;b

EndSub

Forml-inix

运行结果

3478

34

a二3b二4

(4)若语句行末尾有分号或逗号,则输出本行输出项后不换行

例3.4使用Print方法输出全班学生的平均年龄

已知18岁6人，19岁21人，20岁23人，21岁15人

编写的窗体单击事件过程代码如下：

PrivateSubForm_Click()

DimaAsInteger,bAsInteger,cAsInteger

DimdAsInteger,sAsInteger,mAsSingle

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”平均年龄：n;Int(m*10+0.5)/10

EndSub:

平均年龄：19.7-年

3.3.2特殊打印格式

格式：Spc(n)^・

功能：在输出下一项之前插入n个空格。

Print”学号、Spc(2)；“姓名”;Spc(5)；“成绩”

输出结果(L」表示空格

学号LJLJ姓名L_JL_JLJL_II__I

2.Tab函数

函数格式：Tab(n)^・

功能：把输出位置移到第

例如：

PrintTab⑵；''学号"；Tab(ll)『姓名"；Tab(21);“成绩

输出结果是(1个汉字占2个位置):

LJ学号LJLJLJ1_11_1姓名1_11_11_11_11_11_1成绩

例3.5使用Tab对输出进行定位

序代码如下:

PrivateSubForm_Click()

Print

PrintTab(15);“学号”；Tab(26);“姓名"；Tab(36);“成绩”

PrintTab(14);String(27,，输出27个减号字符

PrintTab(14);“20011001";Tab(26);“张小三”；Tab(36);57

PrintTab(14);“20011003”;Tab(26);”李小四Tab(36);69

PrintTab(14);“20011012”;Tab(26);“马小五”;Tab(36);92

PrintTab(14);String(27,“」')，输出27个减号字符

EndSub¥

•Foral□0

姓

斐_名

三

张4\

四

19011001李

\57

/I・

马

19011003/S五69

19011012b92

—I

¥

¥

3.Format函数

格式：Format(表达式［，格式串］)^・

功能：根据格式串规定的格式来输出表达式的值

■a=4513.7:b=3456.78:TimeVar=#08:30:05#

PrintFormat(a,n##,###.##

PrintFormat(a,n$##,###.00n)|^l

PrintFormat(bJ'+##,####')^H

PrintFormat(TimeVar,nh:m:sn)^^|

输出结果是：

4,513.7

$4,513.70

+3,456.8^1

8:30:5

格式符号#和0都能显示数字，但符号#会剔除不必要的0,

符号0会按规定补足0

3.4窗体

窗体(Form)是设计VB应用程序的基本平台

窗体本身是一个对象，又是其他对象的载体或容器

多数应用程序是从窗体开始执行的；一个程序可以有多个窗体

3.4.1窗体的基本属性

■设置窗体的属性，可在程序设计时在属性窗口中

手工设置，也可以在程序运行时由代码实现

默认属性

一些常用的窗体属性：

•Name属性：用于设置窗体的名称。指定窗体的名称。只读，

不能在应用程序中修改

•Caption属性：用于设置窗体标题栏上的标题内容。

•Maxbutton和Minbutton属性：用于设置最大化和最小化按钮

・Height和Width属性：确定窗体的初始高度和宽度

•Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标

•Appearance属性：用于设置窗体的外观是平面还是三维的

,BackColor和ForeColor属性：设置窗体的背景色和前景色

•Picture属性：用于在窗体上设置要显示的图形。

[对象.]Picture二LoadPicture（‘‘文件名''）

・Visible（可见性）：设置对象的可见性，默认值为True

窗体坐标系统

3.4.2窗体的事件

窗体作为对象，能够对事件作出响应。与窗体有关的常用

窗体事件过程的一般格式为：

PrivateSubForm—事件名（［参数表

EndSub

不管窗体名字如何定义，但在事件过程中只能使用Form,

而在过程内对窗体进行引用时才会用到窗体名字（如Forml等）

与窗体有关的常用事件有以下几种。

(l)Load(装载)事件

(2)Unload(卸载)事件

(3)Activate(活动)>Deactivate(非活动)事件

(4)Paint(绘画)事件

(5)Click(单击)事件

(6)DblClick(双击)事件

(7)KeyPress(按键)事件：当按下键盘上的某个健时,将触发

PrivateSub对象_KeyPress(KeyAsciiAsInteger)^^|

EndSub

参数KeyAscii返回所按键的ASCII码

343窗体的方法

(1)Show方法：用于快速显示一个窗体，使该窗体

变成活动窗体

(2)Print方法：用于在窗体上输出表达式的值

(3)Cls方法：用于清除运行时在窗体中显示的文本

或图形

(4)Move(移动)方法：用于移动并改变窗体或控件的

位置和大小

3.4.4焦点与Tab键序

1.焦点

焦点(Focus)是对象接收鼠标或键盘输入的能力。

当对象得到或失去焦点时，分别会产生GotFocus或LostFocus

(3)按Tab键或Shift+Tab键在当前窗体的各对象之间切换焦点

^M4）在代码中用SetFocus

Textl.SetFocus,把焦点设置在文本框Textl

2.Tab键序

Tab键序是指用户按Tab键时，焦点在控件间移动的顺序

反映在控件的Tabindex属性

例3.6显示唐诗“静夜思”

设置以下3个命令按钮:

“显示”按钮：用于显示唐诗“静夜思”

清除”

结束”

(1)创建应用程序的用户界面和设置对象的属性

Forml

静夜思(唐诗)

床前明月光.疑是地上霜

举失望明月，低头思故乡

|r：a^：：j|清除结束

⑵编写程序代码。编写的三个按钮的Click事件过程代码如下:

PrivateSubCommandl_Click()

BackColor=RGB(255,255,255)

ForeColor=RGB(0,0,255)

FontName="楷体_GB2312”

FontSize=20

CurrentX=1200

CurrentY=350

Print”静夜思(唐诗)，

FontName="幼圆”

Print

FontSize=13

PrintSpc(6);“床前明月光，疑是地上霜”

Print

PrintSpc(6);“举头望明月，低头思故乡”

EndSub

PrivateSubCommand2_Click()

Cis

EndSub

PrivateSubCommand3_Click()

End

EndSub

程序运行后，单击“显示”按钮，输出结果

3.5基本控件

需要在窗体中放置各种控件，才能实现用户与应用程序

之间的信息交互

三种基本控件——命令按钮、标签和文本框

351控件的公共属性

⑴Name属性：控件的Name属性(名称)必须以字母开

头，其后可以是字母、数字和下划线，名称长度不能超过40

个字符

(2)Caption属性：任意的字符串。以通过程序代码改变其

值，例如:

Commandl.Caption="结束”

可以在Caption属性中为控件指定一个访问键。例如，将命令按钮的

Caption属性设置为“结束(&E)”，则运行时该控件外观如图3.7所示，只

要用户同时按下Alt键和E键，就能执行该按钮命令。

(3)Enabled属性:该属性决定控件是否对用尸产生的事件

作出响应

(4)Visible属性

该属性决定控件是否可见，默认值为True。

(5)Height>Width、Top和Left属性：Height和Width属性

确定控件的高度和宽度，Top和Leif属性确定控件在窗体中

的位置

备Foml匚恒囚.』

(0,0)

Top

LeftHeight

Width

(6)BackColor和ForeColor属性

(7)FontName>FontSize>FontBold>

Fontltalic>FontStrikethru^DFontUnderlineJB

性

(8)Font属性：确定控件中显示的文本所用字体

的样式、大小、字体效果等

*

352命令按钮

用于接收用户的操作信息，并引发应用程序的某个操作

1.常用属性・________

(l)Default属性和Cancel^^^^H

Default属性和Cancel属性分别用于设置“默认按钮”和

“取消按钮”

(2)Style属性

设置命令按钮的外观

2.常用事件和方法■

命令按钮最常用的事件是Click(单击)事件，但不支持

DblClick(双击)事件。

命令按钮常用的方法是SetFocus^^^M

353标签

标签（Label）主要用来显示比较固定的提示性信息。

1.常用属性・

⑴Alignment属性

设置标签中文本的对齐方式

（2）八^utoSize

确定标签的大小是否根据标签的内容自动调整大小

（3）BorderStyleJM性

设置标签的边框外观

2.常用事件和方法■

标签最常用的事件是Click（单击）事件和

DblClick（双击）事件。

标签常用的方法是SetFocus方法。・

354文本框

文本框(TextBox)是一个文本编辑区域，用户可以在该区

域中输入、编辑和显示文本内容。

默认情况下，文本框只能输入单行文本，并且最多可以

输入2048个字符

1.常用属性

文本框具有一般控件的常用属性，但文本框没有

Caption属性

(1)Maxlength属性：确定文本框中文本的最大长度

(2)Multiline属性：指定文本框中是否允许显示和输入多

行文本

(3)PasswordChar属性：确定在文本框中是否显示用户输

入的字符，常用于密码输入

(4)ScrollBars属性：指定在文本框中是否出现滚动条

(5)SelStart属性、Sellength属性和SelTextH^H

设置或返回文本框中所包含的文本内容。

⑺Locked属性

2.常用事件和方法

文本框支持Click、DblClick等鼠标事件，同时支持

Change>GotFocus>LostFocus等事件

文本框常用方法有SetFocus方法和Move方法

例3.7输入一个总秒数）化成小时、分钟和秒数

如输入4852秒，则应输出1小时20分52秒

(1)创建应用程序的用户界面和设置对象属性

(2)编写程序代码

PrivateSubCommandl_Click()

DimhAsInteger,mAsInteger,sAsInteger,tAsInteger

t=Val(Textl.Text)

h=t\3600

t=t-h*3600

m=t\60

s=t-m*60

Textl.Text=hPrivateSubCommand2_Click()

Text3.Text=mEnd

Text4.Text=sEndSub

EndSub

♦i.FormlX

¥

3.6使用对话框

对话框既可以用来显示信息，也可以用于输入信息

VB中能够建立两种预制对话框：输入框和消息框

使用系统提供的函数（InputBox和MsgBox）,而不必为

对话框另建窗体

先看以下一个例子

例3.7a通过输入框输入姓名，然后再消息框中显示出来

■PrivateSubForm_Load（）

x=InputBox「输入您的姓名一，您叫什么名”）

MsgBox（x&"先生：祝您马到功成！”）

EndSub

3.6.1输入对话框

用于产生一个能接收用户输入的对话框

格式：

变量二InputBox（提示［,标题］［,缺省值］Lxpos］［,ypos］）

举例

fnename$=InputBox（“请输入文件名（不超过8个字符产，”文件

名“，”vb行

行lename$=InputBoxC'请输入文件名”+Chr(13)+

”(不超过8个字符)「，文件名”,"EUe")

文件名

话输入文件名确定|

坏超过8个字符)

取消

2s

3.6.2消息对话框

使用MsgBox函数，可以产生一个对话框来显示消息

当用户单击某个按钮后，将返回一个数值以标明用户单击

了哪个按钮

其语法格式是：

变量二MsgBox（提示对话框类型［,对话框标题］］）■

例：y=MsgBox。'输入文件名是否正确”，52,〃请确认”）

'、对话框类型”一般有3个参数，4+48+0

出现按钮；图标类型港认按钮;

函数返回值（例3_9b）■请确认

£输入文件名是否正确

I匚二基:jg二二“否®］

消息糖的三种格式

V=MsgBox（'、输入文件名是否正确”，52,〃请确

认”）

MsgBox、'输入文件名是否正确”，52,〃请确认”

MsgBox（、'输入文件名是否正确”）

¥**

例3.8从输入框中输入圆的半径，计算圆的周长和面积

⑴创建应用程序的用户界面和设置对象属性

PrivateSubCommandl_Click()

DimrAsSingle,kAsSingle,sAsSingle

r=Val(InputBox("请输入圆的半径”「计算圆的周长和面积

八))

k=2*3.14159*r

s=3.14159*r*r

Text1.Text=k

Text2.Text=s

MsgBox”计算已完成”,J例3・1成

EndSub+

PrivateSubCommand!Click()

EndQfrX

EndSub¥K

当输入的圆半径为65时，运行结果

二回区

圆周长颐

4067开始

8

结束计算已完成

圆面积［13273.22

确定

3.7程序举例

例3.9编写程序，实现两个文本框内容的交换

使用一个临时单元变量(t)

(1)在窗体上建立两个标签、两个文本框和一个命令按钮

(2)编写程序代码

PrivateSubCommand1_Click()'“交换”按钮

t=Textl.Text

Textl.Text=Text2.Text

Text2.Text=t多

EndSub

¥

例3.10控制窗体“变大”和“变小”

在窗体上设置三个命令按钮（图3.15）,程序进入运行状态

后，当单击“窗体变大”命令按钮时，窗体变大，单击

“窗体变小”按钮时，窗体变小。单击“退出”按钮时，

则退出。

-Forml

⑴建立应用程序的用户界面和设置对象属性

⑵编写程序代码

PrivateSubForm_Load()

Forml.Height=4000

Forml.Width=4000

Forml.Top=1000

Forml.Left=1000

EndSub

PrivateSubCommandl_Click()'“窗体变大”按钮

Forml.Height=Forml.Height+200，每次增加200点

Forml.Width=Forml.Width+200

EndSub

PrivateSubCommand2_Click()'“窗体变小”按钮

Forml.Height=F