素数をイルカ君に数えてもらうことにした。 素数生成部分は別途クラス化。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 .S
![Excel VBAで素数 featuring イルカ - kkkkkkkk](https://cdn-ak-scissors.b.st-hatena.com/image/square/969a0b0eefde177392f377337dfb32ef9209fe61/height=288;version=1;width=512/http%3A%2F%2Fstatic.flickr.com%2F63%2F171300675_c1992534e8.jpg)