Private Sub Command1_Click()
n = 0
Do
  n = n + 1
  s = n * n
Loop Until (s >= 10000)
Print n - 1
End Sub
Private Sub Command2_Click()
n = 1
Do
  n = n + 1
  s = n ^ 3
  Print n - 1
Loop Until (s >= 10000)
End Sub
Private Sub Form_Load()
End Sub