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