Javaの講義、試験が「自作関数を作り記述しなさい」って問題だったから
「ズン」「ドコ」のいずれかをランダムで出力し続けて「ズン」「ズン」「ズン」「ズン」「ドコ」の配列が出たら「キ・ヨ・シ！」って出力した後終了って関数作ったら満点で単位貰ってた
そこで、Excel VBAで作ってみた。
Sub Zundoko()
Do While True
If Rnd < 0.5 Then
ActiveCell.Value = "ズン"
Else
ActiveCell.Value = "ドコ"
End If
Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
Dim zd As String
zd = ""
For i = 5 To 1 Step -1
If ActiveCell.Row - i > 0 Then
zd = zd + Cells(ActiveCell.Row - i, ActiveCell.Column).Value
End If
Next
If zd = "ズンズンズンズンドコ" Then
Exit Do
End If
Loop
ActiveCell.Value = "キ・ヨ・シ！"
End Sub
Do While True
If Rnd < 0.5 Then
ActiveCell.Value = "ズン"
Else
ActiveCell.Value = "ドコ"
End If
Cells(ActiveCell.Row + 1, ActiveCell.Column).Activate
Dim zd As String
zd = ""
For i = 5 To 1 Step -1
If ActiveCell.Row - i > 0 Then
zd = zd + Cells(ActiveCell.Row - i, ActiveCell.Column).Value
End If
Next
If zd = "ズンズンズンズンドコ" Then
Exit Do
End If
Loop
ActiveCell.Value = "キ・ヨ・シ！"
End Sub