|
ハチ さん:
教えていただいたコードを試しました.
おかげさまで,重複しない乱数という点は思い通りだったのですが,,,
要素("あ"など)の呈示される場所としてはMsgBoxしか使えないのでしょうか?
フォーム上のラベルに呈示させたくて,いろいろ試してみたのですがうまくいきません.
もしおわかりになれば,方法を教えてください.
よろしくお願いします.
>
>Sub Test()
> Dim myColl As Collection
> Dim i As Integer
>
> Set myColl = New Collection
>
> With myColl
> '要素の追加
> .Add "あ"
> .Add "い"
> .Add "う"
> .Add "え"
> .Add "お"
>
> '実行
> Do Until .Count = 0
> Randomize
> i = Int((Rnd * .Count) + 1)
> MsgBox .Item(i)
> .Remove i
> Loop
> End With
>
> Set myColl = Nothing
>
>End Sub
|
|