11问答网
所有问题
当前搜索:
vb怎么随机产生不重复的数字
用
vb
编程实现
随机产生
一个100到999之间的
随机数
,并将此数逆序输出
答:
使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的
。2、无重复随机数算法一 这是最简单的算法,每产生一个随机数,就和已有的比较,如果已经存在,则重新产生。比较适合从一个大范围里面抽出一小部分数据,比如,从题库中抽取试题。[vb] view plain copy print?' 产生20个1-100之间...
vb中
,想要
随机
输出1-9这9个
数字
,并且在同一次输出时做到每个数字都各不...
答:
Private Sub Command1_Click()Dim a(9) As Integer, i As Integer, j As IntegerFor i = 1 To 9a(i) = iNextFor i = 1 To 8Randomizej = Int(Rnd() * (10 - i)) + 1a(0) = a(10 - i)a(10 - i) = a(j)a(j) = a(0)NextFor i = 1 To 9Print a(i);Next...
如何
用
VB产生
一个每次都不一样的
随机数
啊,用rnd的话只能产生一个固定的...
答:
第一种方式: 使用无参数的Random()构造函数
;默认种子值是使用DateTime.Now.Ticks作为种子值的,如果触发Random函数间隔时间很短,就有可能造成产生一样的随机数。第二种方式:
使用RNGCryptoServiceProvider生成种子值
;生成速度较慢。1、Random()使用与时间相关的默认种子值,初始化 Random 类的新实例。...
如何
用
vb随机
从1—50中选5个
不重复的数字
,还有从1-9中选两个不重复的...
答:
随机
从1—50中选5个
不重复的数字
dim a,b,c,d,e as integer a=Int((50 - 1 + 1) * Rnd + 1)do while b=a b=Int((50 - 1 + 1) * Rnd + 1)loop do while c=a or c=b c=Int((50 - 1 + 1) * Rnd + 1)loop do while d=a or d=b or d=c d=Int((50 -...
用
vb怎样生成
10个
不重复的
(1到10)
随机数
?
答:
vb生成
10个
不重复的随机数
代码:Private Sub Command1_Click()Dim a(9) As Integer For i = 0 To 9 GoTo way1 End If Next p End If Print a(i)Next i End Sub
请问
vb随机生成
一个有20个互不相同一百以内
的数
的数组
怎么
写代码啊...
答:
Sub scsz()'
生成不重复随机数
Dim i, j, k, m, n, r, c, d As Integer Dim b As Boolean Dim ra() As Integer Dim raa() As Integer m = Range("a1")n = Range("b1")ReDim ra(n - 1)ReDim raa(n - 1)r = Int(Rnd() * m)ra(c) = r raa(c) = r c = c ...
高分求助
vb产生
几个
不重复随机数
答:
在窗体内加入控件text1,text2,text3,command1,然后复制下面代码,运行即可。当你在text1内输入
数字
后,在text2内输入数字范围,按command1按钮,text3就会显示N个
不重复随机数
。Option Explicit Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, ss, tt() As Integer...
用
VB
从1-12这12个数中
随机生成
3个互
不重复的数
答:
Private Sub Command1_Click()Dim a As Integer, b As Integer, c As IntegerRandomizeDo a = Int(Rnd * 12) + 1 '分别
生成
三个数 b = Int(Rnd * 12) + 1 c = Int(Rnd * 12) + 1Loop While a = b Or b = c Or a = c '如果有任何两个数相同就再次生成T...
从0到9里面
随机生成
7个数,要
不重复的
7个数,然后显示出来,
VB
程序应该怎 ...
答:
Rand = CLng(Int(Rnd() * Count)) '
随机
选择一个并去掉 (用最后的一个元素填充)Result(Low + Rand) = Result(Low + Count - 1)Count = Count - 1 ' 将元素个数减 1 Loop ' 重新定义数组大小并返回 ReDim Preserve Result(Low To Low + Count - 1)RandomSelect = Result End...
vb生成
1-9
随机数
,随机打乱分行置于text1中,互
不重复
(1,2,3,4,5,6...
答:
做一个文本框Text1,并设置其Multiline属性为True,再做一个Command1按钮,其代码如下:Private Sub Command1_Click()Dim a(9) As Integer, i As Integer, t As Integer Text1.Text = ""For i = 1 To 9 a(i) = i Next i Randomize For i = 9 To 1 Step -1 t = Int(i * Rnd...
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb生成不重复的随机整数
vb从数组中随机获取数字
vb随机生成1到100随机数
vb随机生成5个20到30随机数
vb随机生成1到100随机数代码
vb生成随机数的代码
vb生成指定范围的随机数
excel从100个样本抽三十个
vb产生不同的随机数字怎么办