11问答网
所有问题
当前搜索:
vb如何生成随机数
VB怎样生成
不同的
随机数
?
答:
...用rnd函数。。产生一个小于1大于0的
随机数
例如 0~32之间的随机数 rnd*32
vb
中
如何
产生9个不同的
随机数
答:
给你一个函数,是
生成
不重复的
随机数
数组的 'Min是随机数的最小整数, Max是最大整数 Function mRnds(Min As Long, Max As Long) As Long()Dim i As Long, Be As Long, Bes() As Long, Indes As String ReDim Bes(Max - Min)For i = Min To Max Indes = ""Do Be = Int((Max ...
VB
怎么设计
随机数
答:
用
随机数
时之前要用randomize()randomize()这个函数来避免每次
生成
的数都是一样的 (b-a)*rnd()+a 是a到b区间的数,但是不包含a,b本身;int((b-a+1)*rnd()+a 是a到b区间的数,但是包含a,b本身的数所以要加上1
VB生成
正态分布的
随机数
答:
假设Sigma,Miu分别为方差和期望,由用户输入 Dim x(10),y(10)pi=3.14159 Randomize For i=1 To 10 x(i)=(rnd-0.5)*2000 '范围 Next i y(i)=___ '根据正态分布的概率公式计算
求教
VB生成随机数
代码
答:
private sub sdf(byval x%,byval y%)dim a(x,y),c,d as integer static n as integer xh:c=rnd*x+1:d=rnd*y+1 if (x-c+1)*(y-d+1)<12 then goto xh n=0 for i=c to x for j=d to y Randomize xb:a (i,j)= Int((4150 - 4000 + 1) * Rnd + 4000)If a(...
用
vb
编写一段程序,产生4位
随机数
,但是这四位数各不相同,
如何
编写,麻烦...
答:
有两种办法,一是4位单独
生成
,然后组成4位数,生成一位就判断一下,如果重复就重新生成。另一就是直接生成4位数,判断各位有没有重复,如果有就重新生成一个,如果不重复就退出。这是按第一情况来生成的。Private Sub Command1_Click()Randomize Dim a(1 To 4)a(1) = Int(Rnd() * 9) + 1...
VB
中
随机
函数的公式是什么
答:
小于 0 ,每次都使用 number 作为随机数种子得到的相同结果。大于 0 ,以上一个随机数为种子产生下一个随机数。等于 0 ,产生与最近生成的随机数相同的随机数。省略, 以上一个随机数为种子产生下一个随机数。说明 Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd
生成随机数
的...
如何
在
VB
6.0中
生成
10个20到50的
随机数
(保留两位小数)
答:
Private Sub Command1_Click()Dim a(10) As Single For i = 1 To 10 a(i) = Rnd * 31 + 10 Print Format(a(i), "0.00")Next End Sub
VB
只
生成
1和0的
随机
函数
答:
Private Sub Command1_Click()Dim a As Integer Randomize a = Int((1 - 0 + 1) * Rnd + 0)Print a End Sub -函数解析--- rnd:
随机
函数范围是[0,1)int:取整函数 Randomize:用来使种子随机,如果不加则每次产生的随机都是固定的,因为种子是默认的 --- 可以套用以下公式:Int((上限-下限...
vb
.net
怎样生成随机数
答:
Dim a As Integer = CInt(Int((9999 - 1000 + 1) * Rnd() + 1000))注:randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))这里,upperbound 是此范围内最大的数,lowerbound 是此范围内最小的数。
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜