k=25
注意避免多一错误和丢一错误.
程序如下：
Private Sub Command1_Click()
Dim k As Integer,s As Integer
k = 0
s = 0
While s < 100
s = s + 2 ^ 2
k = k + 1
Wend
Print k
End Sub