189 8069 5689
模块：相当于全局级变量。
创新互联专注于建平企业网站建设,自适应网站建设,商城网站定制开发。建平网站建设公司,为建平等地区提供建站服务。全流程按需设计，专业设计，全程项目跟踪，创新互联专业和态度为您提供的服务
类：可以实例化，继承等。
对于你这样的初学者来说，可以视作 模块变量=类的public shared变量。
最好的方法是：项目-添加-类-粘贴代码。
模块相当于一堆公开方法的集合，类相当于你平时拖的控件，在vb6里面你想自己写个控件是很复杂的，而vb.net里只需要继承自现有控件即可。就按钮来说同样是按钮类，你可以拖若干个到界面上，也就是存在若干实例或对象，而模块，通常只有一个对吧，模块相当于c#的静态类。
就是用户自定义的一种类型，用来把一组无规律却又相关的数据组合在一起，一般为对象，用户可以自定义该对象的属性和方法等等。
举个例子可以定义一个名为“学生”的类，里面有“学号”、“姓名”、“身高”、“体重”等属性。定义完之后，在其他的地方就可以赋值了了，比如在模块里写
Sub Test()
Dim 小明 As New 学生
小明.身高 = 180
Debug.Print 小明.身高
End Sub
立即窗口就会显示出180
再比如定义一个叫“三角形”的类，里面有三条边a，b，c是属性，还有一个函数s是方法，就是通过三条边长求这个三角形的面积，那么当你在给三条边赋值之后就可以直接通过“三角形.s”来求出他的面积。
类的class对象有两个事件
Initialize会在New一个该类实例的时候触发，一般用来赋各属性的默认值
Terminate会在该类的实例被释放的时候触发
类还有更复杂更高级的用法，你需要去看VB书进行系统的学习
不熟悉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