能否已有个简单的办法？
vb 初学者问一个问题：
这样一个求坐标的程序怎么写？
X0=(L1*X1+L2*X2+L3*X3+...Ln*Xn)/(L1+L2+L3+...Ln)
Y0=(L1*Y1+L2*Y2+L3*Y3+...Ln*Yn)/(L1+L2+L3+...Ln)
n数值不确定，是通过交互的次数得到,每一次交互后得到Li,Xi,Yi(i=1...n)。
[解决办法]
X0up=0
Y0up=0
X0do=0
Y0up=0
for i=1 to n
X0up=X0up+Li*Xi
X0do=X0do+Li
Y0up=Y0up+Li*Yi
Y0do=Y0do+Li
next i
X0=X0up/X0do
Y0=Y0up/Y0do
[解决办法]
分割符：
Dim L As String
L = CStr(L1) & "| " & CStr(L2) & "| " & CStr(L3) & "| "。。。
Call Fct(L, L个数)
Private Sub Fct(L As String, Num As Integer)
Dim i As Integer
Dim tmpL() As Integer
tmpL = Split(L, "| ", -1)
For i = 0 To Num - 1
tmpL (i)。。。
Next i
End Sub
