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

名前

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

本文 安定した時間で１から１０の値がほしいのであれば、 値をシャッフルする事で取得できます。 シャッフル回数を変更することで、バラツキ率が変更 できます。 Private Sub Command1_Click() Dim I As Integer Dim iData(0 To 9) As Integer Dim iIndex1 As Integer Dim iIndex2 As Integer Dim iDataBack As Integer ' 1 〜 10までの連続した数値を用意する For I = 0 To 9 iData(I) = I + 1 Next I ' 値をシャッフルする For I = 1 To 10 iIndex1 = Int(Rnd * 10) iIndex2 = Int(Rnd * 10) iDataBack = iData(iIndex1) iData(iIndex1) = iData(iIndex2) iData(iIndex2) = iDataBack Next I ' 数値を表示する Text1.Text = CStr(iData(0)) Text2.Text = CStr(iData(1)) Text3.Text = CStr(iData(2)) Text4.Text = CStr(iData(3)) Text5.Text = CStr(iData(4)) Text6.Text = CStr(iData(5)) Text7.Text = CStr(iData(6)) Text8.Text = CStr(iData(7)) Text9.Text = CStr(iData(8)) Text10.Text = CStr(iData(9)) End Sub