第三讲 数据类型
一、数据类型
数据是指计算机程序中需要处理的各种信息。按数据的性质，数据可分为不同的类型。 例如：姓名、地址属于文本类型的数据，数量、单价属于数值类型的数据。 为了有效地进行数据处理，需要将数据划分为不同的类型。VB提供的数据类型主要有数值型、字符串型（string）、布尔（boolean）和日期型（date）。 1、 数值型数据
（1）、字节型（byte），占1个字节 （2）、整型（integer），占2个字节 （3）、长整型（long），占4个字节 （4）、单精度（sing），占4个字节 （5）、双精度（double），占8个字节 （6）、货币型（currency），占8个字节 2、 字符串类型（string）
字符串是一个用双引号括起来的字符序列。例如，以下字符串都是合法的字符串： “Hello” “12345” “ABCD123”
“Visual Basic 6.0程序设计” “”
3、 布尔型（boolean）
布尔型数据占2个字节的存储空间，用于进行逻辑判断，只有True和False两个值。 例如：3>2的值为True；0>3的值为False 4、 日期型（date）
当需要表达Date类型的数据时，需要用#号将具体日期括住。 例如：日期是：2004年2月23日，则应表达为：#2004-2-23# 二、算术运算与字符串运算
进行各种运算是解决的基础。VB支持多种运算，本节课介绍算术运算与字符串运算。 1、 算术运算：VB提供了7个算术运算符，下表以优先级次序列出了这些运算符。 1 ^ 乘方 3^2 9 2 - 取负 -3 -3 3 * 乘法 3*5 15
3 / 浮点除法 10/3 3.33333333333333 4 \\ 整数除法 10\\3 3 5 Mod 取模 10 mod 3 1 6 + 加法 2+3 5 6 - 减法 2-3 -1 2、 字符串运算
字符串运算符有两个：“&”、“+”，它们的作用都是将两个字符串连接起来，合并成一个新的字符串。例如：
“广州市” & “中山大学” 结果为”广州市中山大学”
“168”+”号房” 结果为”168号房” 168+”号房” 数据类型不一致，错误 三、课堂练习：
第四讲 TextBox的使用（一）
文本框控件在工具箱中的名称为TextBox，在VB中，可以使用文本框控件输入、输出数据。
一、属性：
（1）Text属性：字符串类型。 返回或设置文本框中显示的内容。 例如：Text1.text=”年年有余”
（2）MultiLine属性：布尔型。
当MultiLine属性为True时，文本框可以输入或显示多行文本。
（3）Passwordchar属性：字符串类型。
当MultiLine属性值为False时，该属性可以用于口令输入。如果把Passwordchar属性设置为一个字符，如星号（*），则在文本框中键入字符时，只显示星号，不显示键入的字符。
（4）ScrollBars属性：数值型。
该属性用于确定文本框是否带滚动条。有以下4种选择： 0-None 没有滚动条
1-Horizontal 只有水平滚动条 2-Vertical 只有垂直滚动条
3-Both 同时具有水平和垂直滚动条
只有当MultiLine属性值为True时，文本框才显示滚动条。 二、事件：
文本框除了支持鼠标的Click、DblClick事件外，还支持Change、GotFocus、LostFocus、KeyPress等事件。本节课，我们先学习Change事件。
（1）Change事件：当用户向文本框输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发Change事件。
（2）示例：建立两个文本框，名称分别为：t1、t2。运行时，用户在文本框t1中输入内容的同时，文本框t2显示相同的内容。 程序代码：
Private Sub t1_Change() t2.Text=t1.Text End Sub
三、综合练习（界面如下图所示）：
1、属性设置如下：
2、程序代码如下：
Private Sub Command1_Click() t3.Text = t1.Text End Sub
------------------------------------------------------------------ Private Sub Command2_Click() t1.Text = \t2.Text = \t3.Text = \End Sub
------------------------------------------------------------------ Private Sub Command3_Click() End End Sub
Private Sub Command4_Click() t3.Text = t1.Text & t2.Text End Sub
------------------------------------------------------------------ Private Sub t1_Change() t2.Text = t1.Text End Sub
vb最基础入门教程从零开始
