vb.net正负随机数 EXCEL产生正负5的随机数

vb.net怎样生成随机数

Dim a As Integer = CInt(Int((9999 - 1000 + 1) * Rnd() + 1000))

网站设计制作、做网站服务团队是一支充满着热情的团队,执着、敏锐、追求更好,是创新互联的标准与要求,同时竭诚为客户提供服务是我们的理念。成都创新互联公司把每个网站当做一个产品来开发,精雕细琢,追求一名工匠心中的细致,我们更用心!

注:randomvalue = CInt(Int((upperbound - lowerbound + 1) * Rnd() + lowerbound))

这里,upperbound 是此范围内最大的数,lowerbound 是此范围内最小的数。

VB如何生成随机数

1、打开“Microsoft Visual Basic 6.0 中文版”软件,准备一个空白的工程文件:

2、然后需要一个命令按钮,单击左侧工具箱中的“命令按钮”,在窗体中右侧拖动鼠标左键画出即可:

3、双击该命令按钮,这里演示输入代码打印0~10之间的任意随即整数,生成其他范围的随机整数公式为“int((上限-下限+1)*Rnd+下限)”,如果是1到53就是“int((1-53+1)*Rnd+53”:

4、写完之后运行程序,每单击一次命令按钮,就会在窗体上打印一个0~10之间的随即整数:

VB.NET中,随机数生成器问题

Public Shared Sub Randomize ([ Number ])

Randomize 用 Number 将 Rnd 函数的随机数生成器初始化,并给它一个新的种子值。如果省略 Number,则用系统计时器返回的值作为新的种子值。

vb.net产生随机数

方法名称:next();功能描述:返回一个0~2147483647之间的整数

方法名称:next(i);功能描述:返回一个0~i之间的整数

方法名称:next(i,j);功能描述:返回一个i~j之间的整数

方法名称:Nextdouble();功能描述:返回一个0~1之间的随机小数

================

使用方法:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim rand = New System.Random()

MsgBox(rand.next().ToString())

End Sub

==========================

产生N个不同数的话,我给你个我写的VB的代码,你稍微改下:

产生0-10的数:

Private Sub Command1_Click()

Randomize

Dim a(10) As Long

n = 10

For i = 0 To n

a(i) = Int(Rnd() * (n + 1))

For j = 0 To i - 1

If a(i) = a(j) Then

i = i - 1

Exit For

End If

Next

Next

For i = 0 To n

Print a(i)

Next

End Sub

VB怎样生成正负1之间的随机数?

做两个随机数:

第一个做0到1之间的随机数.

第二个做0或1,(注意:要用int()因为只要0或1)

如果第二个为0,那么第一个数变成负值,要不然就为正。

这样的活,就可以生成随机数0~1,有50%的几率为负数。


当前文章:vb.net正负随机数 EXCEL产生正负5的随机数
转载注明:http://myzitong.com/article/hicddo.html