VB中如何设置随机数的随机率例如：有30个数1--30；要求从中随机抽取一个数字,抽到1--10的随机率为20%；11-20的随机率为35%；21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124

来源：学生作业帮助网编辑：六六作业网时间：2024/05/10 15:03:29

VB中如何设置随机数的随机率例如：有30个数1--30；要求从中随机抽取一个数字,抽到1--10的随机率为20%；11-20的随机率为35%；21-30的随机率为45%.代码如何写?为了公平起见,请将

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

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

VB中如何设置随机数的随机率 VB中如何设置随机数的随机率例如：有30个数1--30；要求从中随机抽取一个数字,抽到1--10的随机率为20%；11-20的随机率为35%；21-30的随机率为45%.代码如何写?为了公平起见,请将你的答案发送到124 如何用VB制作随机数程序用VB制作一个 0-9十个数中随机出8个不重复的数字,例如：01235689, vb如何产生两个不同随机数随机产生两个【1,10】上的随机数,要求随机数不能相同 vb中多次随机随机数指定位置随机数出现的次数vb中多次随机随机数后统计指定位置随机数出现次数如生成了十组随机数每组中第一位数字出现的次数 fortran中设置随机数的问题天河兄,再次麻烦你了,想问问在fortran中设置一定区间的随机数,比如设置1~76之间的随机整数,应该调用什么函数?random_seed random_number?如何使用? 在Vb中,如何产生非连续区间内的随机数,例如产生[48,57] U [65,90]这一并区间的随机数? vb中如何产生范围无穷大的随机数 Excel中如何设置固定数除以30得随机数要求在一列中完成,在A31输入一个固定数,A1-A30会自动生成随机数,随机数在一定范围中波动.比如说在A31输入10000,A1-A30的随机数在290到360间随机跳动!请高手请问vb中有没有生成随机数的函数? 如何使随机数中固定一个数字,让它有80％几率出现我设置了一组有范围的随机数,但是我需要这组范围内的随机数中的一个数字要有百分之八十的几率出现,例如我设的随机数的范围是8.15至8.25 在VB中,如何生成某个范围内的随机整数? vb语言随机数问题vb语言中如何编程实现从7,8 ,54,69,12,32这组数字中随机产生一个数字 vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序求一个vb程序,关于产生随机数排序的.实现随机产生两位整数并排序的功能程序运行后,单击产生随机数“按钮,在图片框中输出10个随机的两位整数.单击”排序“按钮,接着输出排序结果.例如 VB中随机数 Random随机跟Rnd随机有什么区别Random 是这个随机数不是RandomizeDim r As Random = New Random '随机数Dim n1 As Integer = r.Next(4) vb.net取随机数vb.net里面怎么取去随机数?还有,随机数的范围可不可以指定?比如我给定10个数字,然后再给定的这一组数中随机取一个数? c#随机函数怎么设置取值范围,例如我要随机数大于零,要怎么办?