变量的概念.docx

什么是变量 (Variable)变量是计算机编程中的一个重要概念。变量是一个可以存储值的字母或名称。当你编程时，可使用变量来存储数字，例如建筑物的高度，或者存储单词，例如人的名字。简单地说，可使用变量表示程序所需的任何信息。你可能会问：“既然我可以使用信息，为什么要用变量？” 因为变量可以随着程序的运行而改变其表示的值。例如，你可以写个程序来跟踪罐子里糖豆的数目。因为糖是要被吃掉的，所以罐里糖豆的数目可能会随着时间的推移而改变。你可以使用一个变量来表示不同时间的糖豆数目，而无需在每次糖豆数目变化时重新修改程序。将信息存储于变量中使用变量有三个步骤： 声明变量 (declare the variable)。告诉程序变量的名称和类型。 给变量赋值 (assign the variable)。赋予变量一个要保存的值。 使用变量 (user the variable)。在程序中获得变量中所存储的值。声明变量声明变量时，必须决定其名称和存储其中的数据的类型 (data type) 。使用 Dim 和 As 这两个关键字来声明变量，如下所示。Dim aNumber As Integer这行代码的意思是要使用一个名为 aNumber 的变量，并且希望它所存储的值的数据类型为整数 (Integer)。因为 aNumber 是一个整数 (Integer) 数据类型，所以它只能存储整数。例如要存储 42.5 这样带有小数的数字，则需使用双精度浮点数 (Double) 数据类型。如果要存储单词或句子，需使用字符串 (String) 数据类型。另外一种在此值得一提的数据类型是布尔 (Boolean)，它可存储 True 或 False 值。 下面是关于如何声明变量的更多示例。Dim aDouble As DoubleDim aName As StringDim YesOrNo As Boolean给变量赋值使用 = 符号给变量赋值，如下例所示。这时候，这个 = 符号我们称之为赋值变量运算符 (assignment operator)。aNumber = 42这行代码的值为 42，它存储在先前声明的名为 aNumber 的变量中。 声明变量并给变量赋个缺省值你可以用一行代码声明变量，然后用另一行代码给变量赋值。比如：Dim aNumber As IntegeraNumber = 42但是，如果尝试在赋值前使用变量，可能导致错误。因此，最好在同一行代码中声明变量和并给变量赋值。即使还不知道变量将要存储什么值，也可以给变量赋个缺省值 (default value) 。上面的两行代码就可以写成：Dim aNumber As Integer = 42更多代码示例：Dim aDouble As Double = 0Dim aName As String = default stringDim YesOrNo As Boolean = True通过用同一行代码声明变量并给变量赋个缺省值，可以避免可能发生的错误。以后你仍可以使用赋值方法为变量赋给不同的值。试一试在本练习中，你要写一个小程序来创建四个变量并为其赋值，然后在一个消息框 (message box) 窗口中显示每个值。首先我们将创建存储代码的项目。创建项目打开 Visual Studio 在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 Variables，再单击确定 (OK)。Visual Basic 将为程序创建文件并打开窗体设计器 (Form Designer)。下一步，我们将创建变量。创建变量并显示它们的值双击该窗体。代码编辑器 (Code Editor) 打开并显示名为 Form1_Load 的代码节。这节代码，称为过程 (Procedure)，包含在窗体首次加载到内存中时执行的指令。在 Form1_Load 过程中，键入以下代码。Dim anInteger As Integer = 42Dim aDouble As Double = 39.345677653Dim aString As String = I like woyouxian.Dim aBoolean As Boolean = True此代码声明四个变量：Integer、Double、String 和 Boolean，并给它们赋默认值。提示 键入代码时，您可能会注意到：在键入 As 后，光标下会出现一个单词列表。此功能称为智能感应 (Intellisense)。利用这一功能，您只需键入一个单词的前几个字母，便可以在列表中选择相应的单词。完成选择后，就可以按 Tab 键完成单词。注意每当在程序中表示实际文本时，必须用双引号 将文本括起来。这会告诉程序将文本解释为实际文本而不是变量名。如果在实际文本中还包含双引号，你则用两个双引号代替。比如Dim aString As String = I like b l a b l a!给 Boolean 变量赋 True 或 False 值时，则无需用双引号将其括起来，因为 True 和 False 是 Visual Basic 关键字，其本身有特殊的含义。然后在上一步写的代码下键入以下代码。MsgBox(anInteger)MsgBox(aDouble)MsgBox(aString)MsgBox(aBoolean)End前四行代码使用 MsgBox 函数告诉程序在新窗口中显示上一步给每个变量所赋的值。最后一行使用 End 语句告诉程序在执行完此过程后结束。运行程序选择调试 (Debug) 菜单中的开始调试 (Start Debugging) 运行程序。或者直接按快捷键 F5 运行程序。 在出现的每个窗口上单击确定 (OK)。注意每个变量的值依次显示，然后程序结束。程序结束后，你可以返回并更改代码中给变量所赋的值，然后再次运行应用程序，你会看到显示的新值。编者：woyouxianatgmail点com参考：微软 MSDN Visual Basic Guided Tour - Representing Words, Numbers, and Values with Variables时间：2006-11-29数据类型 (Data Type) 概要 Visual Basic 2005 中的数据类型 (Data Type) 不仅决定了可存储在变量中的值或数据的种类，而且决定了如何存储该数据。为什么会有不同的数据类型？不妨这样考虑：假定你有三个变量，前两个保存数字，第三个保存名称，你可以使用前两个变量执行算术运算，但不能对名称执行算术运算。可见，为一个变量指定数据类型可以更容易地确定在哪些情况下能够（或者不能够）使用该变量。注意其他编程元素，比如常数 (Constant)、属性 (Proerpty) 和函数 (Function) 中也会用到数据类型。在以后章节中，你将学习更多有关数据类型的其他用法。用于数字的数据类型大多数计算机程序都以某种形式来处理数字。由于存在多种不同的数字表示方法，因此，Visual Basic 2005 提供了多种数字数据类型以便更有效地处理数字。最常用的数字数据类型是 Integer，该类型用于表示整数，即不带小数的数字。选择表示整数的数据类型时，除非存储在变量中的数字大于二十亿左右，你才需要使用 Long 数据类型，否则使用 Integer 更为有效。并不是所有的数字都是整数。例如，两个整数相除所得的结果经常是一个整数加上一个小数（9 除以 2 等于 4.5）。Double 数据类型用于表示带小数的数字。 注意还有其他数字数据类型，如 Decimal、Short、SByte 和 UInteger；这些类型通常用于极其庞大的程序中，对这些程序来说，要考虑内存使用或内存速度。作为初学者，你现在只需了解基本的数字数据类型即可。有关常用的数字数据类型使用，请参见数据类型中整数和浮点数的使用。用于文本的数据类型大多数程序还要处理文本，包括向用户显示信息或者捕获用户输入的文本。文本通常以 String 数据类型进行存储，这种数据类型可包含一系列的字母、数字、空格和其他字符。String 的长度是任意的，它可以是一个句子、一个段落、一个字符，还可以什么都没有（即一个空字符串）。 对于始终仅表示一个字符的变量，还可以使用 Char 数据类型。如果只需在一个变量中保存一个字符，可以使用数据类型 Char 而不是 String。有关 String 数据类型的使用，请参见数据类型中字符串的使用。其他数据类型除文本和数字以外，程序有时还需要存储其他类型的信息，如 True 或 False 值、日期或对程序有特殊含义的数据。对于可表示为 True/False、Yes/No、On/Off 的值，Visual Basic 提供了布尔 (Boolean) 数据类型。Boolean 变量可保存两个可能值之一：True 或 False。 虽然可以将日期或时间表示为数字，但 Date 数据类型可以使日期或时间的容易计算，如计算到您的生日还有几天，或者到午饭时间还差几分钟。 有关 Date 数据类型的使用，请参见数据类型中日期的使用。如果需要在一个变量中存储多种类型的数据，可以使用复合数据类型 (composite data type)。复合数据类型包括数组 (Array)、结构 (Structure) 和类 (Class)。在后面的课程中，你会了解到有关这些复合数据类型的更多信息。最后，在有些情况下需要存储的数据类型在不同的时间可能有所不同。Object 数据类型允许你先声明变量，以后再定义该变量的数据类型。在后面的课程中，你会了解到有关 Object 数据类型的更多信息。数据类型中整数和浮点数的使用运用 Visual Basic 处理数字时，要用到两种类型的数字：整型和浮点型。整型只能表示整数，浮点型主要用于表示带有小数的数字，虽然浮点数也可以表示整数。常见的整型数学运算废话少说，先做一个整数变量的计算示例你就大致明白了。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 IntegerMath，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnIntMath，将其 Text 属性改为 Math Test。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：Private Sub btnIntMath_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnIntMath.ClickEnd Sub在上述代码中插入一些代码，扩充成如下：Private Sub btnIntMath_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnIntMath.Click Declare variable Dim intNumber As Integer Set number, add numbers, and display results intNumber = 16 intNumber = intNumber + 8 MessageBox.Show(Addition test. & intNumber, Integer Math) Set number, subtract numbers, and display results intNumber = 24 intNumber = intNumber - 2 MessageBox.Show(Subtraction test. & intNumber, Integer Math) Set number, multiply numbers, and display results intNumber = 6 intNumber = intNumber * 10 MessageBox.Show(Multiplication test. & intNumber, Integer Math) Set number, divide numbers, and display results intNumber = 12 intNumber = intNumber / 6 MessageBox.Show(Division test. & intNumber, Integer Math)End Sub选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。会弹出四个消息框，按确认 (OK) 即可关闭消息框。我们先看其中这段代码： intNumber = 16 intNumber = intNumber + 8 MessageBox.Show(Addition test. & intNumber, Integer Math)第一行代码意思：将 16 这个整数赋值给变量 intNumber。第二行代码意思：在变量 intNumber 中存储当前的 intNumber（即16）加 8 的值。第三行代码意思：弹出消息框，显示 intNumber 最终存储的数字。依次类推，该程序中的其它代码你也很好理解，它们分别是变量的减法运算，乘法运算和除法运算。整数的运算中，用 + 表示加法，- 表示减法，* 表示乘法，/ 表示除法。Visual Basic 2005 中的整数类型 (Integer) 能表示 -2,147,483,648到 2,147,483,647 之间的整数。简写运算符我们可以用简写运算符缩短我们的代码，比如intNumber = intNumber + 8可以简写成：intNumber+= 8这样就不必写两次 intNumber 了。下面依次列示了减法，乘法和除法的简写运算符intNumber -= 8intNumber *= 8intNumber /= 8整形运算的问题整形运算的主要问题就是对小数部分无能为力。假设我们写了如下代码：Try multiplying Number = 6intNumber = intNumber * 10.23这些代码虽然可以运行，但是得不到预想的结果，因为变量 intNumber 被定义为只能接收整数，所以结果是一个经过四舍五入的最接近这个值的整数。6 乘以 10.23 应该等于61.38，但是 intNumber 的返回值却是 61。类似的问题也会出现在除法运算中，比如下列代码：Try dividing Number = 12intNumber = intNumber / 512 除以5 应该等于 2.4，但是 intNumber 的返回值却是 2。遇到有关小数的运算，我们应该用下面讲述的浮点运算。浮点运算先做一个有关浮点运算的示例吧。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 Floating-Pt Math，再单击确定 (OK)。在窗体 Form 1 里添加一个 按钮 (Button) 控件，然后在相关属性 (Properties) 窗口内将其 Name 属性改为 btnFloatMath，将其 Text 属性改为Double Test。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下：Private Sub btnFloatMath_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnFloatMath.ClickEnd Sub在其中加入代码，扩充成如下：Private Sub btnFloatMath_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnFloatMath.Click Declare variable Dim dblNumber As Double Set number, multiply numbers, and display results dblNumber = 45.34 dblNumber *= 4.333 MessageBox.Show(Multiplication test. & dblNumber, Floating Points) Set number, divide numbers, and display results dblNumber = 12 dblNumber /= 7 MessageBox.Show(Division test. & dblNumber, Floating Points)End Sub选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。你会注意到，在上述代码中，我们将变量 dblNumber 定义成双精度的浮点数 (Double)，而不是整数 (Integer) 类型。执行上述代码，得出的运算结果是带有小数的数值。提示之所以叫浮点数，主要是因为它存储数字的方式类似于科学计数法。当用科学计数法表示某个数时，可以表示为 1-10 之间的某个数乘以 10 的幂次方。例如，10001 被表示为 1.0001 * 104，0.0010001 被表示为 1.001*10-3 。可以看出，小数点”浮动“到第一个数字后面。这种表示法的优点在于不管是大数还是小数，都可以用相同的精度来表示。浮点数变量以相同的方式存储在计算机里，不过不是 10 幂次方，而是 2 的 幂次方。双精度浮点数和单精度浮点数前面的示例中我们用了双精度浮点数 (Double)的数据类型。在 Visual Basic 中，还提供单精度浮点数 (Single) 的数据类型。这两者主要在精度上有区别。双精度浮点数能精确表示1.79769313486231570E+308到 -4.94065645841246544E-324 范围的负数和从 4.94065645841246544E-324到 1.79769313486231570E+308范围的正数。单精度浮点数能够精确表示从 -3.4028235E+38到 -1.401298E-45的负数和从 1.401298E-45到 3.4028235E+38 的正数。单精度浮点数的精度没有双精度那么高，但是所需内存少，运算速度快。提示如果对精度要求不高，则应该尽量避免使用双精度浮点数，而应该使用单精度浮点数。这一点在一些大型应用程序中非常重要。如果在定义变量时，单精度浮点数就足够了，但是却使用了双精度浮点数，会大大减慢程序的运行。如果某个变量只需要整数类型就足够了，应避免用浮点数。因为整数的运算速度更快。大多数程序需要处理文本，比如向用户显示信息或者捕获用户输入的文本。文本通常以字符串 (String) 数据类型 (Data Type) 进行存储，这种数据类型可包含一系列的字母、数字、空格和其他字符。String 的长度是任意的，它可以是一个句子、一个段落、一个字符，还可以什么都没有（即一个空字符串）。 简言之，String 就是字符的集合。表示 String 时，一定要用双引号将其围起来。比如：strData = Hello, world!否则程序会误将 String 当做变量名或者程序语法的一部分。下面的一个示例，演示了最简单的字符串的用法。试一试打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 Strings，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnStrings，将其 Text 属性设为 OK。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnStrings_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnStrings.ClickEnd Sub在其间加入如下代码：Declare variableDim strData As StringSet the string valuestrData = Hello, world!Display the resultsMessageBox.Show(strData, Strings)选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。会弹出一个消息框，消息框中写着Hello, world!。按确认 (OK) 即可关闭消息框。字符串的连接如何将几个字符串连接起来成为一个字符串呢？ Visual Basic 用 & 符号来进行字符串的连接。比如：strResults = strDataOne & strDataTwostrResults = Hello, & World!我们再做一个简单示例。同上面一个例子一样，只是在 Click 事件中换如下代码：Declare variablesDim strOne As StringDim strTwo As StringDim strResults As StringSet the string valuesstrOne = HellostrTwo = , world!Concatenate the stringsstrResults = strOne & strTwoDisplay the resultsMessageBox.Show(strResults, Strings)再修改最后一行代码看看：Declare variablesDim strOne As StringDim strTwo As StringDim strResults As StringSet the string valuesstrOne = HellostrTwo = , world!Concatenate the stringsstrResults = strOne & strTwoDisplay the resultsMessageBox.Show(The result is & strResults, Strings)以上示例帮助你记住 & 符号，连接字符串就是用这个符号。字符串长度用 Length 属性 (Property) 可以得到字符串的长度。还是举个例子说明吧。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 StringLength，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnLength，将其 Text 属性设为 Length。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnLength_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnLength.ClickEnd Sub在其间加入如下代码：Declare variableDim strData As StringGet the text from the TextBoxstrData = Hello,World!Display the length of the stringMessageBox.Show(strData.Length & character(s), Strings)这个示例中，我们看到，首先定义一个字符串变量 strData，并给 strData 赋值，然后用 strData.Length 得到该字符串的长度。截取字符串的一部分用 Substring 这个方法 (Method) 可以得到字符串的某一部分。我们按如下步骤作个示例，演示 Substring 的用法。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 StringSplit，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnSplit，将其 Text 属性设为 Split。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnSplit_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnSplit.ClickEnd Sub在其间加入如下代码：Declare variableDim strData As StringGet the text from the TextBoxstrData = I like /html and woyouxian.Display the first three charactersMessageBox.Show(strData.Substring(0, 3), “Strings”)Display the middle three charactersMessageBox.Show(strData.Substring(3, 3), “Strings”)Display the substring without first 6 charactersMessageBox.Show(strData.Substring(6), “Strings”)代码中的 strData.Substring(0, 3) 表示从第0 个字符串算起，取后面的 3 个字符，即第 1，2， 3 个字符。代码中的 strData.Substring(3, 3) 表示从第3 个字符算起，取后面的 3 个字符，即第 4， 5，6个字符。代码中的 strData.Substring(6) 表示从第 6 个字符算起，取后面的所有字符。替换字符串的某一部分用 Replace 这个方法可以替换字符串的某一部分。比如：strNewData = strData.Replace (/html, )表示将变量 strData 字符串中将所有 /html 替换成 ，将替换后的值赋给变量 strNewData。Replace 方法有两个参数，前一个参数表示要被替换掉的字符串，后一个参数表示用来替换的字符串。我们做个示例演示一下 Replace 方法的用法。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 StringReplace，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnReplace，将其 Text 属性设为 Replace。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnReplace_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnReplace.ClickEnd Sub在其间加入如下代码：Dim strData As StringDim strNewData As StringstrData = I like /html and /html and woyouxian.strNewData = strData.Replace(/html, )MessageBox.Show(strNewData, Strings)选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。会弹出一个消息框，消息框中你会看到 /html 被替换成了 。按确认 (OK) 即可关闭消息框。数据类型中日期的使用日期 (Date) 也是一种常用的数据类型 (Data Type)。Date 可包含年月日小时分钟秒的信息。日期的大小范围是从 0001 年 1 月 1 日到 9999 年 12 月 31 日。日期的缺省值是 0001 年 1 月 1 日 0:00:00。如何表示日期在表示日期时，你必须用 # 将日期围起来。如下：theDate = #12/2/2006 2:10:00 PM#上面这句代码表示将一个 2006 年 12 月 2 日下午 2 点 10 分的日期值赋给 theDate 这个变量。注意你必须以 m/d/yyyy 的格式表示日期，不管你计算机上的区域和日期如何设置 (Control Panel 中 Regional and Language Options 里可设) 。这样的显示是为了避免程序出错。比如你在程序中用 #3/4/1998# 表示 1998 年 3 月 4 日，假使将你这个程序装在其它机器上，而这台机器上的日期设置却是 dd/mm/yyyy，那你这个日期表示就变成了 1998 年 4 月 3 日。我们再将你的程序装在另外一个机器上，该机器上的日期设置是 yyyy/mm/dd，结果就变成了 0003 年 4 月 1998 日，这是个无效日期，会导致程序编译错误。这里稍微解释一下刚才所用日期格式的表示，m 表示月份，d 表示日期，y 表示年份。我们做个简单示例，演示一下如何表示日期。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 ShowDate，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnShow，将其 Text 属性设为 Show。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnShow_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnShow.ClickEnd Sub在其间加入如下代码：Declare variableDim theDate As DateSet the date valuetheDate = #12/2/2006 2:10:00 PM#Display the resultsMessageBox.Show(theDate, Show Date)选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。会弹出一个消息框，消息框中显示了所赋值的日期。按确认 (OK) 即可关闭消息框。如何表示当前日期用 Now 可以表示当前日期。将上面的示例修改一下，将theDate = #12/2/2006 2:10:00 PM#改成theDate = Now便可以得到当前日期。这个日期是你程序所运行的机器上的当前日期。如何分别得到日期的年、月、日、小时、分钟、秒等信息用 Year 属性可以得到日期的年份值。用 Month 属性可以得到日期的月份值。用 Day 属性可以得到日期的日值。用 Hour 属性可以得到日期的小时值。用 Minute 属性可以得到日期的分钟值。用 Second 属性可以得到日期的秒值。用 DayOfWeek 属性可以知道该日期是一个星期的第几天。注意DayOfWeek 从 0 算起，星期天用 0 表示，星期一用 1 表示，依次类推，星期六用 6 表示。用 DayOfYear 属性可以知道该日期是一年的第几天。下面一个示例，演示了上述属性的用法。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 ShowDateProp，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnShow，将其 Text 属性设为 Show。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnShow_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnShow.ClickEnd Sub在其间加入如下代码：Dim theDate As Date = NowDim intYear As Integer = theDate.YearDim intMonth As Integer = theDate.MonthDim intDay As Integer = theDate.DayDim intHour As Integer = theDate.HourDim intMin As Integer = theDate.MinuteDim intSec As Integer = theDate.SecondDim intDayWeek As Integer = theDate.DayOfWeekDim intDayYear As Integer = theDate.DayOfYearMessageBox.Show(theDate, show date)MessageBox.Show(Year: & intYear, show date properties)MessageBox.Show(Month: & intMonth, show date properties)MessageBox.Show(Day: & intDay, show date properties)MessageBox.Show(Hour: & intHour, show date properties)MessageBox.Show(Minute: & intMin, show date properties)MessageBox.Show(Second: & intSec, show date properties)MessageBox.Show(Day of Week: & intDayWeek, show date properties)MessageBox.Show(Day of Year: & intDayYear, show date properties)选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。运行以后，会弹出一系列对话框，分别显示当前日期的年、月、日、小时、分钟、秒的部分，还会显示该日期是一个星期的第几天，是一年的第几天。如何对日期进行加减运算用 AddYears 方法可以为指定日期加减年数。用 AddMonths 方法可以为指定日期加减月数。用 AddDays 方法可以为指定日期加减日数。用 AddHours 方法可以为指定日期加减小时数。用 AddMinutes 方法可以为指定日期加减分钟数。用 AddSeconds 方法可以为指定日期加减秒数。上述方法的用法是一样的，只不过加减的部分不一样。我们选 AddDays 作示例，其它方法的使用参照这个示例就行了。打开 Visual Studio。在文件 (File) 菜单上，单击新建项目 (New Project)。 在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 ShowDateMethod，再单击确定 (OK)。单击工具箱 (Toolbox) 里的按钮 (Button) 控件，按住鼠标将其拖放到 Form 1 上。然后在属性 (Properties) 窗口内将其 Name 属性改为 btnShow，将其 Text 属性设为 Show。然后双击该按钮，出现 Click 事件处理程序头尾两行代码，如下： Private Sub btnShow_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnShow.ClickEnd Sub在其间加入如下代码：Dim theDate As Date = Nowdim newDate As Date newDate = theDate.AddDays(50)MessageBox.Show(newDate, show new date)选择调试 (Debug) 菜单中的 开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。你会看到弹出对话框里的日期比当前日期多加了50天。AddDays () 里的参数可以是整数也可以是负数。比如：AddDays(50) 表示加 50 天AddDays(-50) 表示