3 数据类型

常用属性、事件及方法

一、常用的对象属性：

name ：对象的名称（只能在属性窗口中设置）

left : 对象与容器之间左边相隔的距离

top : 对象与容器之间上边相隔的距离

backcolor : 对象的背景颜色

forecolor : 前景色

height : 对象自身的高度

width: 对象的宽度

caption : 对象的标题信息

picture : 加载图片

Picture1.Picture = LoadPicture("文件名") 文件名包含路径

如：picture1.picture=LoadPicture("d:\图片\花朵.jpg")

text : 表示文本框的内容属性

font（属性）

fontsize 字体的大小

fontname 字体的名称

fontbold 字体是否加粗

maxbutton 窗体的最大化按钮是否有效（只能在属性窗口中设置）minbutton 窗体的最小化按钮是否有效（只能在属性窗口中设置）controlbox 窗体的三个控制按钮是否显示（最大化，最小化，关闭）

·enabled 设置对象是否可用

·visible 设置对象是否可显示

二、对象的事件：对象可以接受的操作动作

click(单击) dblclick(双击)

load(加载窗体) 计算机自动完成的一个加载过程动作

unload(卸载窗体）关闭动作Unload Me = End

三、对象的方法（对对象要执行的一个指令）

1、print 输出文本方法（适合于窗体、图片框）

2、cls 清除文本方方法(适合于窗体、图片框)

3、move 移动(任何对象)

4、show 显示窗体(窗体)

5、hide 隐藏窗体（窗体）

练习题：窗体无最大化按钮和最小化按钮，窗体装入时，在窗体的标题栏显示“装入窗体”，并在窗体上装入一幅图片作为背景,并将字号设置为48，字体设置为黑体；当用户单击窗体，在标题栏显示“鼠标单击”，在窗体上显示“单击窗体”；当用户双击窗体，在标题栏显示“鼠标双击”，去除窗体的背景图案，并显示“双击窗体”。

数据类型

一、数据类型

1、字符串型（string）：是放在双引号内的若干个字符

“Hello”“123”“1+2=3”

“visual basic 程序设计”

“”双引号表示空字符

2、数值型：表示具体的值

整型( Integer ) 取值范围：-32768 —32767

长整型( Long ) 取值范围（-2147483648~2147483647）

单精度( Single ) 小数点精确到7 位，用“E”表示

例：123.45E3

123.45*103

双精度( Double ) 小数点精确到15-16位，用“D”表示

例：123.45678D3 123.45678*103

12.34567

3、货币型( Currency ) ：表示钱款

·小数点精确到后4 位，小数点4位以后的数字进行四舍五入再被舍去

·小数点是固定的，称为定点数据类型

4、逻辑型( Boolean )：值为True（真）或False（假）

5、日期型( Date )：以“#”号括起来例：# April 23, 2011 #、# 23 April, 2011 #、# 2011-4-23#

6、变体型( Variant )：可以表示任何类型的值

注：类型说明符

% 整型

& 长整型

！单精度

# 双精度

$ 字符串型

二、变量：在内存中开辟的一个临时存放数据的空间

内存：计算机内部存储器

1、变量命名规则

（1）必须以字母开头。

（2）只能由字母、数字和下划线组成

（3）不能使用VB关键字

2、变量的声明

（1）显式声明

用Dim、Public、Private或Static语句来声明变量

Dim语句的一般格式：

Dim 变量名[ As 类型]

1）Dim y As Integer

Dim y%

2）dim a a是变体型

提示：定义变量类型不同运算结果也不同

例2：

Private Sub Command1_Click()

Dim a As String, b As String

'Dim a As Integer, b As Integer

a = Text1.Text

b = Text2.Text

Text3 = a + b

End Sub

（2）隐式声明

·不加说明就直接使用变量，此时默认的变量类型为变体型（V ariant）三、常量

常量命名规则与变量相同

常量的声明格式：

Const 常量名[As类型] =值

例3：Const PI As Single = 3.14159

r = 3

s = PI * r * r

Print "面积="; s

例4：例5：

Private Sub Command1_Click() Private Sub Command1_Click() Dim r As Integer, pi As Single Dim t As String

Dim w As Single, s As Single t = Text1