大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Public Class Name1
铁锋网站建设公司成都创新互联,铁锋网站设计制作,有大型网站制作公司丰富经验。已为铁锋上千多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱,请找那个售后服务好的铁锋做网站的公司定做!
Public Function fun1()
...
End Function
....
End Class
不熟悉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
Class WorkerType
Dim No As Integer
Dim Name As String
Dim Pay As Single
End Class
你是指……
Dim 变量名 as 类型 = new 类型(构造参数)
这样么
或者是
Dim 变量名 as new 类型(构造参数)
这样?
还是说
Class 类名
End Class
这样?