VBA Integer vs Long은 1 ~ 100의 범위에서 임의의 숫자가 선택된 숫자와 같은지 검사합니다.

Question

지난 주에 나는 VBA에서 테스트를 받아야했습니다. 나는 약간의 "게임"을 코딩해야했다. ->Int (100 * Rnd + 1)

1. 는 전화 기능이
2. 1 100 (1 포함 100) 사이의 임의의 숫자를 생성 무작위
3. (포함 1, 100) 1과 100 사이의 숫자를 선택 :이 규칙이었다
4. 임의 번호 = 선택된 번호인지 확인하십시오.
5. 5.1 true의 경우, 카운터 + 1을 추가, 게임이
   5.2 false의 경우 완료, 인쇄 카운터에 대응하기 위해 +1을 추가, 난 당신의 목표를받을 희망 3.

단계로 돌아가 게임".

정수 (16 비트)로 카운터를 초기화했습니다. 선생님은 카운터가 넘칠 수도 있음을 알려 줬습니다. 그는 오버플로 기회가 적도록 Long (32 비트)을 사용할 것을 권장합니다.

나는 픽업 한 숫자가 생성 된 숫자와 같을 확률이 1 : 100이기 때문에 카운터에서 32000 회 시도하는 것이 거의 불가능하다고 말했다.

그는 대답했다 : 그러나 그것은 아직도 가능하다.

내 질문 :
는 데이터 타입이 정수의 경우 카운터가 오버 플로우 수도 수 있습니까? 그렇다면 기회는 무엇입니까? 없다면 어떻게 증명할 수 있습니까?

왜이 질문은 통계가 아니라 stackoverflow입니까?
간단합니다. 당신이 Rnd 기능과 VBA를 알고 있기 때문에 통계에있는 사람들은 그렇지 않습니다. 당신의 설명에서

Answer 1

위의이 무한대로 갈 수 즉,뿐만 아니라 오버 플로우 수있는, 그래서 이론적으로 긴 도움이되지 않습니다, 이미 이전에 시도한 숫자를 시도하는 코드를 중지 아무것도 없을 것 같다

Answer 2

나는 파일 샘플링을 위해 과거에 사용했는데, 질문을 제기하는 데 Byte 충분 했습니까 (1-255)?

Public dicGeneratedAlready As Scripting.Dictionary 

Public Function GENERATE_RANDOM(intFromNumber As Integer) As Integer 

Randomize 

If dicGeneratedAlready Is Nothing Then Set dicGeneratedAlready = New Scripting.Dictionary 

GenerateRand: 

GENERATE_RANDOM = Int((Rnd * intFromNumber) + 1) 

If dicGeneratedAlready.Exists(CStr(GENERATE_RANDOM)) Then 
    GoTo GenerateRand 
Else 
    dicGeneratedAlready.Add CStr(GENERATE_RANDOM), CStr(GENERATE_RANDOM) 
End If 

End Function