ただ楽しんでみた

vba

いきなり空いた時間にサクサクっと
暇つぶし程度にプログラミング。


久々にVBAを使って
FIZZBUZZ問題に挑んでみた。


意味は・・・・
まったくもってない！

昔、Mさんに教えていただいた、「なべあつ」プログラム。
3の整数と3がつく数字のときにあほになるプログラム

Function nabeatsu(a As Integer) As String
    Dim b As String
    b = Str(a)
        
    If a Mod 3 = 0 Then
        nabeatsu = a & "あほ"
        
    ElseIf InStr(b, "3") Then
         nabeatsu = a & "あほ"
    Else
        nabeatsu = a & ""
    End If
    
End Function


Sub main()
    Dim i As Integer
    For i = 1 To 30 Step 1
        Debug.Print nabeatsu(i)
    Next i
End Sub


東京でお世話になった方々、お元気かなぁ・・・・。