Vba 随机数宏不返回所需的值

我创建了一个简单的模块，用于执行以下操作：

• 生成0到999之间的随机数
• 如果数字小于500，则指定值“低”，否则指定值“高”
• 在单元格A1和B1中写入随机数和赋值
• 重复该过程100000次

问题是，即使数字大于或等于500，它也会返回赋值“lower”，即所有赋值（其中100000个）都是“lower”

如果有人能检查我的代码哪里出了问题，我将不胜感激；我不是VBA方面的专家，但我认为我自己可以做到…：\

Sub MacroRanNum()

   Dim RunNum As Integer
   Dim Outcome As String

For i = 1 To 100000

   Randomize
   RanNum = Int((999 - 0 + 1) * Rnd + 0)

   If RunNum < 500 Then
   Outcome = "Lower"
   ElseIf RunNum >= 500 Then
   Outcome = "Higher"
   Else
   Outcome = "Error!"
   End If

Sheets("podatak").Cells(i, 1) = RanNum
Sheets("podatak").Cells(i, 2) = Outcome

Next i

End Sub

Sub-macroranum（）
Dim RunNum作为整数
作为字符串的模糊结果
对于i=1到100000
随机化
RanNum=Int（（999-0+1）*Rnd+0）
如果RunNum<500，则
结果=“更低”
ElseIf RunNum>=500则
结果=“更高”
其他的
结果=“错误！”
如果结束
表（“podatak”）。单元格（i，1）=RanNum
表（“podatak”）。单元格（i，2）=结果
接下来我
端接头

您的变量名是RanNum，但您检查RunNum

RanNum RunNum 可以帮助避免此类问题。

您的变量名是RanNum，但您需要检查RunNum

RanNum RunNum 可以帮助避免此类问题。

您的变量名是RanNum，但您需要检查RunNum

RanNum RunNum 可以帮助避免此类问题。

您的变量名是RanNum，但您需要检查RunNum

RanNum RunNum

---

可以帮助避免此类问题。

您正在混合变量名。您定义并检查RunNum，但您的随机值和显示值是RanNum。您从未针对随机生成的值进行测试。

您正在混合变量名。您定义并检查RunNum，但您的随机值和显示值是RanNum。您从未针对随机生成的值进行测试。

您正在混合变量名。您定义并检查RunNum，但您的随机值和显示值是RanNum。您从未针对随机生成的值进行测试。

您正在混合变量名。您定义并检查RunNum，但您的随机值和显示值是RanNum。您从未对随机生成的值进行过测试。

如果我是您，我只会调用Randomize一次。与人们所能相信的相反，这可以减少数字的随机性。（注：这并不能回答你的问题）。谢谢你的建议！我会检查，我知道每次都应该调用Randomize，所以我把它放在循环中…如果我是你，我只会调用Randomize一次。与人们所能相信的相反，这可以减少数字的随机性。（注：这并不能回答你的问题）。谢谢你的建议！我会检查，我知道每次都应该调用Randomize，所以我把它放在循环中…如果我是你，我只会调用Randomize一次。与人们所能相信的相反，这可以减少数字的随机性。（注：这并不能回答你的问题）。谢谢你的建议！我会检查，我知道每次都应该调用Randomize，所以我把它放在循环中…如果我是你，我只会调用Randomize一次。与人们所能相信的相反，这可以减少数字的随机性。（注：这并不能回答你的问题）。谢谢你的建议！我会检查，我读到每次都应该调用Randomize，所以我把它放在循环中…哦，该死，多愚蠢的错误，哈哈。。。我正在检查代码，认为代码有问题，我没有看拼写错误，呸。。。谢谢！哦，该死，多么愚蠢的错误，哈哈。。。我正在检查代码，认为代码有问题，我没有看拼写错误，呸。。。谢谢！哦，该死，多么愚蠢的错误，哈哈。。。我正在检查代码，认为代码有问题，我没有看拼写错误，呸。。。谢谢！哦，该死，多么愚蠢的错误，哈哈。。。我正在检查代码，认为代码有问题，我没有看拼写错误，呸。。。谢谢！