mdsk.net
当前位置:首页 >> vB随机函数概率 >>

vB随机函数概率

Private Sub Command1_Click()randomizeConst S="11122345" '1表示100 ,2表示200Dim gj As Integergj = Int(len(s)*rnd)+1 '随机产生s字符串中某个字符位Text1.Text =str(val(mid(s,gj,1))*100) '把该位字符取出来乘100End Sub'这样可以在S字符串中增加某个字符,以提高其抽取的概率.

有好的思路不必窝着吧?给你提供一个思路.1.先为变量 i 赋值一个随机数,范围在1~100之间.2.对 i 的值进行判断.如果在 1~20(20%),那么对变量min赋值 1,对变量max赋值10.如果在21~55(35%),那么对变量min赋值11,对变量max赋值20.如果在56~100(45%),那么对变量min赋值21,对变量max赋值30.3.对变量 result 赋值一个随机数,范围在min~max之间.这个方法很好理解,代码也很好写.希望对你有所帮助.

Rnd()

给你一个模型吧 '新建text1-text2-text3-text4Private Sub Form_Load()RandomizeShowP1 = 0P2 = 0 + 20P3 = 0 + 20 + 0P4 = 0 + 20 + 0 + 80For I = 1 To 1000DoEventsA = Int(Rnd * 100 + 1) Select Case A

rnd()本身返回0~1(小于1)间的随机数,100*rnd就成了100以内的数字 int(100*rnd),取整后,最大只有99,最小是0 所以int(100*rnd)+1就在1~100之间了.

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

Private Sub Command1_Click() Dim flag As Boolean Dim r(1000) Dim d As String Randomize '初始化随机种子 For i = 0 To 10 '出11个100以内的不重复数 Do r(i) = Int(Rnd() * (100)) flag = True For j = 0 To (i - 1) If r(j) = r(i) Then flag = False '如果用

randomizedim i as integeri=(rnd()*8 mod 8)+1

随机函数是Rnd 范围是0≤Rnd表达式你可以这样写 Dim int a a=int(Rnd*100)

rndrnd函数的一种1、Rnd函数 返回一个包含随机数值的 Single语法Rnd[(number)]如果number 的值是 Rnd 生成小于0 每次都使用 number 作为随机数种子得到的相同结果.大于0 序列中的下一个随机数.等于0 最近生成的数.省

fnhp.net | zxqt.net | 4405.net | ddgw.net | nwlf.net | 网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com