Can anyone tell me what this code does.
Private Sub MysteryCode_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles MysteryCode.Click
' Determines MYSTERVALUE base on number entered by user
Dim Y As Integer, X As Integer, MYSTERYVALUE As Integer
' initialization phase
X = 1 'prepare to loop
MYSTERYVALUE = 0 'set MYSTERVALUE To 0
' processing phase
While X <= 10 ' loop 10 times
Y = X ^ 2 ' X raised to the power of 2
MYSTERYVALUE = MYSTERYVALUE + Y ' add MYSTERVALUE to Y
X = X + 1 ' add 1 to X
End While
' display MYSTERYVALUE
Text = "Value is " & MYSTERYVALUE
End Sub