Dim s(1 To 5), z As Integer
Dim sStr, zStr As String
Dim i As Integer
sStr = "abcde"
For i = 1 To 5
s(i) = InputBox("请输入" & Mid(sStr, i, 1) & "的值：")
If i > 1 Then
zStr = zStr & "+" & s(i) & "*" & i
Else
zStr = s(i)
End If
z = z + s(i) * i
Next i

MsgBox "a+2b+3c+4d+5e=" & zStr & "=" & z