Vb6 如何创建随机生成的数字

我目前在VB6中有这段代码

Option Explicit

Dim RandomNum As Integer

Private Sub Form_Load()

   randomize

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

End Sub

这是史蒂文·多加特的答案

---

“在VB6中，首先需要使用

Randomize

函数为随机数生成器设定种子。然后，要生成随机数，必须使用

Rnd

函数，例如..”

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

更改：

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

致：

RandomNum=Int（（Rnd*10）+1）
如果Random>=1和RandomNum我有这个函数用于带限制的随机化：）希望这也能对你有所帮助

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

但是我有int（（rnd*10）+1）它到底打印了什么，你能分享一下吗？代码“int（（rnd*10）+1）”假设打印1-10之间的随机整数。False或有时true。我也可以使用lable1.caption=int（（rnd*10）+1）当然可以。似乎您需要将该值存储在类级变量中，因为您经历了声明该值的麻烦：
Dim RandomNum As Integer
我如何使用该数字为自己选择一个选项。例如，如果生成的随机数在1到3之间，则将标签的标题设置为“Option1”，如果其为4到6，则将其设置为“Option2”。
Public Function Random(Upper As Integer, Lower As Integer) As Integer
Randomize
Random = Int(Upper * Rnd() + Lower)
End Function