vbsの作法 その9

概要

vbsの作法、調べてみた。
ズンドコやってみた。

写真

サンプルコード

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 & " キ・ヨ・シ！"

以上。