隨機整數數組

Question

我想寫一個程序，它首先生成三個隨機整數，然後打印出它們的正方形和立方體。

我已經有計算和輸出，但我不知道如何生成隨機數。

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張不同的隨機數，如果你只需要使用一個for循環：

（It's未經測試的代碼並且在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