VB.NET是基于.NET框架的完全对向对象的编程语言，而vb 6.0只是半面向对象的语言，使用vb.net可以编制出功能更加强大的windows程序。现在，我们把vb.net和vb 6.0做一下比较，看看vb.net对比vb 6.0有着什么样的特性和优点。 1.在vb 6.0中，创建对象的时候，需要等这个对象创建完毕后，再另外调用一个独立的方法对其进行初始化。在vb.net中， 可以利用构造函数为对象赋初值，这样就不需要进行烦琐的调用赋初值了。构造函数的使用，简化了编码的过程和出错的机会。 2.vb.net编写线程的能力比vb 6.0有很大的增强。 3.在vb 6.0中，需要首先声明一个变量，然后才能对其赋值，这样就需要写两行代码。在vb.net中，可以 使用初始化函数将这两个步骤合并在一行代码中完成，这个似乎微小的改进，提供了更少、更简单、更易于维护的代码。 4.vb.net基于.NET框架，开发者可以快速的可视化开发网络应用程序、网络服务、Windows应用程序和服务器端组件。 5.因为vb.net是基于.NET框架的，可以与其它.NET语言协同工作。 6.在vb.net中，通过Web窗体及ADO.NET，开发者可以快速开发可扩展的Web站点。 如果你能进一步学习vb.net,你会发现更多的新特性和优点
我们提供的服务有：成都网站制作、网站建设、微信公众号开发、网站优化、网站认证、甘德ssl等。为成百上千企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的甘德网站制作公司
Friend是用来在声明中定义访问级别的。
Public：公用，同一项目中任意位置的代码，引用该项目的其他项目，以及由该项目生成的任何程序集。
Protected：保护，同一个类内部或从该类派生的类中访问元素。
Friend：友元，从同一程序集内部访问元素，而不能从程序集外部访问。
Protected Friend：Protected 和 Friend 的联合，派生类或同一程序集内，或两者皆可。
Private：私有，仅可以从同一模块、类或结构内访问元素。
而所谓程序集的概念，可以理解为一个项目就是一个程序集，VS支持一个解决方案有多个项目，也就是一个解决方案多个程序集，比如项目A、项目B，项目A为启动项目。A要访问B首先要引用B，假设B里有个public的类myclass，类里有一个public的方法A和一个friend的方法B，按照前面说的访问级别的设定，myclass类的方法A在项目A中是可见的，而B却是不可访问的（Friend从且仅从同一程序集内部访问）。这就是区别。
P.S MSDN给的程序集的定义繁琐而难于理解，题主可以自行查阅一下。
VB.net：表达式中若运算符不只一种时，首先处理算术运算符，然后是比较运算符，最后是逻辑运算符。同一种运算符中，单目运算符的优先级高于双目运算符。优先级相同的运算符，按从左到右的顺序进行处理（求指运算除外）。
+,-,*,/,^,Mod 属于算术运算符
=,,,,=,= 属于比较运算符
And,Or,Not 这些属于逻辑运算符
所以，来看你的表达式：
首先进行算术运算： 100 + 10 * 3 = 100 + 30 = 130
12^2 = 144
然后进行比较运算： 130 144 ，比较运算结果为：True
最后进行逻辑运算： True And True ，结果为：True
所以表达式的最终结果为：True, 答案选A！
VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即
程序集
。
用bitarray类和BitVector32类实现
VB实现大致如下：
Imports System.Collections.Specialized
...
Dim bvData as BitVector32
Dim sec1 As BitVector32.Section = BitVector32.CreateSection(255)
Dim sec2 As BitVector32.Section = BitVector32.CreateSection(255,sec1)
Dim sec3 As BitVector32.Section = BitVector32.CreateSection(255,sec2)
Dim sec4 As BitVector32.Section = BitVector32.CreateSection(255,sec3)
Dim Buf(4096) as Byte 'receive byte size matched with DSP send data: 1024*4Byte
Dim recCount as Integer
Dim Data(1024) as long
....
For recCount = 0 To 1023
bvData(sec4) = buf(recByte*4)
bvData(sec3) = buf(recByte*4+1)
bvData(sec2) = buf(recByte*4+2)
bvData(sec1) = buf(recByte*4+3)
Data(recCount) = bvData.Data '这样数据肯定是-398
Next
....
