重複しない乱数を作成しているのですが・・・ (ID:126774)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 一例としてサンプルとして投稿しときます。 説明するの面倒だからデバッグして数値がどのように変化しているのか理解して ください。ウォッチウィンドウとかで数値の変化を確認すれば流れが掴めるかと。 後、頭が０になる場合があるけど嫌なら適宜、変更して。 Private Sub Form_Load() Randomize End Sub Private Sub Command1_Click() Dim lngCount As Long Dim lngCount2 As Long Dim lngNum(9) As Long Dim lngDmy As Long '初期値設定 For lngCount = LBound(lngNum) To UBound(lngNum) lngNum(lngCount) = lngCount Next '数字を混ぜる For lngCount = LBound(lngNum) To UBound(lngNum) lngCount2 = Int(Rnd * 10) lngDmy = lngNum(lngCount2) lngNum(lngCount2) = lngNum(lngCount) lngNum(lngCount) = lngDmy Next Debug.Print lngNum(0) & lngNum(1) & lngNum(2) & lngNum(3) End Sub