分类：电脑/网络-软件
问题：BasicVisual输入N，计算s=1+4+9+16+...+ 
输入N，计算s=1+4+9+16+...+N^2求编程
回答：Private Sub Command1_Click() *注释：我建立了一个按钮
Dim s As Double
Dim n As Integer
Dim a As Integer       *注释：我怕s过大会溢出，所以double
s = 0
n = InputBox("输入n")
For a = 1 To n         *注释：循环，用a来做过渡变量
s = s + (a ^ 2)
Next a
Print s                *注释：输出s
End Sub
    相当简单的一个程序，建议可以学习编辑一下1加到100的程序，这个程序也会迎刃而解的。