編集

名前

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

本文

意図した動きはしていますが？どこがおかしいのでしょうか

Public Class Form1

Dim omikuzi() As String
    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

omikuzi = New String() {"やりました。大吉です", "まあまあ、吉です", "がっかり凶です"}

oldlots = lots
        lots = lots2
        lots2 = kansu(3)

If lots2 = oldlots Then 'もし今回と前々回の結果が同じなら以下を繰り返す

Do Until lots2 <> oldlots
                lots2 = kansu(3)
            Loop
        End If

Select Case lots2

Case 0

Label1.Text = omikuzi(lots2)

Case 1

Label1.Text = omikuzi(lots2)
            Case 2

Label1.Text = omikuzi(lots2)
        End Select

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

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

乱数について (ID:146015)