VB编程从键盘输入k，求1^2+2^2+3^2+…+k^2。求编程

k = val(inputbox("请输入k"))
s = 0
for i = 1 to k
s = s + i ^ 2
next
msgbox "结果为" & s追问

这个格式的 麻烦了

追答

Private Sub Command1_Click()
Dim i As Long, s As Long
For i = 1 To Val(Text1.Text)
s = s + i ^ 2
Next
Text2.Text = s
End Sub

本回答被提问者采纳