借走后还剩____本。
现在还有____本。
在自然数中,12=1,22=4,32=9,…,数 1,4,9,…称为完全平方数.若自然数 N=(1≤m≤2011)是一个完全平方数,则这样的 N有____ 个.
Private Sub Form_Click( )
Dim x as Integer, n as Integer
x=1
n=0
Do While x < 20
n=n+1
x=x * 3
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub