一个简单的VB程序设计.bangbang忙

加个按纽,在窗体上显示结果，代码如下
Private Sub Command1_Click()
Dim s As Integer, n As Integer
s = -2
n = 0
While s <= 300
s = s + 3
n = n + 1
Wend
Print "循环次数为：" & n - 1 & "次时满足S≤300"
End Sub

Dim Sum As Integer
Dim i As Integer
Dim n As Integer
Sum = 0
i = 1
Do While Sum <= 300
Sum = Sum + (3 * i - 2)
i = i + 1
Loop
Label1.Caption = i - 2

Private Sub Button1_Click()
Dim intN, intCounter As Integer
For intCounter = 1 To 300 Step 3
intN += 1
Next intCounter
Label1.Text = intN.ToString (如果你使vb6.0就用print(intN);或者Label1.Caption = intN.ToString)
End Sub

答案intN＝100 即100次循环
显示结果的不是按钮，是label，记得给我加分！！！

你要显示循环了几次么?
s=0
i=1
m=1
do
s=s+i
i=i+3
m=m+1
loop until s>300
print m
end