如何创建随机生成的数字

Question

我目前在VB6中有这段代码。

Option Explicit

Dim RandomNum As Integer

Private Sub Form_Load()

   randomize

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

End Sub

Answer 1

Here是＃steven-doggart的答案。

＆＃34;在VB6中，您需要使用Randomize函数初始为随机数生成器播种。然后，要生成随机数，您必须使用Rnd函数，例如..＆＃34;

Answer 2

您没有正确地将随机值分配给您的变量或标签。

变化：

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语句。

Answer 3

我有这个功能随机限制:)希望这也可以帮助你。

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