vb sub过程编写y=((1+2+3+……m)+(1+2+3+……+n))/(1+2+3+……p)

Private Sub Command1_Click()
m = InputBox("请输入m:")
n = InputBox("请输入n:")
p = InputBox("请输入p:")
Call jisuan(m, n, p)
End Sub
Public Sub jisuan(m, n, p)
For i = 1 To m
a = a + i
Next i
For j = 1 To n
b = b + i
Next j
For k = 1 To p
c = c + k
Next k
y = (a + b) / c
Print y
End Sub

'有点另类的解法：
Private Sub Command1_Click()
Dim m, n, p, y
m = InputBox("请输入m:", "输入", 8)
n = InputBox("请输入n:", "输入", 9)
p = InputBox("请输入p:", "输入", 10)
y = (AddTo(1, m) + AddTo(1, n)) / AddTo(1, p)
MsgBox "y=" & y
End Sub
Private Function AddTo(ByVal nStart As Long, ByVal nEnd As Long) As Long
AddTo = (nStart + nEnd) * (nEnd - nStart + 1) * 0.5
End Function

Private Sub Command1_Click()
Dim m,n,p,i,j,k As Integer
Dim y