编写一个vb.net的程序

Question

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

Answer 1

问题解决的话，请点采纳

function foo(k as integer) as integer
return (1+k)*k/2
end function
sub button_click1()
dim m as integer
dim n as integer
m = val()
dim y as double
y = foo(m)/foo(n)
textbox1.Text = (int(y*1000+0.5)) / 1000
end sub