大侠 请赐教！！！急急

Question

当我得到x(1)、x(2)的值，现在想把它们放到下面的函数里面计算得出每一个函数值，要怎么写程序
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

Private Sub Command1_Click()
Dim a
a = getval(5, 12)
For i = 0 To UBound(a)
MsgBox a(i)
Next
End SubPrivate Function getval(ByVal x1 As Single, ByVal x2 As Single)
Dim g(4)
g(0) = 11 - x1 - x2
g(1) = 6 - x1
g(2) = 8 - x2
g(3) = x1
g(4) = x2
getval = g
End Function

Answer 2

x1 = val(inputbox("please input x1"))
x2 = val(inputbox("please input x2"))
g1 = 11 - x1 - x2
g2 = 6 - x1
g3 = 8 - x2
g4 = x1
g5 = x2
msgbox "g1 = " & g1
msgbox "g2 = " & g2
msgbox "g3 = " & g3
msgbox "g4 = " & g4
msgbox "g5 = " & g5