vb产生随机数的编程

‘壹’ vb编程，产生随机数

Randomize '关键必须有，不然每次运行随机数都不变
n1 = InputBox("输入随机数最小的值（正整数）", "下限", "1")
n2 = InputBox("输入随机数最大的值（正整数）", "上限", "100")
n = Int(((n2 - n1) + 1) * Rnd + n1)
MsgBox n & " is the rndvalue"

‘贰’ vb如何产生随机数

只能用Rnd，可能是因为你没初始化吧。

这样写：
Randomize '初始化
suiji= Fix(Rnd * 999) + 1 '生成0-999的随机数，+1则为1-1000

10000次不重复？一共只有1000个数，怎么可能不重复呢？

‘叁’ 用VB做一个产生随机数的程序

好了哦，看一下啊

Dim i, j, k As Single
For i = 0 To 5
Do
Text1(i) = Int(Rnd() * 32 + 1)
k = 0
For j = 0 To i - 1
If Text1(i) = Text1(j) Then k = k + 1
Next j
Loop While k > 0
Next i
do
Text1(6) = Int(Rnd() * 15 + 1)
n=0
For i = 0 To 5
if text1(6)=Text1(i) then n=n+1
next i
Loop While n > 0

‘肆’ vb 随机数的生成

fix函数，取整
rnd函数，取值：（0，1）
若要实现真正随机，要在Form_load中或当前语句中加入randomize（随机种子函数）
否则每次开始程序都是同一随机顺序
比如10-99的数字任意：
源代码①：
private
form_load
randomize
'随机种子函数，实现真正随机
end
源代码②（取10-99的随机两位数）：
fix(rnd*90)+10
源代码③（颜色随机设定）：
RGB(fix(rnd*256),fix(rnd*256),fix(rnd*256))
不知对LZ有没帮助

‘伍’ VB中如何产生一个范围在1—7之间的随机数

不知道vb产生随机数是用什么函数不知道是用rand不，我就说下我的思路哈你看看可以不
产生一个随机数，取这个随机数的最后两位，最后一位和四求余，这样就产生一个0到3的随机数
然后把刚才取的两位的随机数的前面那一位和2求余，判断一下，如果是0就是负号，如果是1就是正号……这样一组合。。。就符合你要的那个区间了……

‘陆’ VB编程时，如何产生一个随机数，把它赋值给一个变量，然后这个变量不再改变

Dim N As Integer
Randomize
N = Int(Rnd*100 + 0) ''0到100的随机数
这个触发一次就变一次，不触发就不会变了

‘柒’ VB编程题：编写一个产生1 至100之间的随机整数的Function 过程

一、要产生1到100之间的随机数，首先了解Rnd函数的用法，Rnd函数产生的是0和1之间的随机数，范围是[0,1)，包括0，但不包括1。因此要产生1~100之间的随机数，可以使用Rnd*98，产生的是[0,98)的随机数，而int(Rnd*98)产生的是[0,97]之间的随机整数，那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了，符合目标1到100之间的随机数目的。函数代码如下：

PublicFunctionsj()AsInteger
Randomize
sj=Int(Rnd*98)+2
EndFunction

二、举个例子，要产生10个1到100之间的随机整数，如下：
1、打开VB6.0开发软件，新建一个标准exe工程；
2、在设计界面上添加一个Text控件和一个Command控件；

‘捌’ 如何用VB产生随机数呢

randomize
'以系统时间作为随机种子
（如果没有上面那句的话每次运行程序生成的随机数都是一样的。加了上面那一句则不会）
1<=rnd<0
是一个不等式
要生成多少到多少的随机数要用上面的不等式换算得出
比如要算
10
到20
的
则不能是Int（rnd*20+10）
而是根据上面的不等式求出
正解因为Int(11*rnd+10)‘rnd左边为一，右边为零
两边同乘11
左边为11
右边为0
在同加一个10
所以左边为21右边为10
这样说明白了么？