乱数について (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