VBAでズンドコ

作業が行き詰まってるので現実逃避にズンドコしてみた。

VBAのシンタックスハイライトなんてないのでvbnet指定しております

Option Explicit

Public Sub Zundoko()
    Dim buf As String
    Dim sWord As String
    
    Randomize
    
    Do While True
        If Len(buf) >= 10 Then
            buf = Right(buf, 8)
        End If
        If (Rnd() * 2) < 1 Then
            sWord = "ズン"
        Else
            sWord = "ドコ"
        End If
        Debug.Print sWord
        buf = buf & sWord
        If buf = "ズンズンズンズンドコ" Then
            Debug.Print "キ・ヨ・シ！"
            Exit Do
        End If
    Loop

End Sub

まあ何のひねりもありませんがorz