VBScript

VBScriptでダックタイピングしてみる

VBScript（VBS）でダックタイピングしてみた。
基本すべての変数がVariant型なので、他の動的型付け言語と同じように簡単にできる。
ただ、クラスの継承ができないので動的ポリモーフィズムはできないっぽい。

Class Dog
    Public Function voice()
        voice = "wan!"
    End Function
End Class

Class Cat
    Public Function voice()
        voice = "nyaa!"
    End Function
End Class

Class Mouse
    Public Function voice()
        voice = "chuu!"
    End Function
End Class

Sub cry(animal)
    MsgBox animal.voice()
End Sub

Set d = new Dog
Set c = new Cat
Set m = new Mouse

Call cry(d)
Call cry(c)
Call cry(m)

[ 戻る ]