powerboat.vb

来自「学习vb过程中老师讲过的所有案例！还有课程设计」· VB 代码 · 共 22 行

Public Class powerboat
    Inherits Boat
    Private numberegines As Integer
    Private fueltpye As String
    Public Property mnumberegines() As Integer
        Get
            Return numberegines
        End Get
        Set(ByVal Value As Integer)
            numberegines = Value
        End Set
    End Property
    Public Property mfueltpye() As Integer
        Get
            Return fueltpye
        End Get
        Set(ByVal Value As Integer)
            fueltpye = Value
        End Set
    End Property
End Class