乱数発生に重ならないようにしたら処理時間がかなりかかる。 (ID:109306)

名前

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

本文 Private Sub Command4_Click() Dim a1 As Integer Dim a2 As Integer Dim a3 As Integer Dim a4 As Integer Dim a5 As Integer Dim a6 As Integer Dim a7 As Integer Dim a8 As Integer Dim a9 As Integer Dim a10 As Integer Do Until a1 <> a2 And a1 <> a3 And a1 <> a4 And a1 <> a5 And a1 <> a6 And a1 <> a7 And a1 <> a8 And a1 <> a9 And a1 <> a10 And _ a2 <> a3 And a2 <> a4 And a2 <> a5 And a2 <> a6 And a2 <> a7 And a2 <> a8 And a2 <> a9 And a2 <> a10 And _ a3 <> a4 And a3 <> a5 And a3 <> a6 And a3 <> a7 And a3 <> a8 And a3 <> a9 And a3 <> a10 And _ a4 <> a5 And a4 <> a6 And a4 <> a7 And a4 <> a8 And a4 <> a9 And a4 <> a10 And _ a5 <> a6 And a5 <> a7 And a5 <> a8 And a5 <> a9 And a5 <> a10 And _ a6 <> a7 And a6 <> a8 And a6 <> a9 And a6 <> a10 And _ a7 <> a8 And a7 <> a9 And a7 <> a10 And _ a8 <> a9 And a8 <> a10 And _ a9 <> a10 a1 = Int(Rnd * 10) + 1 a2 = Int(Rnd * 10) + 1 a3 = Int(Rnd * 10) + 1 a4 = Int(Rnd * 10) + 1 a5 = Int(Rnd * 10) + 1 a6 = Int(Rnd * 10) + 1 a7 = Int(Rnd * 10) + 1 a8 = Int(Rnd * 10) + 1 a9 = Int(Rnd * 10) + 1 a10 = Int(Rnd * 10) + 1 Text1.Text = a1 Text2.Text = a2 Text3.Text = a3 Text4.Text = a4 Text5.Text = a5 Text6.Text = a6 Text7.Text = a7 Text8.Text = a8 Text9.Text = a9 Text10.Text = a10 Loop end sub 乱数を１から10まで重ならないようにできたものの、いちいち比較しないとだめなんで、処理時間がかなりかかります。どうすれば、簡単に早く、乱数を 重ならないように発生できるんですか、ご指導よろしくお願いします。