문자열 문제의 정수

Question

슬롯 머신 프로그램을 만들려고합니다. 이 작업은 임의로 생성 된 숫자에 이름을 할당하려고 시도합니다. 어떤 이유로 나는 문자열로 정수를 변환 할 수 없다는 변환 오류가 발생했습니다. 나뿐만 아니라 CSTR()를 시도했지만 문제는

Sub GenerateNumbers() 
    Dim numbers(2) As Integer 
    Dim names(5) As String 
    Dim x As Integer 

    names(0) = "Cherries" 
    names(1) = "Oranges" 
    names(2) = "Plums" 
    names(3) = "Bells" 
    names(4) = "Melons" 
    names(5) = "Bar" 

    For x = 0 To 2 
     numbers(x) = names(CInt(Int((6 * Rnd()) + 1))) 
    Next x 
End Sub 

내게 오류 준다 지속 :

Answer 1

names 배열에서 임의의 문자열을 얻고 그것을 정수 배열로 선언 된 numbers에 할당하려고합니다. 물론 이것은 효과가 없을 것입니다.

외에도 에릭 (Eric)이 지적한 바와 같이 범위를 벗어나는 색인에도 문제가 있습니다.

---

의견에 대 한 응답에서 편집 :

그냥 문자열, 같은 방법으로 결과를 저장하는 배열을 선언 할 필요가 발생하는 무작위로 생성 슬롯 머신의 텍스트 값을 얻으려면 names 선언으로 .

별도의 절차에서 결과를 얻으려면이 값을 문자열을 반환 할 수있는 절차 인 Sub에서 Function으로 변경해야합니다. 그런 다음 Main 또는 다른 프로 시저에서이 함수를 호출하고 반환 된 값을 변수에 저장할 수 있습니다.

또한 랜덤 결과 생성 부분을 수정했습니다.

Module SlotMachine 

    Sub Main() 
     Dim slotResults As String() 

     'Get the results 
     slotResults = GenerateResults() 

     'Some further processing of results here, e.g. print results to console 
     For Each item In slotResults 
      Console.WriteLine(item) 
     Next 

     'Wait for keypress before closing the console window 
     Console.ReadLine() 
    End Sub 

    'Generates random results 
    Function GenerateResults() As String() 
     Dim results(2) As String 
     Dim names(5) As String 
     Dim x As Integer 

     names(0) = "Cherries" 
     names(1) = "Oranges" 
     names(2) = "Plums" 
     names(3) = "Bells" 
     names(4) = "Melons" 
     names(5) = "Bar" 

     Randomize() 

     For x = 0 To 2 
      results(x) = names(Int(6 * Rnd())) 
     Next x 

     Return results 
    End Function 

End Module 

Answer 2

Int 인 '정수'를 입력하는 문자열 "오렌지"에서 변환을 사용할 수 없습니다 (6 * RND())를 얻을 것이다 당신이 0-5, 만약 당신이 +1, 그 다음 오버플로