求一道高中数列题目的VB语言设计 附图！高手给语言设计啊 让我好用VB6.0编 在线等！高分求

Question

求！

Answer 1

Private Sub Form_Load()
k = 1
s = 0
While k >= -50
s = s - 2 * k
k = k - 1
Wend
MsgBox s
End Sub
这个是用提示框显示
或者直接显示在窗体上
Private Sub Form_Load()
Me.AutoRedraw = True
k = 1
s = 0
While k >= -50
s = s - 2 * k
k = k - 1
Wend
Print s
End Sub追问

Private Sub Command1_Click()
如果这个是开头 怎么编？？？？不好意思啊。。

Answer 2

dim k%,s%
k=1
s=0
do
s=s-2*k
k=k-1
loop until k>=-50
print s