作业帮（VB) a = Int(Rnd(1) * 9).我想知道 那个 random 函数的 应用 现在我知道一些 比如说 a = Int(Rnd(1) * 9) 这个 是 1到9 之间 随便 选一个的 如果 我们制定一些 数字 比如说 1,5,8,9 等数字 把这些
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/16 20:53:23
（VB) a = Int(Rnd(1) * 9).我想知道 那个 random 函数的 应用 现在我知道一些 比如说 a = Int(Rnd(1) * 9) 这个 是 1到9 之间 随便 选一个的 如果 我们制定一些 数字 比如说 1,5,8,9 等数字 把这些
（VB) a = Int(Rnd(1) * 9).
我想知道 那个 random 函数的 应用 现在我知道一些 比如说 a = Int(Rnd(1) * 9) 这个 是 1到9 之间 随便 选一个的
如果 我们制定一些 数字 比如说 1,5,8,9 等数字 把这些数字怎么选呢?我的意思是 只要那些数字里面学一个 （数字没有规律的数字,有规律的直接写公式就可以了吗） 怎么弄 ?
2.还有 这些指定的数字他们的出现概率一样的啊
如果我们把 “5” 的 选择率增加一些怎么办? 不要用这个啊 （if a5 then .
'再来选那些数字
end if）
请帮忙一下啊
（VB) a = Int(Rnd(1) * 9).我想知道 那个 random 函数的 应用 现在我知道一些 比如说 a = Int(Rnd(1) * 9) 这个 是 1到9 之间 随便 选一个的 如果 我们制定一些 数字 比如说 1,5,8,9 等数字 把这些
若要出现没有规律的数字,只要把这些数字添加到数组即可实现,参考代码如下：
Private Sub Command1_Click()
'循环变量
Dim i As Integer
'保存随机数
Dim initNum As Integer
'返回结果
Dim strRtn As String
'用于存放无规律的数组
Dim intArr()
strRtn = ""
'初始化整型数组
intArr = Array(1,5,8,9)
'初始化随机数
Randomize
For i = 0 To 10
'生成[0-3]之间的随机数,对应到数组的下标
initNum = Int(Rnd() * 4)
strRtn = strRtn & intArr(initNum) & vbNewLine
Next
MsgBox strRtn
End Sub
至于第二个关于随机概率的问题暂时没想到好方法……