随机整数数组

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