乱数について (ID:146000)

名前

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

本文

これでもダメですね。

Public Class おみくじ
    Const max As Integer = 3
    Const daikiti As Integer = 0
    Const kiti As Integer = 1
    Const kyou As Integer = 2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oldlots As Integer 'lotsの直前の変数
        Dim lots As Integer
        oldlots = kansu1(max)
        lots = kansu2(max)

Do Until lots <> oldlots '変数とその直前の変数が等しくないときループ終了

lots = kansu3(max)
        Loop

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

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

End If
    End Sub

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

Return mrandom.Next(i)

End Function

Function kansu2(ByVal i As Integer) As Integer
        Dim mydom = New Random()
        Return mydom.Next(i)

End Function
    Function kansu3(ByVal i As Integer) As Integer
        Dim myrandom = New Random()
        Return myrandom.Next(i)

End Function
End Class

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

戻る