VB.NET 的新特点：变量，类型，数组，属性

haidong

<p ><ccid_nobr>在MSDN杂志2001年二月版中我写了一篇文章，介绍了新的Microsoft.NET架构和用Visual Basic .NET在这个平台下开发软件所要遵循的规则。在这篇文章中，我介绍了Microsoft彻底改造开发平台的动力以及对VisualBasic语言做重大修改的根本原因。现在我介绍的东西将建立在这个话题的基础之上，所以我假定你已经读过VisualBasic.NET: New Programming Model and Language Enhancements Boost Development Power这篇文章,或者已经对.NET平台有了较深的理解.<br/><br/>我在二月份的文章中更多的是总体介绍了commonlanguage runtime(CLR)，现在我将着重讨论VisualBasic .NET编程方面的新特点。一旦你学会如何运用这些新的特点,我肯定你也会认为VisualBasic .Net是比以前版本更好的工具。不过，我不可能在一个专栏中涉及所有的新特点，所以这个月的专栏将是一个系列的开端，这个专栏系列将持续几个月。<br/><br/>如果你以前经常使用Visual Basic的话，你会发现VisualBasic .Net有点熟悉，又有一点陌生。在可以利用许多以前就具备的技巧和知识的同时，仍然有很多东西要学。<br/><br/>许多公司花费了大笔的资金投资于Visual Basic6.0编写的软件，这些公司将面临如何处理这些已存在的软件的问题。我在介绍Visual Basic .NET新特点的同时，将会介绍影响把代码移植到Visual Basic .NET的关键所在。正如你将看到的，会有很多问题要考虑。随着编程语言变得更加一致、强大和友好，你会发现把Visual Basic 6.0项目改写成Visual Basic .NET项目需要很大的努力和技术。如果顺利的话，你将有幸在不远的将来从零开始编写一个VisualBasic .NET的项目。<br/><br/><b>新的便利：</b><br/>我首先将介绍用一行代码实现声明并初始化变量的新语法。尽管许多初学者会认为这种语法是理所当然的，但实际上那些已习惯于在Visual Basic用两行代码来声明和初始化变量的程序员会对此感到很欣慰。<br/><br/>这儿是利用了Visual Basic .NET语法优势的三个例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Integer=10<br/>Dim obj1 As Class1=New Class1<br/>Dim obj2 As New Class2<br/></td></tr></table><br/>请注意，与前两行不一样，最后一行用的是在Visual Basic 6.0中合法的语法，它在Visual Basic .NET中同样是合法的。然而，值得注意的是，这儿的As New语句在Visual Basic .NET and Visual Basic 6.0中的处理是不同的，许多有经验的程序员反对使用As New语句，因为它将导致初始化的延迟，进而导致较低的执行效率，并给调试程序带来了许多困难。<br/><br/>好消息是As New语法在Visual Basic .NET中并不会造成初始化的延迟，因此不会导致相同的问题。在看前面的例子时，你应该注意第三行，它用了As New语句，但与前面几行具有一样的执行效率。当你在Visual Basic .NET中使用As New语句时，这个对象将在执行下一行之前被创建、初始化，并指派给你的变量。<br/><br/>这种方便的初始化语法也可以被用在类或结构的定义中。正如你想得那样，语法应该是这样的：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Class Class1<br/>rivate Field1 As Integer=10<br/>ublic Field2 As Class1=New Class1<br/>End Class<br/></td></tr></table><br/>另一点值得注意的是，当你在同一行声明几个变量时，他们应该是相同类型的变量，请看这个例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x, y, z As Integer</td></tr></table><br/>三个变量都被声明成integer类型，你不再需要担心前两个变量偶然会被当作variant类型。实际上，你不用担心有什么变量会被当作variant类型处理，因为variant类型不再被CLR编程模型所支持。现在的通用类型是System.Object.<br/>在Visual Basic .NET新增加的语法中，我最喜欢的一点是现在函数可以用Return来向它的调用者返回一个值。请看下面的例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Function MyFunction() As String<br/>Return &quot;This is my return value&quot;<br/>End Function</td></tr></table><br/>这个例子和用其他语言（比如C语言）一样，Return语句将结束函数的执行，并把控制权返回给调用者。我觉得使用Return语句与我们在VisualBasic的早期版本中的做法相比要方便得多。正如你记得的，在以前的版本中，要返回给调用者的值必须在函数的内部被赋给函数名。由于在VisualBasic .NET中使用了Return语句，你可以很容易地实现更改函数名或把代码从一个函数中复制、粘贴到另一个函数，而不需要搜索函数的内容并替换原来的函数名。<br/><br/><b>消除矛盾</b><br/>正如我在二月份的文章中提到的那样，在把一个对象指派给一个变量时，Visual Basic .NET既不需要，也不允许你用Set这个关键字。VisualBasic 6.0 和Visual Basic .NET的编译器有许多方面不一样，这就是其中之一。请看下面的代码：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim obj1, obj2, obj3, obj4 As Class1<br/>obj1=New Class1<br/>obj2=obj1<br/>Set obj3=New Class1<br/>Set obj4=obj3<br/></td></tr></table><br/>第二行和第三行代码在Visual Basic .NET中是合法的。但在VisualBasic 6.0中编译时，它们将导致运行期错误。第四行和第五行的代码在VisualBasic 6.0中是合法的，但在Visual Basic .NET中却不能通过编译。正如你想象的，在把代码从VisualBasic 6.0移植到Visual Basic.NET时，需要特别注意对Set语句的改写。<br/><br/>在用Visual Basic .NET编写了六个多月的程序后，我发现自己仍然会使用Set语句，老习惯是不容易被改掉的。而且由于工作的关系，有好几次我得在同一天即用VisualBasic.NET，又用Visual Basic 6.0编写程序。不停地来回往复真地很困难。<br/><br/>在参数传递中括号的使用也发生了变化，这也给代码移植增加了困难。你们中的许多人在经过多年的编程之后已经习惯了调用函数和子程序的规则和特点。VisualBasic.NET小组觉得应该实现调用方法的一致性。<br/><br/>在Visual Basic. NET中，参数传递的规则很简单。当你调用一个函数或子程序并需要传递一个或多个参数时,必须用小括号把参数括起来。当调用一个不需要参数的函数或子程序时，小括号可以被省略。你不得不承认，与早期版本的VisualBasic中的规则相比，这些规则更直截了当，也更容易去学。<br/><br/>值得注意另一点是参数传递的默认方式也改变了。比如，当一个方法被定义成下面这种样式时，参数是如何被传给调用者的。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Sub Method1(Param1 As Integer)<br/>' implementation<br/>End Sub</td></tr></table><br/>在Visual Basic以前的版本中，Param1是引用传递的。也就是说在执行Method1时，改变这个integer类型的参数将导致调用者中相应的实际参数的值的改变。而在VisualBasic.NET中，默认的参数传递方式变成了值传递。也就是说执行Method1时，只是值被传递给了Param1，并且在Method1中改变Parame1的值不会改变调用者中相应的实际参数的值。很明显，在把VisualBasic 6.0中代码移植到Visual Basic.NET，这种参数传递默认方式的改变将破坏一些代码的语义。<br/><br/>请注意，在上一个例子中，被传递到参数的是一个值而不是地址。基本类型比如Byte,Integer,Double, and Boolean都是值类型。用户定义的枚举和结构类型也是值类型。在以值传递方式传递时，变量总是被复制。<br/><br/>当你传递的参数是基于类时，情况就不同了。基于类的参数是引用类型而不是值类型。它们被用来传递对象的引用。如果一个调用者传递了一个对象的引用给一个用了值传递方式的方法，在这个方法的实现中，对象的状态可能被改变。这种状态的改变将反映到调用者中。因此，无论你把参数声明成值传递还是引用传递，注意值类型还是引用类型之间的区别是很重要的。<br/><br/>尽管在方法中仍然可以使用可选参数，这仍是值得注意的地方。与VisualBasic 6.0不同，使用可选参数需要一个默认值。在同一行中，Visual Basic.NET不支持IsMissing函数，也就是说你区分不出一个省略了参数的调用和一个给参数传了默认值的调用。<br/><br/>如果你考虑在方法中使用可选参数，你应该考虑重载方法。一旦你知道了重载方法的好处和语法，你也许就会停止在方法中使用可选参数。<br/><br/><b>更高级别的类型保护</b><br/>许多使用Visual Basic的开发者希望在每一个VisualBasic的源文件的开头能有一个Option Explicit语句。Option Explicit的应用可以区别对待真正的开发者和临时用户。和以前的版本不同，Visual Basic.NET缺省就使用Option Explicit。<br/>在编译时默认使用Option Strict是Visual Basic.NET的另一个特点。使用了Option Strict后，缩小转换就被禁止了，因为它可能会导致数据或精度的丢失。请看下面的例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Double<br/>x=20.1<br/>Dim y As Integer<br/>' implicit narrowing conversion<br/>y=x ' doesn't compile under Option Strict</td></tr></table><br/>这段代码在Visual Basic 6.0可以被编译通过，但在Visual Basic.NET中，如果Option Strict语句被使用，它就不能被编译通过。Option Strict的使用使得程序员必须对应该使用何种类型很清楚。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Double<br/>x=20.1<br/>Dim y As Integer<br/>' explicit narrowing conversion<br/>y=CInt(x) ' compiles under Option Strict</td></tr></table><br/>另一个很大的变化是现在If语句被优化了。这代表了一个很有价值的最优化，而且现在当把代码移植到Visual Basic.NET时，理解这将如何影响基于Visual Basic 6.0的代码变得很重要。请看下面的代码：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">If Function1() And Function2() Then<br/>' statement block<br/>End If</td></tr></table><br/>如果Function1返回了False值，那需要执行Function2以决定是否要执行IfThen中的代码吗？很明显这是不需要的。然而早期版本的Visual Basic并没有像这样优化If语句，在任何情况下Function2都将被执行。VisualBasic.NET实现了优化，因此当Function1返回值为False时，Function2不会被执行。这是另一个使得基于VisualBasic 6.0的代码不能在Visual Basic.NET中正确执行的因素。<br/><br/>现在我想谈谈这个语言中在类型安全方面的另一个改进。你应该注意到，如果Function1或Function2返回的值不是Boolean，那么前面的代码不能通过编译。由于类型安全的级别更高了，你不可以用integer类型的值进行条件测试了。比如下面的这段代码，在Visual Basic 6.0中是被经常使用的，但在Visual Basic.NET中却不能通过编译。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Integer<br/>' set x to 0 for false or anything else for true<br/>If x Then<br/>' execute statement block<br/>End If</td></tr></table><br/>这种由Option Strict带来的新的类型安全级别使得你在使用If和Doloops语句时，必须使用Boolean类型的值，而不能用其它类型的值。<br/>在使用诸如Not、 And、 Or、 Xor等的逻辑比较符时，你也被限制必须使用Boolean类型的值来输入输出。这与在以前版本的VisualBasic中这些比较符既可以用于逻辑比较又可以用于按位比较不同。下面这段代码在VisualBasic 6.0中能正常运行，但在Visual Basic .NET中却不能通过编译。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Integer<br/>Dim y As Integer<br/>Dim z As Integer<br/>x=3<br/>Y=6<br/>z=x And y ' doesn't compile</td></tr></table><br/>Visual Basic.NET提供了四种新的按位比较运算符：BitNot,BitAnd, BitOr, 和BitXor。这些运算符允许你在类型安全的方式下实行按位比较运算。比如，你可以用这些运算符中的一个对两个integer值的每一位来实现OR运算，还可以实现位掩码。下面是使用BitOr和BitAnd的一个例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Integer=3<br/>Dim y As Integer=6<br/>Dim z As Integer<br/>' OR bits together<br/>z=x BitOr y ' z now equals 7<br/>' AND to find intersection of bits<br/>z=x BitAnd y ' z now equal 2</td></tr></table><br/><b>设计数组</b><br/>声明和使用数组的基本语法发生了很大的变化。首先，数组的下界别成了零。你不可以声明一个下界为1的数组。因此，OptionBase语句不再被VisualBasic .NET支持。<br/><br/>另外，你在声明一个数组时必须用它的元素个数，而不是它的上界来初始化。这儿是一个例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">' declare an array with 3 elements from 0to 2<br/>Dim array1(3) As Integer<br/>array1(0)=2<br/>array1(1)=4<br/>array1(2)=8</td></tr></table><br/>上一段声明如果在Visual Basic 6.0中被使用，这个数组将有四个元素，下标从0到3。而在VisualBasic.NET中，这个数组有三个元素，下标从0到2。在VisualBasic .NET中，如果你的代码企图访问下标为3的数组元素，将引起运行期例外。比如：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">' index out of range exception<br/>array1(3)=16</td></tr></table><br/>Visual Basic.NET为初始化数组提供了一种新的语法。你可以只用一行代码完成数组的声明和初始化。就像这样：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">new array initialization syntax<br/>Dim array1 As Integer()={2, 4, 8}</td></tr></table>'<br/>在Visual Basic的早期版本中，你可以用For Each循环遍历一个数组。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim x As Integer<br/>For Each x In array1<br/>Console.WriteLine(x)<br/>Next</td></tr></table><br/>同时，你也可以用For循环和数组长度来遍历一个数组。比如：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim i As Integer<br/>For i=0 To (array1.Length - 1)<br/>Console.WriteLine(array1(i))<br/>Next i</td></tr></table><br/>CLR 和Visual Basic.NET还支持多维数组。比如，当你想要一个二维数组时，你可以用下面三个技术中的一个来定义它：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim array1(2, 2) As Integer<br/>Dim array2 As Integer(,)<br/>Redim array2(2, 2)<br/>Dim array3 As Integer(,)={ {12, 24}, {10,20} }</td></tr></table><br/>使用数组时，你应该知道，不仅仅是语法变了，在运行时被处理的方式也发生了变化。在CLR中，数组被分配的地址空间总是在堆中。当你向一个方法传递数组类型的参数时，你使用的引用传递而不是值传递。<br/><br/>这儿是互相传递数组引用的三个方法：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim array1(2, 2) As Integer<br/>Dim array2 As Integer(,)<br/>Redim array2(2, 2)<br/>Dim array3 As Integer(,)={ {12, 24}, {10,20} }</td></tr></table><br/>Method1在两个方向同时传递了数组引用，这一般用来向调用者返回数组引用。<br/>Method2 和 Method3 从调用者向方法的实现中传递了数组引用。请注意Method2的参数被声明一维数组，而在Method3中参数被声明成了二维数组。<br/>每一个数组对象继承了系统支持的类System.Array的核心细节实现和公共成员。你可以参考在.NET platform SDK中有关System.Array的文档。这个类提供了面向一般数组的任务的函数，比如清空、复制、克隆、搜索和排序。这儿是使用System.Array类提供的一些方法的例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim array1 As Integer()={4, 2, 8, 1}<br/>Dim array2 As Integer()<br/>' cloning an array<br/>array2=CType(array1.Clone(), Integer())<br/>' clearing an array<br/>System.Array.Clear(array1, 0, array1.Length)<br/>' sorting an array<br/>System.Array.Sort(array2)<br/>' sorting an array in reverse order<br/>System.Array.Reverse(array2)</td></tr></table><br/>请注意，你可以对任何基于IComparable界面实现的数组使用排序操作。CLR的核心类型，比如Integer,Double, String, and Date，都被设计成实现IComparable的了。如果你想把数组按你想要的方式进行排序，你只要在类和结构中实现IComparable接口就可以了。<br/><br/><b>属性的新语法：</b><br/>我相信你对在早期版本的Visual Basic如何定义和使用属性很熟悉。尽管使用属性的原因是相同的，但定义属性的语法已经变了。属性现在必须用包括Set块或Get块的属性构造器来定义。<br/><br/>下面是一个有private字段和public属性的类的例子：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Class Class1<br/>' private field<br/>rivate m_Name As String<br/>' public property<br/>ublic Property Name As String<br/>Get<br/>Return m_Name<br/>End Get<br/>Set<br/>If Value &lt;&gt; &quot;&quot; Then ' Valueis intrinsic variable<br/>m_Name=Value<br/>End If<br/>End Set<br/>End Property<br/>End Class</td></tr></table><br/>请注意Set块中包含了内部变量Value。VisualBasic.NET用这个内部变量向你在Set块中的属性实现传递了由客户制定的属性值。另外，在Visual Basic.NET中，程序员不再会有何时应使用Set属性，而何时应使用Let属性的困惑了。<br/><br/>一个属性一定是ReadWrite, ReadOnly, 或 WriteOnly的。上面的例子演示了ReadWrite的属性。下面的例子将演示如何创建ReadOnly和 WriteOnly的属性。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">' ReadOnly property has Get but no Set<br/>ublic ReadOnly Property FullName as String<br/>Get<br/>Return m_FirstName &amp; &quot; &quot; &amp;m_LastName<br/>End Get<br/>End Property<br/>' WriteOnly property has Set but no Get<br/>ublic WriteOnly Property Password as String<br/>Set<br/>m_Password=Value<br/>End Set<br/>End Property</td></tr></table><br/>请注意，当你省略了Get块或Set块时，你一定要使用ReadOnly或WriteOnly关键字<br/>索引属性和默认属性<br/><br/>一个属性可以被指定一个或多个索引。这可以使属性具有数组的特点。请看下面的类：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Class Class1<br/>rivate m_Names As String()={&quot;Ted&quot;,&quot;Fred&quot;, &quot;Jed&quot;}<br/>' an indexed property<br/>Readonly Property Item(Index As Integer)As String<br/>Get<br/>Return m_Names(Index)<br/>End Get<br/>End Property<br/>End Class</td></tr></table><br/>在客户端，你可以用下面的例子访问Item属性。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim obj As New Class1<br/>Dim s1 String<br/>s1=obj.Item(0)</td></tr></table><br/>如果把这个例子作进一步的改进，你可以把一个索引属性标记为类的默认属性。为了实现这一点，只要把Default关键字加到上一个例子中就可以了，就像这样：<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Default Readonly Property Item(Index As Integer)…</td></tr></table><br/>一旦你为一个索引属性标记了Default关键字，客户端的代码就可以省略属性的名字而使用对象引用，就像使用一个数组一样。<br/><table width="580" border="1" cellspacing="0" cellpadding="0" bordercolorlight="black" bordercolordark="#ffffff"><tr><td bgcolor="e6e6e6" class="code">Dim obj As New Class1<br/>Dim s1 String<br/>s1=obj(0)</td></tr></table><br/>请注意，对于默认属性有一个重要的限制，即非索引属性不可以被标记为默认属性。这个限制在Visual Basic.NET中体现了出来，因为你不可以用Set语句来指定一个对象引用。既然Set语句不再被Visual Basic.NET所支持，那么非索引的默认属性将导致无法解决的多义性问题。<br/><br/><b>小结</b><br/>正如你所见到的那样，在许多方面Visual Basic.NET都与它以前的版本不同。它具有更高的一致性和类型安全级别。另外，用VisualBasic.NET我们更容易写出控制性、可读性很高的代码。虽然它有时要求你习惯于那些编译时额外的检查，但它将在你测试和调试时，为你节约宝贵的时间。<br/><br/>好消息是Visual Basic已经被改成了一种更好、更强有力的语言。而坏消息是在Visual Basic 6.0下编写的软件需要做很多工作才可以被移植到Visual Basic.NET下。<br/><br/>尽管这个月的专栏涉及了许多Visual Basic基础语法方面的核心变化，但还有很多没有涉及。我还没有涉及迷人的面向对象的新特点，比如共享方法、方法重载、参数化构造器和继承。请等待下一期的专栏。<br/><br/>欢迎访问：微软开发者专栏（责任编辑 <ccid_nobr>尤北</ccid_nobr>）<p ></ccid_nobr><p align="center"></p></p>