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中的所有数据罗列出来，空格是分隔符，没有它数据就连在一起了，你没法区分了！