随即生成1-20个数.txt

来自「随即生成1-20数字的 代码` VB代码`」· 文本 代码 · 共 23 行

Option Explicit  
Dim TmpVal&(), TmpRnd&(), i&, j&, s  
Private Sub Command1_Click()  
 s = GetRnd(6) '取6个随机数  
 Text1.Text = ""  
 For i = 0 To UBound(s)  
 Text1.Text = Text1.Text & Str(s(i))  
 Next i  
End Sub  

Public Fun拿掉ction GetRnd(Qty&) As Long()  
 Randomize  
 For i = 1 To Qty  
 ReDim Preserve TmpVal&(i)  
 ReDim Preserve TmpRnd&(i - 1)  
 TmpVal&(i) = Int(Rnd * 20) + 1 '1-20中取随机数  
 For j = 1 To i - 1  
 If TmpVal&(i) = TmpVal&(j) Then i = i - 1: Exit For  
 Next j  
 TmpRnd&(i - 1) = TmpVal&(i)  
 Next i  
 GetRnd = TmpRnd()  
End Fun拿掉ction