シャッフルで同じ番号が出てしまうのですが… (ID:104850)

名前

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

本文 Dim i As Integer Dim n As Integer Dim stri As String Dim numtmp As String i = Int(Rnd * 99) + 1 If i < 10 Then stri = "0" & i Else stri = i End If numtmp = stri For n = 1 To 8 Do While InStr(1, numtmp, stri) > 0 'numtmpにstriが含まれてる間シャッフルを繰り返す i = Int(Rnd * 99) + 1 If i < 10 Then stri = "0" & i 'この処理を行わないと完全にシャッフルにならないっぽい Else stri = i End If Loop numtmp = numtmp + "," & stri 'numtmp にstriを加える Next 正確に書けばこういう風になると思うっす。