Visual Basic 60程序设计Word文件下载.docx
- 文档编号:4125607
- 上传时间:2023-05-02
- 格式:DOCX
- 页数:38
- 大小:32.65KB
Visual Basic 60程序设计Word文件下载.docx
《Visual Basic 60程序设计Word文件下载.docx》由会员分享,可在线阅读,更多相关《Visual Basic 60程序设计Word文件下载.docx(38页珍藏版)》请在冰点文库上搜索。
上例中用到了Print输出数据。
Print是VB提供的一种方法,可完成在窗体上显示(输出)字符串或表达式的值的操作。
语法格式:
[对象名.]Print[输出项列表]
功能:
在指定对象上输出数据。
说明:
对象名可以是窗体名(例如Form1)、图片框名(例如Picture1),或打印机(如Printer)。
若省略对象名,则默认在当前窗体上输出数据。
“输出项列表”是一个或多个要显示的数据项。
输出项可以是数值表达式或字符串。
若输出字符串,要用双引号括住字符串;
若输出变量中的数值,则变量不应用双引号括住。
若输出的是数值表达式,则Print会先计算表达式的值,然后输出;
若省略输出项,则输出一空行。
Print“欢迎学习VB。
”’输出字符串,显示:
欢迎学习VB。
a=6’将数值6赋给变量a
Printa’输出变量a中的值,显示:
6
Print’输出空行
Print5+10*4输出表达式的值,显示:
45
若输出多项,各输出项之间要用“;
”或“,”当分隔符。
“;
”表示按紧凑格式输出各项,即两输出项之间无间隔地显示出来;
而用“,”做分隔符,表示各输出项按分区输出格式显示。
VB中规定,一个输出区为14个西文字符的宽度,第一个输出区从窗体左边第一个字符位置开始,而第二个输出区从第15个字符位置开始。
逗号后面的输出项在下一个输出区显示。
Form1.Print“a”;
“b”,“c”
结果在窗体上显示:
abc
Print“A=”;
1
结果显示:
A=1
例如a=12
b=3
Print“a=”;
a,“b=”;
b
Print“a+b=”;
a+b
运行结果:
a=12b=3
a+b=15
例:
Print“abcd”’没有以分隔符结尾,光标自动换行
Print“xyz”,’以“,”结尾,光标不换行
Print“OPQ”’接着上一行,在下一输出区输出字符串OPQ
显示结果如下:
abcd
xyzOPQ
6.1.3常量分类及其声明方法
常量分为两种:
直接常量,符号常量
1.直接常量
直接常量就是在代码中以常数的形式表示的数据,所以也称之为常数。
如a=a+3,式中的3就是直接常量。
VB中提供了各种类型的直接常量(常数)。
有两种:
字符串,数值
(1)字符串:
是用双引号括起来的字符序列,可以是ASCII字符,也可以是中文字符.
例如:
"
ABCDE"
程序设计"
(空字符串)
(2)数值:
整型、长整型、浮点型、货币型等
整型:
分为十进制、十六进制、八进制
十六进制常数表示:
以&
H开头。
十六进制数码:
16个:
0~9,A~F或a~f
&
H12,&
H1A
数值类型
分为整型数和实型.
整型常量(Integer)
整型常量指有符号整数。
整型常量可以分为十进制、十六进制和八进制。
十进制整数如–12、12345(+号被省略)、0等。
十六进制整型数规定以&
H开头,数码由0,1,……9,A,B……F(也可以小写)组成。
例如&
H1A等于十进制的26。
十六进制整数的表示范围是:
H0~&
HFFFF
八进制整数:
8个数码:
0,1,2……7
八进制整数以&
O开头.
O32等于十进制数26。
O126,&
O176
八进制整型数的表示范围是&
O0~&
O177777。
长整型数:
也分为十进制、十六进制、八进制
八进制长整型数表示:
O开头,以&
结尾.
例:
O126&
&
O377777&
十六进制长整型数:
以&
H开头,以&
H2FE&
货币类型数据(Currency)
主要用于钱款计算上。
15位整数,4位小数.
变体类型数据(Variant)
是一种可变的数据类型,可以表示任何类型的数据.
其它数据类型
(1)字节(Byte)
取值范围:
0~255
(2)布尔(Boolean)
是逻辑数.取值:
True(真),False(假)
日期类型数据(Date)
日期类型数据用来表示日期信息.
日期常量要以"
#"
字括起来
#9/12/2003#、#2003-9-12#、
#2003-10-2011:
30:
10AM#等,都是合法的日期型常量。
可以在常数后面加上类型说明符表示数据的类型。
类型说明符如下:
%整型
长整型
!
单精度
#双精度
@货币型
$字符串型
2.符号常量
可以用符号代表数值或字符串常量。
定义符号常量的格式:
Const符号=表达式
ConstA=100
ConstB=A+50
可以在常量名后跟类型后缀说明其类型:
ConstX&
=1:
ConstY#=1.2
则语句 Z=X+10 等价于 Z=1+10
注意:
符号常量一经声明后,不能再被赋予新的值。
上述定义的常量:
A代表100
则再出现语句A=20是错的
3.VB内部常量
是由VB系统定义的符号常量,简称VB内部常量。
VB定义了大批内部常量,这些内部常量一般以小写字母vb开头。
例如vbCrLf代表“回车换行”符;
vbRed等于&
HFF&
,是一个颜色常量,代表红色等等。
在代码设计中可以直接使用VB内部常量。
在运行阶段,将窗体的背景色变为黄色:
Me.BackColor=vbYellow
6.1.4运算符与表达式
VB提供的运算符有算术运算符、字符串连接运算符、比较运算符和逻辑运算符。
1.算术运算
+加、-减、*乘、/除、\整除、Mod求余数、^幂(乘方)、-取负(如-x)
7Mod3,结果为1(即余数为1)
19/2,结果为9.5
19\2,结果为9(小数部分全部舍去)
2^3+3,结果为11
a+b*3-c/d,结果视a、b、c、d的值而定。
x=3:
y=-x结果y得到-3
算术运算符的优先级
当表达式有多种运算符时,先处理优先级别高的运算符。
若有(),则最先处理()中的运算
优先级最高:
^幂运算
-取负
*、/
\整除
Mod取余
优先级最低:
+、-
2.字符串连接
“&
”和“+”都可以连接字符串。
为了避免与算术加法运算符产生混淆,应尽量用“&
”连接字符串。
另外,“&
”会自动将数值型数据转换成字符型数据后再进行连接,而“+”号则没有这个功能。
以下为字符串表达式
“abc”&
“xyz”’结果为“abcxyz”
"
Iam"
+"
Chinese"
+"
."
'
结果是“IamChinese.”
设x=“学生”
Print“我是”&
x
我是学生
优先级:
字符连接运算符<
算术运算符
3.关系运算符
也称比较运算符。
有以下几种:
=等于、<
>
不等于、>
=大于等于
>
大于、<
小于、<
=小于等于
关系运算表达式只有两种结果(逻辑值),即当关系表达式成立时结果为True(真),否则结果为False(假)。
在VB中True的值是-1,False的值是0。
设a=1,b=2则a>
b的结果为False;
a+2>
b的结果为True
算术运算>
字符连接>
关系运算符
4.逻辑运算符
逻辑运算符有:
Not:
非、And:
与、Or:
或、Xor:
异或
逻辑运算表达式也只有True和False两种结果。
Not表示取反操作,如果a=False
则Nota结果为True。
Not(5>
10)表达式的值:
True
算术运算>
关系运算符>
逻辑运算符
6.2常用VB标准函数
6.2.1输入输出函数
1.输入框函数InputBox()
键盘输入字符串给变量。
该函数的执行,会弹出一个对话框(如图5-9),让用户输入数据。
格式:
x=InputBox(prompt$[,title$][,default$][,x%][,y%])
prompt$:
是用双引号括起来的字符串,指定输入对话框中显示的提示信息,用来提示用户输入什么数据。
title$:
是用双引号括起来的字符串。
用来指定显示在输入对话框标题栏中的标题。
default$:
指定默认的输入值。
该项中的字符串显示在输入框中,若用户没有输入任何值,则该项内容即作为输入值。
[,x%][,y%]:
是对话框左上角的坐标值,用来确定对话框在屏幕上显示的具体位置。
函数返回值:
是输入的字符串。
若没有输入字符串,则返回Default项中的字符串。
x:
是用户定义的字符串(String)型变量,用于接受函数的返回值(即用户的输入值)。
例6-3在窗体单击(Click)事件过程中输入代码如下:
PrivateSubForm_Click()
DimaAsString
a=InputBox("
请输入你的地址:
"
输入函数练习"
"
沈阳市"
)
Print"
你的地址是:
a
EndSub
可用此函数从键盘向变量中输入数据。
但要注意,该函数返回的数据是字符型数据。
DimxAsInteger,yAsInteger
x=InputBox(“请输入整数”)
y=5*x^2
Print“y=”;
y
输入3
输出y=45
2.输出信息框函数MsgBox()
打开一个对话框(如图6-4),显示提示信息,并提供若干命令钮供用户选择。
格式1:
x=MsgBox(msg$[,Type%][,title$])
格式2:
MsgBoxmsg$[,buttons%][,title$]
参数说明:
msg$:
指显示在对话框中的提示信息字符串。
title$:
显示在对话框的标题栏中的标题字符串。
Type%:
确定对话框的样式,由三项数据合成:
命令钮类型+图标类型+焦点位置。
这三项数据可以用vb内部符号常量表示,也可以用整型常量表示,含义如下:
(1)命令钮类型:
0(vbOKOnly)——显示“确定”命令钮
1(vbOKCancel)——显示“确定”和“取消”命令钮
2(vbAbortRetryIgnore)——显示“终止”、“重试”、“忽略”命令钮
3(vbYesNoCancel)——显示“是”、“否”、“取消”命令钮
4(vbYesNo)——显示“是”、“否”命令钮
5(vbRetryCancel)——显示“重试”、“取消”命令钮
16384(vbMsgBoxHelpButton)——显示“帮助”命令钮
(2)图标类型
16(vbCritical)—显示图标
32(vbQuestion)—显示图标
48(vbExclamation)—显示图标
64(vbInformation)—显示图标
Type参数由以上3类参数组成。
组成原则是:
从每一类中选择一个值,把这几个值加在一起,就是Type参数.
例:
x=MsgBox("
错误"
vbAbortRetryIgnore+vbCritical+0,"
MsgBox举例"
)
或:
MsgBox"
产生的对话框如下:
(4)函数返回值
当用户在对话框中单击了某个按钮,函数就返回所单击的按钮的对应数值。
按钮与返回值的对应关系如下:
“确定”按钮—1(vbOK)
“取消”按钮—2(vbCancel)
“终止”按钮—3(vbAbort)
“重试”按钮—4(vbRetry)
“忽略”按钮—5(vbIgnore)
“是”按钮—6(vbYes)
“否”按钮—7(vbNo)
例6-4在窗体单击事件过程中输入如下代码:
DimxAsInteger
x=MsgBox(“错误”,vbAbortRetryIgnore+vbCritical+0,“MsgBox举例”)
Print“x=”;
x;
Ifx=vbAbortThen
Print“你按下了终止按钮。
”
ElseIfx=vbRetryThen
Print“你按下了重试按钮。
ElseIfx=vbIgnoreThen
Print“你按下了忽略按钮。
EndIf
按F5键运行程序,单击窗体,就会弹出MsgBox对话框如图6-4。
若在对话框中单击了[终止]按钮,则在窗体中打印出:
x=3你按下了终止按钮。
因为[终止]按钮对应的函数返回值是3。
例用MsgBox函数判断是否继续执行.
PrivateSubForm_Click()
msg$="
请确认此数据是否正确"
Title$="
数据检查对话框"
typ=vbYesNoCancel+vbCritical
x=MsgBox(msg,typ,Title)
Ifx=vbYesThen
Print"
x="
;
x
ElseIfx=vbNoThen
x,"
数据错误,请从新输入"
6.2.2数学函数
1.Int(x)
得到不超过x的最大整数。
x可以是数值表达式,函数值为整型。
Int(5.9)的值为5
Int(-5.9)的值为-6,Int(-5.2)的值为–6
2.Abs(x)
得到x的绝对值。
x为数值表达式。
Abs(-3.5)的值为3.5
y=10
z=Abs(y-15)'
z得到5
3.Sqr(x)
得到x的平方根,要求x>
=0。
x=36
y=Sqr(x)’结果y的值为6
5.Sgn(x)
得到参数x的符号。
当x>
0时,函数值为1,
x=0时,函数值为0,
x<
0时,函数值为-1。
设x=8,y=-10,z=0
则有:
Sgn(x)的值为1,Sgn(y)的值为-1
Sgn(z)的值为0
6.Rnd([x])
得到0~1之间的随机数。
函数值是大于等于0,小于1(即0<
=Rnd()<
1)的小数。
函数值为Single型。
0或不指定x值时,每次产生随机序列中的下一个随机数;
当x<
0时,每次返回相同的随机数;
当x=0时,得到最近产生的随机数。
打印一个随机数:
x!
=Rnd
Printx
要得到1~10之间的整数,可用表达式:
Int(10*Rnd+1)
y=Int(10*Rnd+1)
Printy
例6-5单击窗体,在窗体上打印100以内的随机整数。
PrivateSubForm_Click()
y=Int(100*Rnd()+1)
EndSub
运行程序时,每单击一次窗体,会显示一个100以内的随机整数。
7.三角函数
VB提供的三角函数有:
正弦函数Sin(x),余弦函数Cos(x),正切函数Tan(x),反正切函数Atn(x)等。
注意:
x角度要以弧度表示。
角度转换为弧度的公式:
弧度=度数*3.14159/180
6.2.3字符串处理函数
字符串函数大都后跟类型说明符$,表示函数的值是字符串。
但在VisualBasic6.0中,可以有$符,也可以省略$符,函数的功能相同。
如Left$()函数与Left()函数功能相同。
1.删除空格函数
LTrim(x$)、RTrim(x$)、Trim(x$)
Ltrim(x$)可以去掉x字符串左端的空格部分
Rtrim(x$)可以去掉x字符串右端的空格部分
Trim(x$)可以去掉x字符串左端和右端的空格部分。
a$="
Goodmorinig"
b$=LTrim(a)
c$=RTrim(a)
Printa;
ABC"
Printb;
Printc;
输出结果:
GoodmorinigABC
GoodmorinigABC
GoodmorinigABC
2.字符串截取函数
(1).左部截取Left(x$,n)
得到x中字符串左边的n个字符。
函数返回值是String型。
x$=“abc你们好”
y=Left(x,2)
ab
(2).中部截取Mid(x$,m,n)
得到x字符串中左数第m个字符开始的n个字符,n若省略,默认从第m个字符开始截取到字符串的末尾。
x=“abc你们好”
’从x中第4个字符开始截取3个字符赋给变量m:
m=Mid(x,4,3)
Printm’显示m中的内容:
你们好
(3).右部截取Right(x$,n)
得到x中字符串右边的n个字符。
x="
abc你们好"
z=Right(x,3)
Printz
3.字符串长度测试函数Len(x$)
得到x字符串的长度(字符个数)。
x="
abc字符串"
s=Len(x)'
s的值为6
Prints
也可以测试变量的长度(所占存储空间字节数)
PrintLen(a%)'
显示整型变量长度2
PrintLen(b&
)'
长整型变量长度4
4.空格函数Space(n)
得到n个空格组成的字符串。
y=“abc”+Space(3)+“efg”
结果y的值为:
“abc___efg”
5.字母大小写转换函数
格式:
Ucase(x$)、Lcase(x$)
Ucase(x$)可以将x中字符串的字母都转换成大写,Lcase(x$)则将x中字符串的字母都转换成小写。
x$=“Abc”
y$=Ucase(x)’y中得到“ABC”
z$=Lcase(x)’z中得到“abc”
6.Asc(x$)
得到x中字符串第一个字符的ASCII码。
x=“ABC”
a1=Asc(x)
上句的执行结果:
a1得到65(因为“A”的Ascii码是65)
7.Chr(n)
将ASCII/DBCS编码n,转换为相应字符。
Chr(65)的值为“A”
Chr(66)的值为“B”
DBCS(Double-Byte
Character
Set)
8.Str(x)
将x中的数值转换成字符型数据。
x!
=3.1416
y$=Str(x)’y中内容为字符串“3.1416”
数值型数据在计算机内存中是以二进制形式存放的,而字符型数据则是以ASCII码形式存放的。
9.Val(x$)
得到字符串x中的数值,并将其转换成数值型数据。
x$=“123Kg”
a%=Val(x)’a的内容为数值123
6.2.4日期时间函数
1Date
得到系统的当前日期。
假设当前日期是2006-9-12
Dimd1AsDate
d1=Date
Printd1’显示:
06-9-12
2Time
得到系统的当前时间。
设当前时间为8:
20:
40,则以下程序执行结果为:
PrivateSubCommand2_Click()
Dimt1AsDate
t1=Time
Printt1’显示:
8:
40当前系统时间
3
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic 60程序设计 60 程序设计