All pastes #814824 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-12-13 16:04 UTC
rendered paste body
        Dim intNumber As Integer
        Dim sngSqrRoot As Single
        intNumber = Val(Me.NumberTextBox.Text)
        Me.NumberTextBox.Text = intNumber
        sngSqrRoot = Val(Me.SquareRootLabel.Text)
        sngSqrRoot = Math.Sqrt(intNumber)
        Me.SquareRootLabel.Text = sngSqrRoot