乱数について (ID:146015)

名前

ホームページ(ブログ、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