Private Sub Beispiel()
MsgBox "3:2=" & Int(3 / 2) & " Rest " & (3 Mod 2)
End Sub

Dim MyArray(5) As Double
Dim i As Integer
 
Private Sub Beispiel()
For i = LBound(MyArray) To UBound(MyArray)
MyArray(i) = Int(100 * Rnd + 1) 'Zuweisung von Zufallszahlen
Next i
 
'Ausgabe der Zufallszahlen
MsgBox MyArray(0) & vbCrLf & _
        MyArray(1) & vbCrLf & _
        MyArray(2) & vbCrLf & _
        MyArray(3) & vbCrLf & _
        MyArray(4) & vbCrLf & _
        MyArray(5)
End Sub