Excel VBAで素数 featuring イルカ

素数をイルカ君に数えてもらうことにした。

素数生成部分は別途クラス化。Assistantに動いてもらう箇所のみ掲載。



Public Sub PrimeNumbersCalmMeDown()

  

  Dim str As String

  Dim pg As New PrimeGenerator

  pg.max = 100

  pg.init

  

  str = str + pg.GetPrimeString(10)

  str = str + Chr(10) + "落ち着け… 素数を数えて落ち着くんだ…"

  str = str + pg.GetPrimeString(10)
  With Assistant

    .On = True

    .Visible = True

    .Animation = msoAnimationThinking

  End With

  With Assistant.NewBalloon

    .Text = str

    .Show

  End With
End Sub

もちろんメッセージは神父仕様。

冴子先生にも、教卓*1の裏で数えてもらうことに。

kkkkkkkk

Excel VBAで素数 featuring イルカ

関連（あまりしないけど）