VB中如何设置随机数的随机率例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 17:56:19
![VB中如何设置随机数的随机率例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124](/uploads/image/z/8716574-38-4.jpg?t=VB%E4%B8%AD%E5%A6%82%E4%BD%95%E8%AE%BE%E7%BD%AE%E9%9A%8F%E6%9C%BA%E6%95%B0%E7%9A%84%E9%9A%8F%E6%9C%BA%E7%8E%87%E4%BE%8B%E5%A6%82%EF%BC%9A%E6%9C%8930%E4%B8%AA%E6%95%B01--30%EF%BC%9B%E8%A6%81%E6%B1%82%E4%BB%8E%E4%B8%AD%E9%9A%8F%E6%9C%BA%E6%8A%BD%E5%8F%96%E4%B8%80%E4%B8%AA%E6%95%B0%E5%AD%97%2C%E6%8A%BD%E5%88%B01--10%E7%9A%84%E9%9A%8F%E6%9C%BA%E7%8E%87%E4%B8%BA20%25%EF%BC%9B11-20%E7%9A%84%E9%9A%8F%E6%9C%BA%E7%8E%87%E4%B8%BA35%25%EF%BC%9B21-30%E7%9A%84%E9%9A%8F%E6%9C%BA%E7%8E%87%E4%B8%BA45%25.%E4%BB%A3%E7%A0%81%E5%A6%82%E4%BD%95%E5%86%99%3F%E4%B8%BA%E4%BA%86%E5%85%AC%E5%B9%B3%E8%B5%B7%E8%A7%81%2C%E8%AF%B7%E5%B0%86%E4%BD%A0%E7%9A%84%E7%AD%94%E6%A1%88%E5%8F%91%E9%80%81%E5%88%B0124)
VB中如何设置随机数的随机率例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124
VB中如何设置随机数的随机率
例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124275421
VB中如何设置随机数的随机率例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124
Private Sub Command1_Click()
Cls
Dim bb As Integer
For i = 1 To 20
bb = getNum()
Print bb
Next i
End Sub
Private Sub Form_Load()
Randomize
End Sub
Function getNum() As Integer
Dim a As Integer
a = Int(1000 * Rnd + 1) '1-1000
If a <= 200 Then ' 1-200
getNum = Int(Rnd * 10) + 1
End If
If a > 650 Then '651-1000
getNum = Int(Rnd * 10) + 21
End If
If a > 200 And a <= 650 Then
getNum = Int(Rnd * 10) + 11
End If
End Function