查看完整版本: 新手求助 RND

論壇 › Visual Basic 語言 › 新手求助 RND

howard830814 發表於 2015-1-5 09:35 PM

新手求助 RND

Public Class Form2

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Integer
        A = Int(Rnd() * (4 + 1))
        If A = 1 Then
            MsgBox("好香")
            Form3.Show()
            Me.Hide()
        End If
        If A = 2 Then
            MsgBox("好甜")
            Form4.Show()
            Me.Hide()
        End If
        If A = 3 Then
            MsgBox("好喔", , "你的宵夜我來選")
            Form5.Show()
            Me.Hide()
        End If
        If A = 4 Then
            MsgBox("好嫌")
            Form6.Show()
            Me.Hide()
        End If
        If A = 5 Then
            MsgBox("好臭")
            Form7.Show()
            Me.Hide()
        End If
    End Sub
End Class




我得RND怎麼跑都不是亂數都會到A=3
新手笨問題
已爬文都還是一樣
請大神救救我

...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div>

rr09192084 發表於 2015-1-5 11:00 PM

要每次產生不同的亂數，需要重置亂數種子，執行
Randomize()
另外，要產生1-5的整數亂數，要這樣才對
(A = Int(Rnd() * 5 + 1))
你的程式碼會固定產生0-4之間的亂數

Jeepluo 發表於 2015-1-12 06:26 PM

我試了一下是有跳動，是你的範圍不對！可以把取亂數的那一行改一下A = Int(Rnd() * 5) + 1