Question

利用VB设计一个程序：输入一个大于10的正整数n，计算sum=1+3+5+…(2n+1)，编写程序输出计算结果sum

请附上程序代码及对应成图！

Answer 1

private sub form_click()
dim n as long,sn as long
n=inputbox("请输入n")
for i=0 to n
sn=sn+2*i+1
next
msgbox "1+3+5+...(2*" & n & "+1)=" & sn
end sub