VB程序设计题:由输入对话框输入n(n必须为大于零且小于30的自然数),计算表达式sum=1/2+1/6+…+1/(k*(k+1))的值,(k

问题描述:

VB程序设计题:由输入对话框输入n(n必须为大于零且小于30的自然数),
计算表达式sum=1/2+1/6+…+1/(k*(k+1))的值,(k

Private sub form_click()
Dim n as integer,sum as double,k as integer
N = val(inputbox(“n=”,”请输入自然数n(n>0且n n !
Label1.caption = “sum” + str(sum)
End sub