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追问
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()
如果这个是开头 怎么编？？？？不好意思啊。。
温馨提示：内容为网友见解，仅供参考
第1个回答 2011-12-08
dim k%,s%
k=1
s=0
do
s=s-2*k
k=k-1
loop until k>=-50
print s
k=1
s=0
do
s=s-2*k
k=k-1
loop until k>=-50
print s
Warning: Invalid argument supplied for foreach() in /www/wwwroot/www.t2y.org3v3b34/skin/templets/default/contents.html on line 47
相似回答
大家正在搜
