Dim x(8) As Double, a(8, 8) As Double
Dim i As Integer, j As Integer
Dim s As String
Private Sub Form_Load()
For i = 1 To 8
x(i) = 10 * Rnd()
'MsgBox x(i)
Next
'a
For i = 1 To 8
s = ""
For j = 1 To 8
a(i, j) = x(j) ^ i
s = s & " " & Str(a(i, j))
Next
MsgBox s
Next
'b
For i = 1 To 8
s = ""
For j = 1 To 8
a(i, j) = x(j) ^ (i - 1)
s = s & " " & Str(a(i, j))
Next
MsgBox s
Next

End Sub