13518219792
1.不正确
为太平等地区用户提供了全套网页设计制作服务，及太平网站建设行业解决方案。主营业务为网站建设、做网站、太平网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
Dim abc As myClass，定义一个可以引用myClass类型对象的变量abc。这个abc变量存在于栈上。
abc=New myClass。New myClass创建myClass实例对象，这个对象存在于托管堆上。然后（同时）让abc引用（指向）这个对象。
abc变量在栈上，而对象在托管堆上。
abc储存的是对象的地址，而不是对象本身。
看下面的代码
Dim a As myClass,b As myClass,c As myClass
a=New myClass
b=a
c=a
整个过程中只创建了一个myClass对象，位于托管堆上。
三个myClass类型的变量a、b、c位于栈上，都指向了这一个myClass对象
2.类的成员分 实例成员 和 静态成员
实例成员 必须在实例对象上调用
静态成员 可以直接调用，不需要实例对象。
dim textbox_1 as New textbox
只是定义了一个textbox类型的变量
dim textbox_1 as New textbox
定义了一个textbox类型的变量并将其实例化
这个一般是一个Form类的构造函数。
MyBase.New ( )是调用父类的构造函数，InitializeComponent ( )是调用自己的InitializeComponent 方法。一般你在VS里拖界面，VS会自动帮你生成这个方法的实现，里面是用代码实现你拖出来的界面布局。
new 就是实例化，比如实例化一个类，你才能访问，，
好比，你是张三，把你的地址告诉了我，我在能找到你家在哪，这个过程就可以称为实例化。
使用New关键字建立一个新的对象和用它属的类来定义是一样的。New关键字可以被用作来建立一个窗体、类模块以及集合的实例。用户在设计的时候建立的每一个窗体都是一个类。New关键字能够用来建立一个类的实例。
可以通过以下步骤来建立一个类的实例：
(1)在窗体上画一个按钮和几个其他的控件。
(2)按钮的Click事件过程加入以下代码：
Dim x AS New Form1
x.Show
(3)运行程序，并且点击几次按钮，把最前面的窗体移开，因为窗体是一个有可视界面的类，此时可以看见有很多窗体的拷贝，每一个窗体具有相同的控件，并且出现在一个地方。
(4)将列代码加到按钮的click事件过程中：
Dim f As Form1
f=New Form1
f.text="hello"
f.Show
使用New关键字可以从类模块中定义的类中建立一个新的集合和对象，要知道它们怎样工作，可以参考下面的例子：
(1)建立一个新的工程，并且在一个名为Form1的窗体上画一个按钮控件。
(2)在Project(项目)菜单下，选择"Add Class"给工程添加一个类
(3)把新的类命名为ShowMe.VB
(4)在该新类中加入如下代码：
PUblic Class ShowMe
Sub ShowFrm()
Dim frmNew As Form1
frmNew=New Form1
frmNew.Show()
frmNew.WindowState=1
End Sub
End Class
(5)在Button1_click事件的过程中加入如下代码：Protected Sub Button1_Click(Byval sender As System.Object,_ Byval AS System.EventArgs) Dim clsNew As New ShowMe() clsNew.ShowFrm()End Sub
运行程序，并且点击几次按钮，将看见每创建一个ShowMe类的新的实例时，在桌面上有一个最小化的窗体的图标。
New关键字只能用来建立一个类的对象，不能建立一个基于基本的数据类型的对象，例如Integer。而且，不能建立一个基于一个具体对象的对象。例如，下面的代码根据一个名为SomeClass的类，建立了一个名为Objx的对象，面后又错误地企图根据对象Objx再建立一个其他的对象：
Dim Objx As New SomeClass()
Dim Objx AS New Objx()
以上代码是非法的。
呵呵##~
可以,但是变量不能用ClassA或B来定义,可以用Object,或ClassA,ClassB的基类,,使用类的成员时,再把变量类型转换成相应的类
Dim Str(20) As String '20数据元素
Dim Text(20) As TextBox
Dim n As Integer = 0
For Each i In Text
i = New TextBox '实例化
i.Location = New Point(50, n * 20)
Me.Controls.Add(i) '添加窗体
Dim Index As Integer = i.TabIndex '没index属性
Str(n) = Index
i.Text = Str(n) 'str数组值赋值给文本框
n += 1
Next
