一道数学题，忘了算法，请各位大哥教我！

Question

输入一个七位数，从左到右依次分离这个七位数，如
输入2345678
根据下列算法：
8×1+7×2＋6×3＋5×4+4×5+3×6+2×7得出结果分离数字的程序如下：
Do While s > 0
   s1 = s Mod 10
   s = s \ 10
LOOP
其中s为通过文本框输入的七位数，s1用来存放分离的七位数
小弟在此谢谢了！

Answer 1

i=1
s2=0
Do While s > 0
  s1 = s Mod 10
  s2 = s2 + s1 * i
  i = i + 1
  s = s \ 10
LOOP

Answer 2

Private Sub Command1_Click()
Dim s As String, i As Integer, temp As Long
s = InputBox("请输入一个整数", "提示", 2345678)
For i = 1 To Len(s)
temp = temp + Val(Mid(s, i, 1)) * (Len(s) - i + 1)
Next
MsgBox temp
End Sub