[ابو ليلى]

PHP كود :

       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