くだらなくてすいません。

ナベアツのいつものネタの応用編に新しいものが追加されていた。

３の倍数と３の数字がつくときにアホになって、

５の倍数のとき犬っぽくなっていた。

「ナベアツ」の検索結果 – NAL-6295の舌先三寸

５の倍数のとき犬っぽくなりますが、ついでに末尾が５のときは、ゴフッと吼えるようになっています。

Dim 読み上げリスト = From 今の数字 In Enumerable.Range(1, 40) _
Let アホになる = (今の数字 Mod 3) = 0 OrElse 今の数字.ToString().IndexOf("3") >= 0 _
Let 犬になる = (今の数字 Mod 5) = 0 _
Select _
IIf(アホになる, "アホ", "") & _
IIf(犬になる, IIf((今の数字 Mod 10) = 5, "ゴフッ", "ワオーン"), "") & _
IIf(アホになる OrElse 犬になる, "", 今の数字.ToString())
For Each 読み上げる値 In 読み上げリスト
Console.WriteLine(読み上げる値)
Next