VB.NET 的新特点：变量，类型，数组，属性(2)
在编译时默认使用Option Strict是Visual Basic.NET的另一个特点。使用了Option Strict后，缩小转换就被禁止了，因为它可能会导致数据或精度的丢失。请看下面的例子：
Dim x As Double
x = 20.1
Dim y As Integer
implicit narrowing conversion
y = x doesnt compile under Option Strict
这段代码在Visual Basic 6.0可以被编译通过，但在Visual Basic.NET中，如果Option Strict语句被使用，它就不能被编译通过。Option Strict的使用使得程序员必须对应该使用何种类型很清楚。
Dim x As Double
x = 20.1
Dim y As Integer
explicit narrowing conversion
y = CInt(x) compiles under Option Strict
另一个很大的变化是现在If语句被优化了。这代表了一个很有价值的最优化，而且现在当把代码移植到Visual Basic.NET时，理解这将如何影响基于Visual Basic 6.0的代码变得很重要。请看下面的代码：
If Function1() And Function2() Then
statement block
End If
如果Function1返回了False值，那需要执行Function2以决定是否要执行IfThen中的代码吗？很明显这是不需要的。然而早期版本的Visual Basic并没有像这样优化If语句，在任何情况下Function2都将被执行。VisualBasic.NET实现了优化，因此当Function1返回值为False时，Function2不会被执行。这是另一个使得基于VisualBasic 6.0的代码不能在Visual Basic.NET中正确执行的因素。
现在我想谈谈这个语言中在类型安全方面的另一个改进。你应该注意到，如果Function1或Function2返回的值不是Boolean，那么前面的代码不能通过编译。由于类型安全的级别更高了，你不可以用integer类型的值进行条件测试了。比如下面的这段代码，在Visual Basic 6.0中是被经常使用的，但在Visual Basic.NET中却不能通过编译。
Dim x As Integer
set x to 0 for false or anything else for true
If x Then
execute statement block
End If
这种由Option Strict带来的新的类型安全级别使得你在使用If和Doloops语句时，必须使用Boolean类型的值，而不能用其它类型的值。
在使用诸如Not、 And、 Or、 Xor等的逻辑比较符时，你也被限制必须使用Boolean类型的值来输入输出。这与在以前版本的VisualBasic中这些比较符既可以用于逻辑比较又可以用于按位比较不同。下面这段代码在VisualBasic 6.0中能正常运行，但在Visual Basic .NET中却不能通过编译。
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = 3
Y = 6
z = x And y doesnt compile
Visual Basic.NET提供了四种新的按位比较运算符：BitNot,BitAnd, BitOr, 和BitXor。这些运算符允许你在类型安全的方式下实行按位比较运算。比如，你可以用这些运算符中的一个对两个integer值的每一位来实现OR运算，还可以实现位掩码。下面是使用BitOr和BitAnd的一个例子：
Dim x As Integer = 3
Dim y As Integer = 6
Dim z As Integer
OR bits together
z = x BitOr y z now equals 7
AND to find intersection of bits
z = x BitAnd y z now equal 2
设计数组
声明和使用数组的基本语法发生了很大的变化。首先，数组的下界别成了零。你不可以声明一个下界为1的数组。因此，OptionBase语句不再被VisualBasic .NET支持。
另外，你在声明一个数组时必须用它的元素个数，而不是它的上界来初始化。这儿是一个例子：
declare an array with 3 elements from 0 to 2
Dim array1(3) As Integer
array1(0) = 2
array1(1) = 4
array1(2) = 8
上一段声明如果在Visual Basic 6.0中被使用，这个数组将有四个元素，下标从0到3。而在VisualBasic.NET中，这个数组有三个元素，下标从0到2。在VisualBasic .NET中，如果你的代码企图访问下标为3的数组元素，将引起运行期例外。比如：
index out of range exception
array1(3) = 16
Visual Basic.NET为初始化数组提供了一种新的语法。你可以只用一行代码完成数组的声明和初始化。就像这样：
new array initialization syntax
Dim array1 As Integer() = {2, 4, 8}
在Visual Basic的早期版本中，你可以用For Each循环遍历一个数组。
Dim x As Integer
For Each x In array1
Console.WriteLine(x)
Next
同时，你也可以用For循环和数组长度来遍历一个数组。比如：
Dim i As Integer
For i = 0 To (array1.Length - 1)
Console.WriteLine(array1(i))
补充：软件开发 , Vb ,
- 更多VB疑问解答：
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
- 和难缠客户的那些事儿
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
