13518219792
第一种方式： 使用无参数的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()
下面是你需要的，经过三次随机，可以看一下，直接调用函数返回一个字符就是你要的，看不懂再追问哈
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
0、前提条件：有一个数字列表，或者数字段范围（1~100）；
1、Randomize '初始化随即函数；
2、用列表或者数组存放待选数据，比如长度为60；
3、利用随机函数抽取数字对应的数据 num=Rnd*60，Ret_Value=List(num)，将选取结果存入结果单元；
4、然后从列表或者数组中去掉这个数据，（避免重复选中）；
5、然后再运行3；
6、直到满意为止。
Label1.Text =a(i,j) " "
相当于
Label1.Text = Label1.Text a(i,j) " "
1。不能，语法问题。
2。“ ”中包含的是空格，这句话相当于将数组a中的所有数据罗列出来，空格是分隔符，没有它数据就连在一起了，你没法区分了！
