13518219792
不熟悉VB,如有不妥的地方请包涵!
万年ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为成都创新互联公司的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：13518219792（备注：SSL证书合作）期待与您的合作！
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
声明类
新建一个工程，添加一个类模块，
在类模块中输入代码：
'定义类 myclass
option explicit
public sub msg()
msgbox "hello! "
end sub ********************简单起见，我只定义了一个方法
在form窗体中输入代码：
option explicit
dim classmy as myclass
Public Sub Form_Load()
Set classmy = New myclass ****生成myclass的一个对象
classmy.msg **************调用类的方法
End Sub
调用声明类：假如你的类的名字叫Editdata.vb。
将Editdata.vb添加入你新的工程，然后在看下Editdata的名字空间。要保证调用的地方能访问到这个类。
另外你这个类的Insert 方法是静态的吗？静态的你可以类名称后直接调用方法，如果不是静态你需要实例化一个EditData 类了
Dim mEditData as EditData =new EditData()
mEditData.Insert(Conn, SQLString)
第一个相当于 aa 就是Object的方法返回的那个实例。
第二个是实例化一个Object2类。
有些类的一些方法会返回一个结构或者什么类。那么可以用第一种方法，将 aa 做为对这个返回实例的引用。
第二种方法，是通过调用类或结构的初始化函数Sub New来实例化的。
哎，表达能力有限，也不晓得你明白了没。
