乱数について (ID:146014)

名前

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

本文

>しかもこのプログラムでは、
>今回と前々回の結果を比較していますが、仕様では
>３連続同じ結果は出ない、ということだったと思いますが？
文法の解釈を誤っていたのに気づきました。
下記のように修正しました。
いちおう意図する動きはしているのですが？

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

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

If lots2 = oldlots Then   '今回と前々回出た結果が等しい場合                                    は、結果の数値が異なるまで今回の結果をループ
            Do Until lots2 <> oldlots

lots2 = kansu(3)

Loop

End If

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(i)

End Function

End Class

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

戻る