13518219792
dim本身就表示定义某一个类型的变量的。这个类型，包括简单的预定义类型，也包括自定义类型，比如类，数组等等所有类型，只要在一个项目中可见的类型都可以定义。
蓝田网站建设公司成都创新互联公司,蓝田网站设计制作，有大型网站制作公司丰富经验。已为蓝田上1000+提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱，请找那个售后服务好的蓝田做网站的公司定做！
使用new当然就是定义的时候实例化
这个类型，这时变量已有具体的内存对应。
类，类似于C里的结构体，但是可以做到继承、抽像等面向对象的特性。结构体和类都需要new来实例化。
你可以看一下面向对象编程方面的知识。
人类是一个类，你是人，我是人，都是人类的实例(instance)，或称对象(object)。一个类描述一类事物，描述这些事物所应具有的属性，如人有身长、体重、文化程度、性别、年龄、民族等。
一个对象是类的一个实例，它具有确定的属性，如张三(人的实例)身高180，体重70公斤，大学本科，男，21岁，汉族。
人类只有一个，人类的实例可以有无数个。
对象可以被创建和销毁，但类是无所不在的。
例如，桌子是一个类， 人们不断打造各种尺寸和风格(属性)的桌子(桌子的实例)，打造桌子， 又不断毁坏桌子，年复一年，旧的去了，新的又来，但桌子的概念没变，它是一个抽象的概念。应该称它为桌子类，以区别于打造的具体桌子。
不熟悉VB,如有不妥的地方请包涵!
Public Class Stack
Dim aryData() As Integer
Sub New(ByVal Num As Integer)
Dim aryData(Num) As Integer
End Sub
Function Pop() As Integer
If (aryData.Length = 0) Then
Return 0
Else
Dim a As Integer
a = aryData(aryData.Length)
aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)
Return a
End If
End Function
Sub Push(ByVal n As Integer)
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
aryData(i) = n
End
Else
Continue For
End If
Next
End Sub
Sub PrintStack()
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
End
Else
Print(aryData(i))
End If
Next
End Sub
End Class
