무작위 정수 배열

Question

먼저 3 개의 임의의 정수를 생성 한 다음 해당 사각형과 큐브를 인쇄하는 programm를 작성하려고합니다.

는 이미 계산하고 출력을 가지고 있지만, 나는 난수를 생성하는 방법을 알고하지는.

(키우면 검증되지 않은 코드 : 당신은 단지 루프를 사용하려는 경우

Dim NumOfIntegers() As Integer = {1, 2, 3, 4, 8} 
Dim x, y As Integer 
For Each num As Integer In NumOfIntegers 
    x = num^2 
    y = num^3 
    MessageBox.Show("Square Of " & num & " = " & x & vbCrLf & "Cube Of " & num & " = " & y) 
Next 

Answer 1

이 코드는 1에서 100

Dim NumOfIntegers As New List(Of Integer) 

While NumOfIntegers.Count < 3 
    Dim i As Integer = CInt(Math.Ceiling(Rnd() * 100)) + 1 
    If Not NumOfIntegers.Contains(i) Then NumOfIntegers.Add(i) 
End While 

NumOfIntegers.Sort() 

Dim x, y As Integer  
For Each num As Integer In NumOfIntegers 
    x = num^2 
    y = num^3 
    MessageBox.Show("Square Of " & num & " = " & x & vbCrLf & "Cube Of " & num & " = " & y) 
Next 

코드를 사이에 3 개 개의 다른 임의의 숫자와 정수 목록을 채 웁니다 3 정수 내에서 중복 될 수 있습니다)

Dim NumOfIntegers() As New Integer = {(CInt(Math.Ceiling(Rnd() * 100)) + 1), (CInt(Math.Ceiling(Rnd() * 100)) + 1), (CInt(Math.Ceiling(Rnd() * 100)) + 1)} 

Dim x, y As Integer  
For Each num As Integer In NumOfIntegers 
    x = num^2 
    y = num^3 
    MessageBox.Show("Square Of " & num & " = " & x & vbCrLf & "Cube Of " & num & " = " & y) 
Next