随机数字生成器

随机数字生成器

Option Explicit

Dim arr() As String

Function CreateRnd(Length As Long) As String

Dim i As Long, r As Integer

For i = 1 To Length

r = Rnd * 9

CreateRnd = CreateRnd & CStr(r)

Next

End Function

Private Sub cmdCancel_Click()

End

End Sub

Private Sub cmdG_Click()

Dim i As Long, c As Long, s As String, out As String, all As Long, l As Long

Randomize

all = CInt(txtC.Text) - 1

l = CInt(txtLen.Text)

ReDim arr(all)

Open txtPath.Text For Output As #1

If chkRepeat.Value = vbChecked Then

Do

s = CreateRnd(l)

For i = 0 To c - 1

If arr(i) = s Then Exit For

Next

If i = c Then

arr(c) = s

c = c + 1

Print #1, s

End If

SetS CStr(c + 1) & "/" & CStr(all + 1)

Loop Until c = all

Else

Do

s = CreateRnd(l)

arr(c) = s

c = c + 1

Print #1, s

SetS CStr(c + 1) & "/" & CStr(all + 1) Loop Until c = all

End If

Close #1

SetS "保存完毕!"

End Sub

Private Sub cmdView_Click()

cd.Filter = "文本文件(*.txt)|*.txt|所有文件|*.*"

cd.ShowSave

txtPath.Text = cd.FileName

End Sub

Sub SetS(s As String)

lblState.Caption = s

DoEvents

End Sub

Private Sub txtPath_Change()

If Len(txtPath.Text) > 0 Then cmdG.Enabled = True End Sub