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

[superzhou995]

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

[superzhou995]

最后多打了个，不好意思n

[milaoshu1020]

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

[milaoshu1020]

写好了,代码如下:

Option Explicit

Private 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

[脆皮大雪糕]

简化一下

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

[superzhou995]

引用 4 楼 脆皮大雪糕的回复:

简化一下

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

十分感谢帮助，谢谢