VB@H_502_4@基本数据类型
VB 6@H_502_4@．O@H_502_4@提供的基本数据类型主要有：字符型数据、数值型数据、货币类型、字节类型、布尔类型、日期类型、通用类型、无符号类型、对象类型等9@H_502_4@种数据类型。
1@H_502_4@．字符型数据
@H_502_4@字符型数据(String)@H_502_4@用以定义一个字符序列。在内存中一个字符用一个字节来存放。
2@H_502_4@．数值型数据
@H_502_4@数值型数据包括：整型、长整型、浮点型(@H_502_4@单精度和双精度)4@H_502_4@种。
(1)@H_502_4@整型数
@H_502_4@整数(Integer)@H_502_4@：是不带小数点、范围-32 768@H_502_4@到3 2 767@H_502_4@之间数，在内存中用2@H_502_4@个字节(1 6@H_502_4@位) @H_502_4@来存储一个整数。在-32 678@H_502_4@～32 767@H_502_4@之间的一个数字在尾部加一个“％”符号也表示一种整型数据，如1 345@H_502_4@％，-67@H_502_4@％。 ’
(2)@H_502_4@长整型数
@H_502_4@长整型数(Long)@H_502_4@：是超过一32 768~32 767@H_502_4@范围，而在-2 147 483 648~2 1 47 483 647@H_502_4@之间的不带小数点的数，一个长整数在内存中占4@H_502_4@个字节(32@H_502_4@位)@H_502_4@。在-2 1 47 483 648@H_502_4@～2 1 47 483 647@H_502_4@之间的数字在尾部带一个“&"@H_502_4@符号，也表示为一个长整数。
(3)@H_502_4@浮点数
@H_502_4@单精度数(Single)@H_502_4@：是带小数点的实数，有效值为7@H_502_4@位。在内存中用4@H_502_4@个字节(32@H_502_4@位)@H_502_4@存放一个单精度数。通常以指数形式(@H_502_4@科学记数法)@H_502_4@来表示，以“E"@H_502_4@或“e@H_502_4@”表示指数部分。
@H_502_4@双精度数据(Double)@H_502_4@：也是带小数点的实数，有效值为1 5@H_502_4@位。在内存中用8@H_502_4@个字节(64@H_502_4@位)@H_502_4@存放一个双精度数。双精度数通常以指数形式(@H_502_4@科学记数法)@H_502_4@来表示，以“D"@H_502_4@或“d@H_502_4@”表示指数部分。
3@H_502_4@．货币类型
@H_502_4@货币类型(Currency)@H_502_4@：是为计算货币而设置的定点数据类型，它的精度要求高，规定精确到小数点后4@H_502_4@位。在内存中占8@H_502_4@个字节(64@H_502_4@位)@H_502_4@。取值范围在-922 337 203 685 477@H_502_4@．5805@H_502_4@到922 337 203 685 477@H_502_4@．5807@H_502_4@之间。
4@H_502_4@．字节(Byte)@H_502_4@类型
@H_502_4@字节(Byte)@H_502_4@类型：是一种数值类型，以1@H_502_4@个字节的无符号二进制数存储，取值范围为0~255@H_502_4@。
5@H_502_4@．布尔类型
@H_502_4@布尔类型(Boolean)@H_502_4@：布尔型数据是一个逻辑值，也称逻辑类型，用两个字节存储，它只取两种值，即’Frue(@H_502_4@真)@H_502_4@或False(@H_502_4@假)@H_502_4@。
6@H_502_4@．日期类型
@H_502_4@日期类型(Date)@H_502_4@：用以表示日期，在内存中一个日期型数据用8@H_502_4@个字节来存放。
7@H_502_4@．通用类型
@H_502_4@通用类型(@H_502_4@’Variant)@H_502_4@，也称变体类型，是一种通用的、可变的数据类型，它可以表示上述任何一种数据类型。假设定义a@H_502_4@为通用型变量。
Dim a As Variant
@H_502_4@在变量a@H_502_4@中可以存放任何类型的数据，例如：
a@H_502_4@：--BASIC@H_502_4@’- -@H_502_4@存放一个字符串
a=10 -@H_502_4@存放一个整数
a=20@H_502_4@．5 -@H_502_4@存放一个实数
a=--08@H_502_4@／15@H_502_4@／2003@H_502_4@’· ’存放一个日期型数据 一
@H_502_4@根据赋给a@H_502_4@的值的类型不同，变量a@H_502_4@的类型不断变化，这就是称之为变体类型的由来。当一个变量未定义类型时，VB@H_502_4@自动将变量定义为Variant@H_502_4@类型。不同类型的数据在Variant@H_502_4@变量中是按其实际类型存放的(@H_502_4@例如将一个整数赋给a@H_502_4@，在内存区中按整型数方式存放)@H_502_4@，用户不必作任何转换的工作，VB@H_502_4@自动完成。
8@H_502_4@．无符号类型
@H_502_4@无符号类型(Decimal)@H_502_4@：变量存储96@H_502_4@位(1 2@H_502_4@个字节)@H_502_4@无符号的整数形式，并除以一个1 O@H_502_4@的幂数，称为变比因子。这个变比因子决定了小数点右面的数字位数，其范围从O~28@H_502_4@。
@H_502_4@说明：目前Decimal@H_502_4@数据类型只能在变体类型(Variant)@H_502_4@中使用，也就是说，不能把一个变量声明为Decimal@H_502_4@．类型。
9@H_502_4@．对象类型
@H_502_4@对象类型(Object)@H_502_4@：用来表示图形、OLE@H_502_4@对象或其他对象，用4@H_502_4@个字节存储。
CommandButton@H_502_4@控件
@H_502_4@在 Visual Basic 操作界面中，CommandButton（命令按钮）控件所代表的图标如图一：
@H_502_4@图一
CommandButton 控件在程序中主要作为按钮进行使用。默认的名称为 CommandX（X为 1、2、3，等等），命名规则为 CmdX（X为用户自定义的名字，如 CmdCopy、CmdPaste ，等等）。
@H_502_4@一、CommandButton 的主要属性：
1、Cancel（取消）属性：
@H_502_4@当一个按钮的 Cancel 属性设置为 True 时，按 ESC 键与单击此命令按钮的作用相同，因此，这个命令按钮被称为取消按钮。
@H_502_4@在一个窗体中，只允许一个命令按钮的 Cancel 属性为 True 。如图二：
@H_502_4@图二
2、Default（默认）属性：
@H_502_4@当一个按钮的 Default 属性设置为 True 时，按回车键与单击此命令按钮的作用相同，因此，这个命令按钮被称为默认按钮。
@H_502_4@与 Cancel 的设置一样，在一个窗体中，只允许一个命令按钮的 Default 属性设置为 True ，如图三：
@H_502_4@图三
3、Caption（标题）属性：
@H_502_4@跟其他控件的 Caption 属性一样，都用来显示控件标题的属性。这里要强调的是，作为按钮控件，用户可以给按钮控件的 Caption 指定快捷方式。
@H_502_4@方法是在按钮 Caption 属性中欲作为快捷键的字母前加上一个 “&” 符号，程序运行时，该字母的下面会自带一条下划线，同时按下 Alt 键和带有下划线的字母，功效相当于用鼠标点击该按钮。如图四：
@H_502_4@图四
4、Enabled（可用）属性：
@H_502_4@本属性决定了控件是否可用的问题。当值为 False ，按钮在程序运行时呈灰色，不能响应用户的鼠标动作；只有当值为 True ，按钮才能使用。
@H_502_4@图五
@H_502_4@也可以在程序中修改，代码如下： @H_502_4@按钮控件名称.Enabled = True/False
@H_502_4@例一：
@H_502_4@两个命令按钮，按钮一（CmdEnable）初始状态为可用，按钮二（CmdFalse）初始状态不可用。点击按钮一，按钮二变为可用，按钮一变为不可用；点击按钮二，按钮一变为可用，按钮二变为不可用。
@H_502_4@程序界面如图六：
@H_502_4@图六
@H_502_4@按钮一：
Private Sub CmdEnable_Click() |
@H_502_4@按钮二：
Private Sub CmdFalse_Click() |
5、Style（类型）与 Picture（图片）属性：
@H_502_4@也许你想让应用程序的操作界面更美观一点，也许你想在某个按钮上添加幅小图片，那么，你就得使用到本控件的 Style 与 Picture 属性。
@H_502_4@铵钮控件共有两种 Style ，一种是标准型（Standard），VB 中用 VbButtonStandard ，或者 0 表示；另外一种是图形型（Graphical），VB 中用 VbButtonGraphical ，或者 1 表示。
Style 属性可以在界面设置过程中予以指定，如图七：
@H_502_4@图七
@H_502_4@按钮名称.Style = VbButtonStandard/VbButtonGraphical
@H_502_4@只有当按钮的 Style 设置为 Graphical 类型时，按钮的 Picture 属性才起作用。本属性能在指定的按钮上添加图片。
@H_502_4@可以在界面设置过程中为按钮指定图片，如图八：
@H_502_4@图八
@H_502_4@按钮名称.Picture = "图形文件所在的路径与文件名"，例如：CmdPicture.Picture = "D:\image\01.jpg"
@H_502_4@二、CommandButton 的事件：
@H_502_4@命令按钮最常用的事件是鼠标点击（Click）事件，当点击按钮时，犹如发出了一道命令，而这也正是“命令按钮”这个说法的由来。
Label @H_502_4@控件
Label（标签控件）是图形控件，主要作用在于显示文字信息，如大家比较熟悉的程序安装界面：在某个软件安装过程中，常常会显示一些帮助信息或与产品相关的介绍信息，而这些，大多是用标签控件制成的。
@H_502_4@与以后我们要学到的文本框控件（TextBox）不同的是，标签控件显示的文字不能直接进行修改，要修改的话只能在设计阶段进行；文本框既可以用来显示文本，还能够在文本框中输入文本。
@H_502_4@在 Visual Basic 工具箱中，标签控件的图标如图一所示。标签的默认名称（Name）和标题（Caption）为 LabelX（X为1、2、3，等等），规范的命名方式为：LblX（X为自己定义的詞，如 LblShow 、LblRed ，等等）
@H_502_4@图一
@H_502_4@一、标签控件的主要属性：
1、Caption（标题）属性：
@H_502_4@此属性用来设置在标签上显示的文本信息，可以在创建界面时设置，也可以在程序中改变文本信息，如第一章的例子中，通过点击按钮改变标签显示的字样。
@H_502_4@如果要在程序中修改标题属性，代码规则如下：
@H_502_4@标签名称.Caption = "欲显示的文本"
@H_502_4@如第一章在程序中改变标签 LblShow 的 Caption 属性：
LblShow.Caption = "跟我来学 VB 神童教程"
@H_502_4@但是请大家注意，上面的代码应该写入供触发的控件对应的程序代码区，如第一章中，是在命令按钮的程序代码区输入的代码，而不是标签本身的代码区哟。
@H_502_4@这也是初学者常常大惑不解的地方，为什么我要让标签改变字样，却要在其他控件中输入代码？这是因为，我们是通过触发其他控件这个事件来让标签改变 Caption 属性的。
@H_502_4@当然，你也可以让标签本身来触发 Caption 属性改变事件，如用鼠标点击标签，这时你就需要在标签对应的程序代码区输入代码了，但在实际编写中，这种情况非常罕见。毕竟，标签控件用于显示信息的本意远远超过了响应鼠标点击的意图。
2、BorderStyle（边框）属性：
@H_502_4@本属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框，并且具有三维效果，如图二显示的两个标签：
@H_502_4@图二
BorderStyle 属性可以在设计界面时指定，如图三：
@H_502_4@图三
@H_502_4@也可以在程序中改变（但这种应用不多见），程序代码规则：
@H_502_4@标签名.BorderStyle = 0/1（0或1，两者取一）
@H_502_4@习题一：@H_502_4@创建一个标签（LblShow）、两个按钮（CmdChange1、CmdChange2），点按 CmdChange1 ，标签有边框；点按 CmdChange2 ，标签无边框。
@H_502_4@答案：见本节最后的答案区。
3、Font（字体）属性：
@H_502_4@本属性用来设置标签显示的字体，既可以在创建界面时设定，也可以在程序中改变。
@H_502_4@在创建界面时设定，如图四：
@H_502_4@图四
@H_502_4@在图四的设置界面中，除了可以选择字体，还可以设置显示文字是否为粗体、斜体、下划线等。
@H_502_4@在程序中改变 Font 属性，程序代码书写规则如下：
@H_502_4@字体改变：标签名.FontName = "字体类型"，其中，“字体类型”可以是中文，如“宋体”、“隶书”；也可以是英文名，如“Arial”、“Times New Roman”，等等，不过，这些字体名称必须是电脑上有的。
@H_502_4@字体大小改变：标签名.FontSize = X ，其中，X 是阿拉伯数字，代表字体是几号字。如：LblShow.FontSize = 11 。
@H_502_4@粗体（FontBold）、斜体（FontItalic）、下划线（FontUnderline）、删除线（FontStrikethru）属性的设置值是代表真/假的逻辑判断值 True/False ，如下：
LblShow.FontBold = True/False
LblShow.FontItalic = True/False
@H_502_4@习题二：@H_502_4@一个标签（LblShow）用于显示文本；按钮1（Cmd1）可以让标签显示的字体变成隶书；按钮2（Cmd2）可以让标签显示的字体变成 13 号字；按钮3（Cmd3）可以让字体变成粗体。
4、Alignment（对齐）属性：
@H_502_4@此属性用来设置标签上显示的文本的对齐方式，分别是：左对齐，0；右对齐，1；居中显示，2。可以在界面设置时设定，如图五：
@H_502_4@图五
@H_502_4@标签名.Alignment = 0/1/2
5、Visible（可见）属性：
@H_502_4@本属性在大多数控件中都有，它能设定该控件是否可见。当值为 True ，控件可见；当值为 False ，控件隐藏。
@H_502_4@控件的可见属性可以在界面设置时设定，如图六：
@H_502_4@图六
@H_502_4@标签名.Visible = True/False
@H_502_4@习题三：@H_502_4@一个标签（LblShow），在界面设置时为可见；按钮1（Cmd1），能够让标签隐藏；按钮2（Cmd2），能够让标签显现。
@H_502_4@答案：见本节最后的答案区
@H_502_4@二、标签控件（Label）的主要事件：
@H_502_4@所谓的事件，其实就是用户对应用程序的操作，如第一章中用鼠标点击命令按钮触发的 Click 事件。
@H_502_4@事件的作用在于触发程序的执行，如第一章中的 Click 事件改变了标签控件的 Caption 属性。
@H_502_4@标签控件的主要作用在于显示文本信息，但也支持一些为数不多的事件。
1、Click 事件（鼠标单击）：
@H_502_4@用鼠标点击标签时触发的事件，如改变标签的字体属性：
Private Sub LblShow_Click()
LblShow.FontName = "隶书"
End Sub
2、DbClick 事件（鼠标双击）：
@H_502_4@鼠标双击引发的事件，如改变标签的可见性：
Private Sub LblShow_DbClick()
LblShow.Visible = False
End Sub
@H_502_4@三、知识点：
1、@H_502_4@用 VB 编写程序犹如搭积木，把每块“积木”（控件或其他对象）放在合理的位置，然后以某种机制（程序）将这些“积木”们运用起来，最后就搭成了我们需要的东西。所以，掌握每一种控件，包括它们的属性与主要事件，是我们学习编程的基础！
2、@H_502_4@某些属性是大多数控件所共有的，如 Name 、FontBold、FontItalic、Visible ，等等；但也有些属性是某个控件所独有的，如标签控件的 WordWrap （标签的标题显示方式）。本节中我们只是讲述了部分标签控件的属性，其他属性可以在 VB 的帮助文件中查找到。
3、@H_502_4@大家在学习过程中一定会疑惑，为什么在属性设置时，“＝” 右边有时使用 "" ，有时又不使用 "" 。不知大家注意到没有，我们在使用 "" 时，是因为引号里面的内容是字符串，如"隶书"、"Times New Roman"，等等。
4、@H_502_4@字符的大小写问题：初学者还常常疑惑，字母什么时候应该大写，什么时候应该小写？其实，大写小写在 VB 程序中都是一样的，但为了让程序编写得更为规范，程序可读性更高，英文单词的第一个字母一般都要大写，如 Visible 、Name ，等等；
@H_502_4@控件的命名也遵循以上原则，不同的是，命名都是由“控件类型名＋具体名字”组成的，控件类型名的第一个字母要大写，具体名字的第一个字母要大写，如 LblShow 、CmdShow 、LblChange ，等等。
5、@H_502_4@程序代码的规范：上面有这样的例子：
Private Sub CmdShow_Click()
LblShow.Caption = "跟我来学 VB 神童教程"
End Sub
Private Sub CmdShow_Click()代表一个过程，共由两部分组成，CmdShow 代表 CmdShow 这个按钮，Click 代表这个按钮的触发事件。
@H_502_4@以此类推，Private Sub LblShow_DbClick ()也代表一个过程，LblShow 是个标签，DbClick 是双击事件。
@H_502_4@另外，Private 意为“私有”，表明这个事件过程的类型；此外还有 Public 即“公有”事件。
Sub 表明这个过程是“子程序”，若干个“子程序”共同组成最终的应用程序。
()里面是用来装参数的，关于参数，我们以后讲述，如果没有参数，()里面为空。
@H_502_4@第一个按钮的点击事件：
Private Sub CmdChange1_Click()
LblShow.BorderStyle = 1
End Sub
@H_502_4@第二个按钮的点击事件：
Private Sub CmdChange2_Click()
LblShow.BorderStyle = 0
End Sub
@H_502_4@第二题：
@H_502_4@按钮1：
Private Sub Cmd1_Click()
LblShow.FontName = "隶书"
End Sub
@H_502_4@按钮2：
Private Sub Cmd2_Click()
LblShow.FontSize = 13
End Sub
@H_502_4@按钮3：
Private Sub Cmd3_Click()
LblShow.FontBold = True
End Sub
@H_502_4@第三题：
@H_502_4@按钮1：
Private Sub Cmd1_Click()
LblShow.Visible = False
End Sub
@H_502_4@按钮2：
Private Sub Cmd2_Click()
LblShow.Visible = True
End Sub