개요

사진.

샘플 코드

Dim zundoko, loopCnt, result, tempResults

loopCnt = 0
Set zundoko = CreateObject("System.Collections.ArrayList")
Do While True
    If loopCnt > 5 Then
        loopCnt = 0
    End If
    If Rnd < 0.5 Then
        zundoko.add "ズン"
    Else
        zundoko.add "ドコ"
    End If
    If loopCnt = 4 Then
        result = zundoko(zundoko.Count - 5) & zundoko(zundoko.Count - 4) & zundoko(zundoko.Count - 3) & zundoko(zundoko.Count - 2) & zundoko(zundoko.Count - 1)
        If result = "ズンズンズンズンドコ" Then
            Exit Do
        End If
    End If
    loopCnt = loopCnt + 1
Loop
result = ""
For Each item In zundoko
    result = result & item
Next
MsgBox result & " キ・ヨ・シ！"