vb程序问题 不重复随机数单击commond,在label中产生第一个随机数;再次单击commond,在label中产生第二个随机数;以此类推,共需要产生12个.(要求每次产生的数字都不一样,数字是从1-12)代码怎
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/02 19:41:44
vb程序问题 不重复随机数单击commond,在label中产生第一个随机数;再次单击commond,在label中产生第二个随机数;以此类推,共需要产生12个.(要求每次产生的数字都不一样,数字是从1-12)代码怎
vb程序问题 不重复随机数
单击commond,在label中产生第一个随机数;
再次单击commond,在label中产生第二个随机数;
以此类推,共需要产生12个.(要求每次产生的数字都不一样,数字是从1-12)
代码怎么写啊!
vb程序问题 不重复随机数单击commond,在label中产生第一个随机数;再次单击commond,在label中产生第二个随机数;以此类推,共需要产生12个.(要求每次产生的数字都不一样,数字是从1-12)代码怎
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