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 su
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 su