作业帮 > 综合 > 作业

vb程序问题 不重复随机数

来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/05/12 07:56:51
vb程序问题 不重复随机数
单击commond,在label中产生第一个随机数；
再次单击commond,在label中产生第二个随机数；
以此类推,共需要产生12个.（要求每次产生的数字都不一样,数字是从1-12）
代码怎么写啊!
vb程序问题 不重复随机数
Dim yy(11) As Integer, JS As Integer
Private Sub Command1_Click()
If JS = 12 Then MsgBox "已经全部输入完了!": Exit Sub
yy(JS) = suiji(yy)
Label1.Caption = yy(JS)
'Text1.Text = Text1.Text & yy(JS) & vbCrLf
JS = JS + 1

End Sub
Function suiji(yy) As Long
Dim sj() As Long
Dim isY As Boolean
ReDim sj(0)

For n = 1 To 12
isY = False

For m = 0 To UBound(yy)

If yy(m) = n Then
isY = True
Exit For
End If

Next
If isY = False Then
sj(UBound(sj)) = n
ReDim Preserve sj(UBound(sj) + 1)
End If

Next
Randomize
suiji = sj(Int(UBound(sj) * Rnd))
End Function
VB生成不重复的随机数 用vb怎样生成10个不重复的（1到10）随机数? vb 中用for循环产生不重复的随机数（任一数都不等） VB 编写程序,生成10个无重复数（即互不相等）的两位随机数 如何用VB制作随机数程序 C#产生随机数 不重复 excel生成不重复随机数 怎么用VB编写点生成按钮产生1000个8位不重复的随机数呢? vb编写一个用于求随机数的程序 求一个vb程序,关于产生随机数排序的. 用vb编写一个用于求随机数的程序, 如何生成不重复的随机数