VB中如何设置随机数的随机率例如:有30个数1--30;要求从中随机抽取一个数字,抽到1--10的随机率为20%;11-20的随机率为35%;21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/20 07:05:27
έZs\{_Da:Fu[By#X~``Z[ HwHQ 7Y>>kyMo;폵`{o`\-$Aٜ\p$Ys3uvx@<ϒ]gNU4BPf]NcUʬcԍiEnڕ(mD!);X5ojvSTˋ܄ae~5fGfN߲0IWMcV.uj)a[I,8EΪ"]? D_0\a&}0LLl\OL+{05J!J1u"chS @zǦ |7Lk^]hs_:_"أ{4q+JyU#lv321jFMndRxL kU%(+2 YAEQXe*5(JDB"t`K*EMBCQsdEY:(+e^TM s5uu| ,
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