11问答网
所有问题
当前搜索:
vb怎么随机产生不重复的数字
如何
在
VB中
实现永
不重复的随机数
答:
Private Switch As Boolean Private Sub Command1_Click()If Switch Then Form_Load Else Command1.Caption = "停止(&P)"Switch = True: Call GetRands End If End Sub Private Sub Form_Load()Randomize Timer With Me .Width = 4600 .Height = 5000 .Caption = "
随机数
发生器"End With Lis...
vb产生不重复的随机数
答:
Private Sub Form_Load()RandomizeShowDim a(1 To 30) As Integer, g(1 To 9) As Integera(1) = Int(10 + 90 * Rnd)k = 1 'k表示生成的20个
数字
的个数Do While k < 30x = Int(10 + 90 * Rnd)f = 0 '首先置f=0If x = a(k) Then f = 1 '如果新
生成的随机数
x...
如何
用
VB生成
随意
不重复的数字
答:
Private Sub Command2_Click()Dim a(1 To 5) As Integer, i, j, s As String For i = 1 To 5 a(i) = Int(10 * Rnd) '生成[0,9]之间的
随机数字
For j = 1 To i - 1 If a(i) = a(j) Then i = i - 1: Exit For '将
生成的随机数字
与已有的随机数字比较,若
出现
...
vb
程序
随机数不重复
答:
随机数
不能保证完全
不重复
,但是你可以这样:另设一个布尔数组作为状态,初值都设为false,和词语的数组一一对应,抽到某个词语后,把相应的状态设为true,以后如果重复,就会发现对应的状态为true,这样你可以忽略这次的抽取动作而取下一个随机数直至所有的状态都为true,你的程序就再也抽不出任何词语了...
用
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...
vb
代码
如何
写,使其能
随机产生
1—6的
不重复的数
? 最好能解释每一段代码...
答:
Sub Form_click() '窗口单击事件过程Randomize '重置
随机数
种子random = Int((6 - 1 + 1) * Rnd + 1) '
生成
1到6范围的随机数MsgBox random '消息框弹出随机数End Sub '希望对你有帮助
用
vb
编写一段程序,
产生
4位
随机数
,但是这四位数各不相同,
如何
编写,麻烦...
答:
有两种办法,一是4位单独生成,然后组成4位数,生成一位就判断一下,如果重复就重新生成。另一就是直接生成4位数,判断各位有没有重复,如果有就重新生成一个,如果
不重复
就退出。这是按第一情况来
生成的
。Private Sub Command1_Click()Randomize Dim a(1 To 4)a(1) = Int(Rnd() * 9) + 1...
VB
不重复的随机数
答:
用数组的..放进去33个.
随机
1个后,放到最大数组元素中,然后在32个中继续随机..如此循环,得到
不重复的
6个数,分别放到Text2-text7中:Dim s(1 To 33), i%, j, m For i = 1 To 33 s(i) = i Next Randomize For i = 1 To 6 m = Int(Rnd * (33 - i) + 1)j = s(34 - ...
vb随机
取数组内
数字
,
不重复
!
答:
Next GetRndItem = Mid(Text, 2)End Function 每次
产生
一
随机
数组索引,随机索引范围是从最小下标到最大下标前一位。取出随机位的数组元素 之后,用最后一数组元素替换该位,然后把最后一位用Redim preserve压缩掉。不过压缩不用了,只要用一个变量arU来表示数组中最大有效数下标位就可。
vb随机
取不同
的数
(10-30之间,每次随机取一个数,
不重复
,取完为止)
答:
#1 c = -1 Dim i As Integer, j As Integer Dim b As Integer Randomize Timer For i = 0 To 29 '给数组赋值 a(i) = i + 1 Next For i = 0 To 29 '
随机
排序 j = Int(Rnd * 30)b = a(i): a(i) = a(j): a(j) = b Next End Sub 这是个1-30的 还不错~...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb随机数代码怎么写
vb产生随机数的代码
vb程序设计代码大全
vb怎么随机生成学号
vb随机数函数范围
vb程序设计图片放大缩小代码
vb随机生成1到100随机整数
ⅴB产生随机数
vb随机函数rand公式