vb.net随机固定数据 vb随机数字的代码

如何用VB产生一个每次都不一样的随机数啊,用rnd的话只能产生一个固定的数字

第一种方式: 使用无参数的Random()构造函数;

创新互联公司主要从事成都网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务广昌,10多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18980820575

默认种子值是使用DateTime.Now.Ticks作为种子值的,如果触发Random函数间隔时间很短,就有可能造成产生一样的随机数。

第二种方式: 使用RNGCryptoServiceProvider生成种子值;生成速度较慢。

1、Random()

使用与时间相关的默认种子值,初始化 Random 类的新实例。

2、Random(Int32)

使用指定的种子值初始化 Random 类的新实例。

参数为种子值,数据类型为Int32,用来计算伪随机数序列起始值的数字。 如果指定的是负数,则使用其绝对值。

Random类生成随机数是伪随机数,所以在Random的内部产生机制中还是有一定规律的,并非是真正意义上的完全随机。 如果种子值相同则每次均产生相同的随机数。

扩展资料

Random 类位于 java.util 包中,主要用于生成伪随机数。Random 类将 种子数 作为随机算法的起源数字,计算生成伪随机数,其与生成的随机数字的区间无关。

创建 Random 实例时,若没有指定种子数,则会以当前时间作为种子数,来计算生成伪随机数。拥有相同种子的 Random 实例,在相同次数下,生成的伪随机数完全相同。

random.nextBoolean():

用于从该随机数生成器的序列中得到下一个伪均匀分布的 boolean 值。

random.nextBytes():

用于生成随机 byte 值并将其放入用户提供的 byte 数组中,生成的随机 byte 数等于 byte 数组的长度

参考资料来源:

百度百科——random()

vb.net 随机出数字,但要求包含特定数字如何做?

下面是你需要的,经过三次随机,可以看一下,直接调用函数返回一个字符就是你要的,看不懂再追问哈

Structure jiqi

Dim num As Integer

Dim num2 As Integer

End Structure

Public Function chansheng() As String

Dim str As String = ""

Dim n As Integer = 0

Dim p68 As Integer

Randomize()

p68 = Int(Rnd() * 2) + 1

Dim a(10), b(8) As Integer

For i = 1 To 6

b(i) = i - 1

Next

b(7) = 7

b(8) = 9

For i = 1 To 6

Randomize()

a(i) = b(Int(Rnd() * 8) + 1)

Next

If p68 = 1 Then

For i = 7 To 10

a(i) = 6

Next

ElseIf p68 = 2 Then

For i = 7 To 10

a(i) = 8

Next

End If

Dim c(10) As Integer

Dim temp As jiqi

Dim pi(10) As jiqi

For i = 1 To 10

pi(i).num = a(i)

pi(i).num2 = Int(Rnd() * 1000) + 10

Next

For i = 1 To 10

For j = 1 To 10 - i

If pi(j).num2  pi(j + 1).num2 Then

temp = pi(j + 1)

pi(j + 1) = pi(j)

pi(j) = temp

End If

Next j

Next i

For i = 1 To 10

str = str  pi(i).num

Next

Return str

End Function

VB.NET随机选取不重复的数

0、前提条件:有一个数字列表,或者数字段范围(1~100);

1、Randomize '初始化随即函数;

2、用列表或者数组存放待选数据,比如长度为60;

3、利用随机函数抽取数字对应的数据 num=Rnd*60,Ret_Value=List(num),将选取结果存入结果单元;

4、然后从列表或者数组中去掉这个数据,(避免重复选中);

5、然后再运行3;

6、直到满意为止。

vb.net输出随机数字

Label1.Text =a(i,j) " "

相当于

Label1.Text = Label1.Text a(i,j) " "

1。不能,语法问题。

2。“ ”中包含的是空格,这句话相当于将数组a中的所有数据罗列出来,空格是分隔符,没有它数据就连在一起了,你没法区分了!


网站标题:vb.net随机固定数据 vb随机数字的代码
网页地址:http://pwwzsj.com/article/dojhhjo.html