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
dim k%,s%
k=1
s=0
do
s=s-2*k
k=k-1
loop until k>=-50
print s
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024