とりこらぼ。

Learn from yesterday,
live for today,
hope for tomorrow.

目次

Blog 利用状況

ニュース

プロフィール

  • 名前:とりこびと
    とるに足らない人間です。

  • Wankuma MVP
    for '平々凡々'

Web Site

  • Memo(Of T)

もうひとつの Blog

広告っぽい

書庫

日記カテゴリ

にゃんこはにゃんこらしく、わんこはわんこらしく。

ネタ元→東方算程譚:オブジェクト指向におけるFizzBuzz問題

別にかわったことないんですけど参加することに意義があるんでした・・・っけ?w

Module Program

    Sub Main()

        Dim a As Animal

        a = New Dog
        a.Sound()
        a.SetCount(3)
        a.Sound()

        a = New Cat
        a.Sound()

    End Sub
End Module
Public MustInherit Class Animal

    Protected _count As Integer = 1

    Public MustOverride Sub Sound()

    Public Sub SetCount(ByVal count As Integer)

        Me._count = count

    End Sub

End Class
Imports System.Text

Public Class Cat
    Inherits Animal

    Public Overrides Sub Sound()

        Dim sb As New StringBuilder

        For i As Integer = 1 To Me._count

            sb.Append("ニャー")

        Next

        Console.WriteLine(sb.ToString)

    End Sub

End Class
Public Class Dog
    Inherits Animal

    Public Overrides Sub Sound()

        For i As Integer = 1 To Me._count

            Console.Write("わん")

        Next

        Console.WriteLine()

    End Sub

End Class

投稿日時 : 2007年11月9日 13:36

Feedback

# re: にゃんこはにゃんこらしく、わんこはわんこらしく。 2007/11/09 13:49 とりこびと

いぢめてくらさい♪

お手柔らかに~☆

# re: にゃんこはにゃんこらしく、わんこはわんこらしく。 2007/11/09 14:45 επιστημη

鳴き数"だけ"をAnimalに置いた真意を知りたし。

# re: にゃんこはにゃんこらしく、わんこはわんこらしく。 2007/11/09 14:53 とりこびと

επιστημηさん、コメントありがとうございます。

>鳴き数"だけ"をAnimalに置いた真意を知りたし。

そっか、そこ'も'でした。

Public MustInherit Class Animal

  Public MustOverride Sub Sound()

  Public MustOverride Sub SetCount(ByVal count As Integer)

End Class


こうなっちゃうとインターフェイスなんでしょうけど、
Animalって名前でインターフェイスはイヤだし、切り出すとしても問題が、

>Animal, Cat, Dog を実装しなさい。

だし・・・w

# re: にゃんこはにゃんこらしく、わんこはわんこらしく。 2007/11/09 14:55 とりこびと

本文書き直したいけど、書き直すとコメント欄が意味不明になる・・・。

タイトル  
名前  
Url
コメント