在勤生活１０８５日目

■今日の午前中にしていたこと
　最近、ネットの色々なサイトを見て、ＶＢＡに限らずプログラムを作るうえでの考え方、アルゴリズムの構築するうえでの考え方をよく勉強しているわたくし。ま、いわゆる頭の体操というヤツです(^^)。
その中で懐かしの世界のナベアツの持ちネタ「３の倍数と３のつく数字でアホになる！」をプログラムで表すと－。なんていかにもわたし好みな（笑）ネタがあったので、わたしもＶＢＡ（ＥＸＣＥＬのマクロ）でちょいと作ってみました(^^)。
ただ、ＶＢＡにはｍｏｄ演算子という、商の余りを求めるという演算子があり、これを使うと「３で割って余りが０になる数字＝３の倍数」で簡単に終わってしまうので、
あえてそれを使わないで作ったのが↓これ。１から４０まで順番に数えていって、３の倍数と３のつく数字でアホになります、というかこんなの作っている時点でアホになっているような気もするけど(^^;。

'世界のナベアツの持ちネタ「３の倍数と３のつく数字でアホになる」マクロ
Sub sekeaino_nabeatsu()

Dim i As Long, j As Integer
j = 1

For i = 1 To 40
'３の倍数でアホになるメッセージを表示
If i / j = 3 Then
MsgBox i & "!", vbInformation, "アホになる！"
j = j + 1

'３を含む数字でもアホになるメッセージを表示
ElseIf i Like "*" & 3 & "*" Then
MsgBox i & "!", vbInformation, "アホになる！"

End If
'それ以外の数字の時は何も表示させない

Next

End Sub

■今日の午後にしていたこと
　今日のお昼は、またしても冷凍保存しておいた中村屋の中華まん２個(^^)。
それにしても、この季節に食べる中華まんには幸せを感じております、例え冷凍してあるものであっても(^^)。しかし、いつまでこの幸せを享受することができることやら…。

　そして今晩の晩ご飯。今晩は炊き立てのご飯にツナじゃが玉ねぎチーズのフライパン蒸し。
…ま、ようするに食材が枯渇している今のウチの中にあるものをほぼ総動員してフライパンで蒸し焼きにしただけ、みたいな(^^;。ジス・イズ・男の料理！！（笑）。