求壹道高中數列題目的VB語言設計 附圖！高手給語言設計啊 讓我好用VB6.0編 在線等！高分求

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