11问答网
所有问题
当前搜索:
vb如何生成随机数
怎么用
VB
编写点
生成
按钮产生1000个8位不重复的
随机数
呢?
答:
Private Sub Command1_Click()Dim i As Long, a As Long Randomize Text1.Text = ""For i = 1 To 1000 Do a = Int(Rnd * 90000000) + 10000000 Loop While InStr(Text1.Text, a)Text1.Text = Text1.Text & a & " "DoEvents Next End Sub ...
VB
中
随机
函数的公式是什么
答:
小于 0 ,每次都使用 number 作为随机数种子得到的相同结果。大于 0 ,以上一个随机数为种子产生下一个随机数。等于 0 ,产生与最近生成的随机数相同的随机数。省略, 以上一个随机数为种子产生下一个随机数。说明 Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd
生成随机数
的...
vb如何生成
三位
随机数
,求男神告知具体的过程
答:
inum = Int((900) * Rnd + 100)rnd 是
生成
少于1大于0的
随机数
的函数 900得到1~900的随机正整数 再加100得到三位的随机数
vb
6.0
生成
不重复的
随机数
(急!)
答:
用不着象楼上那么复杂的程序,看我的:Private Sub Command1_Click()Dim Aa(10) As Integer Cls Randomize For I = 1 To 10 A = Int(Rnd * 10)Print A Aa(I) = A Next I End Sub 再看运行结果,就知道这个程序是对的,我运行了好多遍,结果都是0-9间。只是我用的是10次,如果想...
vb
生成
3位
随机数
答:
Dim a as byte,b as byte,c as byte '三个数 Dim OK as boolean Ok=false Do Randomize '初始化
随机数
种子 a=Int(rnd() * 10) '初始化三个随机数 Randomize b=Int(rnd() * 10)Randomize c=Int(rnd() * 10)If a =b or b=c or a=c then '如果有相同的 OK=False '结果...
vb如何随机生成
9位数字
答:
可以
随机生成
一个0到1的数,然后把0和小数点去掉,留九位就行,如果
vb生成
的
随机数
总是不够九位,你可以测试一下,那就留5位可以吧,生成两次合并就可以了
vb
单击按钮
生成
10个300~600之间的
随机数
,计算这些数之中能被13整除的...
答:
首先,你的print是放到if a(i) mod 13=0 里面的,也就是整除13才显示a(i),你要显示全部的话,应该放到if外面、for里面 其次,题目要求10个数字是一行显示的,那你直接用print a(i)就是一行一个数,这也不符合要求,你可以定义一个str(string变量),然后不要print a(i),用str=str &" "...
...text2输入数量,然后text3中随机
生成随机数
,请问
如何
实现?谢谢...
答:
使用 Randomize() 给 Text3 赋值应该就可以了。
VB
题目:随机产生1-33之间的6个
随机数
(保证6个数字不重复)按照从大到小...
答:
Private Sub Command1_Click()Dim num(6) As Integer Dim i As Integer, j As Integer Dim tmp As Integer Randomize '防止每次生出
随机数
一样 For i = 0 To 5 num(i) = Int(Rnd * 53) + 1 Next PrintNum "新
生成
的6个随机数为:", num()For i = 0 To 5 For j = 0 To 5...
如何
使
VB
中Rnd函数产生的
随机数
是在[0,1]内?
答:
VB
的Rnd函数,其作用就是产生(0,1)之间的
随机数
,还不是[0,1]。即:0 < Rnd < 1 根据上式,结合VB的Int()等函数,可以产生你所需要的任意范围内的随机数。例如1:根据 0 < Rnd < 1 那么就有: 0 < Rnd *10 < 10 产生(0,10)之间的随机数,注意这是实数 例如2: 0 <= ...
棣栭〉
<涓婁竴椤
6
7
8
9
11
12
13
14
10
15
涓嬩竴椤
灏鹃〉
其他人还搜