vb怎么创建类？

创建类的语法如下：

Class name [ ( Of typelist ) ]

[ Inherits classname ]

[ Implements interfacenames ]

[ statements ]

End Class

举例：

Class bankAccount

Shared interestRate As Decimal

Private accountNumber As String

Private accountBalance As Decimal

Public holdOnAccount As Boolean = False

Public ReadOnly Property balance() As Decimal

Get

Return accountBalance

End Get

End Property

Public Sub postInterest()

accountBalance = accountBalance * (1 + interestRate)

End Sub

Public Sub postDeposit(ByVal amountIn As Decimal)

accountBalance = accountBalance + amountIn

End Sub

Public Sub postWithdrawal(ByVal amountOut As Decimal)

accountBalance = accountBalance - amountOut

End Sub

End Class

创建类的语法如下：Class name [ ( Of typelist ) ] [ Inherits classname ] [ Implements interfacenames ] [ statements ] End Class 举例：Class bankAccount Shared interestRate As Decimal Private accountNumber As String Private accountBalance As Decimal Public holdOnAccount As Boolean = False Public ReadOnly Property balance() As Decimal Get Return accountBalance End Get End Property Public Sub postInterest() accountBalance = accountBalance * (1 + interestRate) End Sub Public Sub postDeposit(ByVal amountIn As Decimal) accountBalance = accountBalance + amountIn End Sub Public Sub postWithdrawal(ByVal amountOut As Decimal) accountBalance = accountBalance - amountOut End SubEnd Class