用vb编写程序,利用Function的函数计算下式的值：y=（1+2+3+……+m）+（1+2+3

Question

用vb编写程序,利用Function的函数计算下式的值：y=（1+2+3+……+m）+（1+2+3……+n）/(1+2+3……+p) 急

Answer 1

'供参考。朋友

Private Sub Command1_Click()
Dim m%, n%, p%, y!
m = InputBox("输入m值")
n = InputBox("输入n值")
p = InputBox("输入p值")
y = mysum(m) + mysum(n) / mysum(p)
Print y
End Sub
Private Function mysum(x%) As Long
Dim sum As Long
For i = 1 To x
sum = sum + i
Next i
mysum = sum
End Function本回答被提问者和网友采纳