vb生成多个excel(vb如何产生多个随机数)

1. vb如何产生多个随机数

VB使用Rnd 函数产生随机数。

Rnd 函数，返回一个包含随机数值的 Single。

Rnd 函数示例

本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。

Dim MyValue

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值

2. vb怎样产生随机数

定义一个全局变量的数组：

dim a(10) as integer

随机产生10个两位的素数，素数各不相同：

Dim a(10), x As Integer

Dim str As String = ""

Dim di As Boolean = True

Dim n As Integer

Dim sd As

For i = 1 To 10

Do

Do

Randomize()

n = Int(Rnd() * 100 + 10)

Loop Until IsSushu(n)

If i > 1 Then

For x = 1 To i - 1

If a(x) = n Then

di = False

End If

Next

End If

Loop Until di = True

a(i) = n

'str = str & a(i) & " "

Next

随机数升序排序：

For i = 1 To 10

For j = 1 To 10 - i

If a(j) > a(j + 1) Then

x = a(j + 1)

a(j + 1) = a(j)

a(j) = x

End If

Next j

Next i

For i = 1 To 10

str = str & a(i) & " "

Next

将升序的数组写入文件：

Dim file As New System.IO.StreamWriter("data1.txt")

file.WriteLine(str)

file.Close()

读取文件，并写入数组及降序排序：

Dim file As New System.IO.StreamReader("data1.txt")

Dim words As String = file.ReadToEnd()

file.Close()

Dim b() As String

Dim temp As Integer

Dim str1 As String

str1 = ""

b = Split(words, " ")

Dim c() As Integer

Dim l As Integer

l = UBound(b)

ReDim c(l)

For i = 1 To l

c(i) = Val(b(i - 1))

Next

For i = 1 To l

For j = 1 To l - i

If c(j) < c(j + 1) Then

temp = c(j + 1)

c(j + 1) = c(j)

c(j) = temp

End If

Next j

Next i

For i = 1 To l

str1 = str1 & c(i) & " "

Next

MsgBox(str1)

3. 如何用vb产生随机数

VB使用Rnd 函数产生随机数。Rnd 函数，返回一个包含随机数值的 Single。Rnd 函数示例本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。

Dim MyValue

4. vb随机生成n个数

privatesubcommand1_click() dimiasinteger,nasinteger,stasstring dimn1asinteger,n2asinteger fori=1to10 n=int(rnd*90)+10 st=st&str(n) ifnmod=0then n1=n1+1 else n2=n2+1 endif nexti text1.text=st text2.text=n1 text3.text=n2 endsub privatesubcommand2_click() text1.text="" text2.text="" text3.text="" endsub privatesubcommand3_click() end endsub

5. vb怎么生成随机数

VB生成1-100之间的随机整数，可以使用系统自带的Rnd()方法进行实现，代码如下：萊垍頭條

Private Sub Command_Click()Dim MyValue //定义一个随机数垍頭條萊

MyValue = Int((100 * Rnd) + 1) //rnd()函数生成随机数萊垍頭條

Print MyValue //打印出这个随机数萊垍頭條

End Sub萊垍頭條

Private Sub Form_Load()條萊垍頭

Randomize //初始化随机数生成器頭條萊垍

End Sub萊垍頭條

萊垍頭條

6. vb中如何产生随机数

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

例如：

print Int((126 + 1) * Rnd + 1)

1

7. vb产生两个随机数

用个大循环，每次产生一个随机 数，之后再用个小循环检查刚产生的数与此前产生的所有随机数对比，没有重复则记下此次产生的随机数，退出小循环，有重复的就直接退出小循环，此次产生的数不作处理。