乱数について (ID:146012)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ちがうかもしれませんが、いちおう下記の条件は解決できました
・一回目、絶対に大吉が出ない（oldlotsの初期値は・・・？）
・二連続で同じ値が出ない（３連続はダメでも、２連続はOKのはず）

フラグの使い方がいまいちわからず、こうしたコードになって
しまいました。

Public Class おみくじ
    Const max As Integer = 3
    Const daikiti As Integer = 0
    Const kiti As Integer = 1
    Const kyou As Integer = 2
    Dim oldlots As Integer = -1  '前々回出た結果
    Dim lots As Integer = -1   '前回出た結果
    Dim lots2 As Integer '今回出た結果

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        Do

oldlots = lots
            lots = lots2
            lots2 = kansu(max)

Loop Until lots2 <> oldlots '今回と前々回出た結果が等しくないときループ終了

If lots2 = daikiti Then
            Label1.Text = "やりました。大吉です"
        ElseIf lots2 = kiti Then

Label1.Text = "まあまあ、吉です"
        ElseIf lots2 = kyou Then
            Label1.Text = "がっかり凶です"

End If
    End Sub

Function kansu(ByVal i As Integer) As Integer
      
        Dim mrandom = New Random()

Return mrandom.Next(max)

End Function

End Class

←解決時は質問者本人がここをチェックしてください。

戻る