如何創建隨機生成的數字

Option Explicit 

Dim RandomNum As Integer 

Private Sub Form_Load() 

    randomize 

    Label1.Caption = RandomNum = Int((Rnd * 10) + 1) 

End Sub

你不正確地將隨機值分配給變量或標籤。

變化：

Label1.Caption = RandomNum = Int((Rnd * 10) + 1)

要：

RandomNum = Int((Rnd * 10) + 1) 
If Random >= 1 And RandomNum <=3 Then 
    Label1.Caption = "Option1" 
Else 
    Label1.Caption = "Option2" 
End If

您也可以考慮使用一個Select Case聲明。

2014-11-17 00:10:32

我可以也只是使用lable1.caption = Int（（Rnd * 10）+ 1） –

當然可以。它看起來像你需要將這個值存儲在你的類級變量，因爲你通過聲明它的麻煩：'Dim RandomNum As Integer' –

我將如何使用這個數字爲我選擇一個選項。例如，如果生成的隨機數在1到3之間，則使標籤的標題=「選項1」，並且如果其4到6使其成爲「選項2」。 –

Here是＃steven-doggart的答案。

「在VB6中，你需要使用Randomize功能，然後生成一個隨機數，你必須使用Rnd功能，比如最初的種子隨機數發生器。」

2014-11-16 23:40:34

但我有int（（rnd * 10）+ 1） –

究竟是什麼打印，你能分享？代碼'int（（rnd * 10）+ 1）'假設打印1-10的隨機整數。 –

錯誤或有時是真的。 –

我有這個功能隨機限制:)希望這也可以幫助你。

Public Function Random(Upper As Integer, Lower As Integer) As Integer 
Randomize 
Random = Int(Upper * Rnd() + Lower) 
End Function

2014-11-17 09:09:47

回答