大家看看这段代码,为什么我用随机函数每次都产生一样的数70

2004-12-06 10:09:42 136 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

带权重的随机算法在软件开发过程中，尤其是APP或者或者游戏中，经常会涉及到这样一种问题：为了刺激用户消费，需要设置一种抽奖功能，用户点击抽奖按钮，会随机获取其中一种奖励，但是问题来了，不能让一等奖太容易抽到，那样的话，岂不是亏大发了，所以，一般来说，会有这样的需求，越大的奖项，抽中的概率越小，越小的奖项，抽中的概率越大，因此，要对不同的奖项设置权重，例如，3等奖抽中的概率是70%，2等奖是20%，1等奖是10%，阅读详情

这是怎么回事
Private Sub Form_Click()
Dim x, i, guess As Integer
i = 0
x = Int(Rnd(10) * 100)

guess = -1
Do While guess <> x
guess = InputBox("请输入你猜的数：", "猜数字")
If guess > x Then
Print "太大了！"
Else
If guess < x Then Print "太小了！"
End If
i = i + 1
Loop
If i < 3 Then
Print "你很聪明，只猜了：", i, "次"

Else
Print "马马虎虎，猜了：", i, "次"
End If

End Sub

...全文