育才学习网1.vb 指定随机数的数目和范围 产生相应数目的不重复随机数 代码怎么写
Function RndX(n as integer, st as integer, ed as integer) as string ' n：产生个数， st：随机数下限， ed：随机数上限
Dim tstr as string, i as integer
tstr = ","
Do Until i=n
t = Int((ed - st + 1) * Rnd + st)
If InStr(tstr, "," & t & ",")=0 Then
tstr = tstr & t & ","
i = i + 1
End If
Next
tstr = Mid(tstr, 2, Len(tstr)-2)
End Function
函数返回含指定个数随机数的字符串，如果想要数组，用split函数将字符串分解一下就行了.
2.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之间的随即整数：
3.VB 中 RND 产生的随机数的范围是什么
语法Rnd[(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。
返回值如果 number 的值是 Rnd 生成
小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近生成的数。
省略 序列中的下一个随机数。
说明Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。
4.VB按扭生成一定范围的随机数填到指定单元格里面
Option Explicit
Private Sub CommandButton1_Click()
Static B As String
Dim A As Long, i As Long
DoEvents
Randomize
A = Int(Rnd * 999901 + 100) 'Int（（上限 - 下限 + 1） * Rnd + 下限）
If InStr(B, A) = 0 Then '判断是否有重复
B = B & A &； " " '没有重复则加入B中
ActiveCell = A '随机数填入当前单元格
ActiveCell.Activate '重新激活单元格
Else
i = i - 1
End If
End Sub
5.用vb产生随机数代码怎么写
randomize
dim str as string
for i=1 to 6
str=str & int(rnd*35+1)
next
msgbox str
如果2113再5261严4102谨1653点版权
Randomize
Dim tempc(34) As Boolean, str As String
For i = 1 To 6
rep:
buffint = Int(Rnd * 35 + 1)
If tempc(buffint - 1) = False Then
str = str & " " & buffint
tempc(buffint - 1) = True
Else
GoTo rep
End If
Next
MsgBox str
-----------------------------------
转载请注明出处育才学习网 » vb中生成随机数的范围怎么写