床屋の時間を待ちながら、1000speakersを見ながら、漫画喫茶でナベアツ。
なんてすてきな休日・・・
nabeatsu.vbs
—

MsgBox "3の倍数と3のつく数字のときにアホになり、5の倍数のときに犬っぽくなります。（40までいくよ）"
Dim i
For i = 1 To 40
Dim ret
ret = IIf(((i mod 3) = 0) Or (Instr(CStr(i),"3") > 0),ToAho(CStr(i)),CStr(i))
ret = IIf((i mod 5) = 0,AddDog(ret),ret)
MsgBox(ret)
Next
Function ToAho(str)
Dim ret
ret = str
If Len(ret) = 2 Then
ret = Left(ret,1) & "じゅう" & Right(ret,1)
ret = Replace(ret,"1じゅう","じゅう")
End If
ret = Replace(ret,"1","いてぃ")
ret = Replace(ret,"2","にぃ")
ret = Replace(ret,"3","しゃん")
ret = Replace(ret,"4","しぃ")
ret = Replace(ret,"5","ぎょ")
ret = Replace(ret,"6","りょく")
ret = Replace(ret,"7","ひてぃ")
ret = Replace(ret,"8","はてぃ")
ret = Replace(ret,"9","きゅう")
ret = Replace(ret,"0","")
ToAho = ret
End Function
Function AddDog(str)
AddDog = str & "うぉーん"
End Function
Function IIf(psdStr, trueStr, falseStr)
If psdStr Then
IIf = trueStr
Else
IIf = falseStr
End If
End Function