Cubo

Public Class Form1Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CmdCalcula.Click
txtRq.Text = RQ(txtNr.Text)End Sub
End Class

*****************************************************

Module Module1Function RQ(ByVal vNr As Integer) As IntegerDim cc, ci, n, r As Integercc = 1
ci = 1
n = vNr
r = n - ciDo While r > 0
cc = cc + 1
ci = ci + 2
n = r
r = n - ciLoopReturn ccEnd FunctionEnd Module