继续请教！！！急急

Question

当我得到x(1)、x(2)的值，其中x(1)、x(2)是数组X（8）的前两个数，现在想把它们放到下面的函数里面计算得出每一个函数值，要怎么写程序
g(1) = 11 - x(1) - x(2)
g(2) = 6 - x(1)
g(3) = 8 - x(2)
g(4) = x(1)
g(5) = x(2)

Answer 1

就是g(1) = 11 - x(1) - x(2)
g(2) = 6 - x(1)
g(3) = 8 - x(2)
g(4) = x(1)
g(5) = x(2)
这几个函数啊

Answer 2

Private Sub Command1_Click()
   Dim g(1 To 5) As Integer
   Dim x(1 To 8) As Integer
   Dim i As Integer
   
   x(1) = 1
   x(2) = 2
   f g, x
   For i = 1 To 5
       Debug.Print g(i);
   Next
   
End Sub
Private Sub f(g() As Integer, x() As Integer)
   g(1) = 11 - x(1) - x(2)
   g(2) = 6 - x(1)
   g(3) = 8 - x(2)
   g(4) = x(1)
   g(5) = x(2)
End Sub