수다닷컴

Dim i%
Randomize
Random = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Chr(Int((90 - 65 + 1) * Rnd + 65)) & _
Chr(Int((57 - 48 + 1) * Rnd + 48)) & Chr(Int((57 - 48 + 1) * Rnd + 48))
Key(3) =
For j = 1 To 6
Key(3) = Key(3) & Int(9 * Rnd)
Next j
For i = Label3.LBound To Label3.UBound
Label3(i) = Key(3)
Randomize
Next i

이게 타이머에 들어갈 소스인데요..

이걸 타이머에 넣고 실행해보면 .. 레이블에 똑같은 숫자가 나오거든요 ? ;

(1).각자 다르게 나오게 할수는 없나요 ? .. 뭐가 잘못된건지.. 레이블에 다 나오긴 하는데 .. 각자 다른 숫자가 안나오고 똑같은 숫자가 나오네요 ;
(2).
Dim i%
Randomize
Random = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Chr(Int((90 - 65 + 1) * Rnd + 65)) & _
Chr(Int((57 - 48 + 1) * Rnd + 48)) & Chr(Int((57 - 48 + 1) * Rnd + 48))
Key(3) =
For j = 1 To 6
Key(3) = Key(3) & Int(9 * Rnd)
Next j
For i = Label3.LBound To Label3.UBound
Label3(i) = CStr(Int((90 - 65 + 1) * Rnd + 65)) & Chr(Int((90 - 65 + 1) * Rnd + 65)) & _
(Int((57 - 48 + 1) * Rnd + 48)) & Chr(Int((57 - 48 + 1) * Rnd + 48))

Randomize
Next i

저소스를 조금 변형(?)을 했는데 다른 숫자가 나오기는해요 ! .. 근데 숫자는 나오는데 3번재 자리에 영어가 나와요.. 그걸 숫자로 못바꾸나요 ? ;

신청하기