哪位大佬帮忙这个vb代码呀，万分感谢

Question

编写函数求1+2+..+k，点击计算，click时间使用imputbox输入m.n的值，调用该函数计算y，用文本框显示，保留3位小数，Y＝(1+2+...m)/(1+2+...＋nn)

Answer 1

编写函数求1+2+..+k，点击计算，click事件使用inputbox输入m.n的值，调用该函数计算y，用文本框显示，保留3位小数，Y＝(1+2+...m)/(1+2+...＋n)
是这样对吧?

Answer 2

写好了,代码如下:Option ExplicitPrivate Sub Command1_Click()
    Dim m As Long
    m = InputBox("m=")
    
    Dim n As Long
    n = InputBox("n=")
    
    Dim m_sum As Long
    m_sum = 0
    
    Dim i As Long
    For i = 1 To m
        m_sum = m_sum + i
    Next
    
    Dim n_sum As Long
    n_sum = 0
    
    For i = 1 To n
        n_sum = n_sum + i
    Next
    
    Dim y As Double
    y = m_sum / n_sum
    
    Text1.Text = Format(y, "0.000")
End Sub运行示例:下载地址:
链接：https://pan.baidu.com/s/1OsA1YHiQs3Jh9s4j5D2SUQ 
提取码：fto5 

Answer 3

简化一下Private Sub Command1_Click()
    Dim m As Long
    m = InputBox("m=")
    Dim n As Long
    n = InputBox("n=")
    
    Text1.Text = Format(((1 + m) * m) / ((1 + n) * n), "0.000")
    
End Sub