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

名前

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

本文 dim i as integer dim numtmp as string i=int(rnd*99)+1 numtmp=i for n=1 to 8 do while instr(1,numtmp,i)>0 i=int(rnd*99)+1 loop numtmp=numtmp+"," & i next こういう感じかな・・・ たぶんこれでiは常にかぶらないと思う・・・