22问答网
所有问题
当前搜索:
vb随机数生成方法代码
如何通过
vb
产生
1-33的
随机数
和1-16的随机数,在1个文本中显示出来,并 ...
答:
如果是要
随机产生
双色球的话,参考如下
代码
:Private Sub Command1_Click()Dim a(6) As Integer Dim b As Integer For i = 1 To 6 a(i) = Int(Rnd() * (1 + (33 - 1))) + 1 For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1 End If Next Next For i = ...
vb
数组
产生随机数
答:
VB
可使用Randomize 语句和Rnd 函数输出随机数列到数组。1)Rnd 函数,返回一个包含随机数值的 Single。语法:Rnd[(number)]可选的 number 参数是 Single 或任何有效的数值表达式。2)Randomize 语句,初始化
随机数生成
器。语法:Randomize [number]可选的 number 参数是 Variant 或任何有效的数值表达式。3...
vb
里怎样编写0-9,
随机产生
其中的一个数。
答:
代码
及注释如下:Private Sub Command1_Click()'点击命令按钮执行程序 Randomize'初始化
随机数发生器
x = Round((Rnd() * 9), 0)'先利用随机数得到0-1区间的小数,然后乘以9,在对这个数进行四舍五入后,赋值给x Print x'窗体打印x End Sub ...
vb
6.0
随机数生成
?
答:
Dim a(300) As Integer, n As Integer, k As Integer Private Sub Command1_Click()If n < 0 Then Exit Sub x = Int(Rnd * (n + 1))Print Tab(5 * (k Mod 10) + 2); a(x);k = k + 1 a(x) = a(n)n = n - 1 End Sub Private Sub Form_Load()For i = 0 To...
求一
随机
数据
生成
程序(最好用
VB
)
答:
给你个公式吧。
产生
任意两个数之间的
随机数
:(y-x)*@random+x 这个公式中的y是你的随机数的最大值,x为最小值,@random是随机函数(可能有些语言中的关键字不一样)也就是说你如果想
随机生成
0-10之间的随机数,公式就是(10-0)*Rand+0 如果你想复杂一点可以自己再组装一下生成的随机数就可以...
用
VB
编写一个程序,实现
随机数
答:
Private Sub Command1_Click()Randomize Dim n As Integer n = Int(Rnd * (150 - 50 + 1)) + 50 Cls Print n Print Hex(n) '十六 Print Oct(n) '八 End Sub
如何用
VB
写一个
随机生成
7位(0到9)数字的
代码
答:
方法
一 dim num as double num=int(9000000*rnd()+1000000)debug.print num 方法二 dim i as integer dim temp as integer dim num as double num=int(9*rnd()+1)*1000000 '
生成
第一位数字 for i=5 to 0 step -1 '生成后六位数字 temp=int(10*rnd()+1)num=num+temp*10^i n...
VB
产生
1-400的
随机数
用int(Rnd)
答:
Private Sub Command1_Click()Dim a As Integer Randomize a = Int(Rnd() * 400) + 1 Print a End Sub
vb
中的
随机
函数是哪个?
答:
说明 Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的
方式
。对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在调用 Rnd 之前,先使用无参数的 Randomize语句初始化
随机数生成
器(若带参数,则产生由参数对应的...
vb 随机生成
1-6内的数字
答:
说明 Rnd 函数返回小于 1 但大于或等于 0 的值。 number 的值决定了 Rnd 生成随机数的
方式
。 对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。 在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化
随机数生成
器,该生成器具...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
ⅴB产生随机数
vb语句结束怎么结束
vb结束程序运行的代码
rnd函数