Visual Basic

Option Strict On
Public Class Form1
    Dim rlmemory1 As Single
    Dim rlmemory2 As Single
    Dim rlmemory3 As Single
    Dim rlinput1 As Single
    Dim rlinput2 As Single
    Dim rlinput3 As Single

    Private Sub btnAsc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAsc.Click
        rlinput1 = CSng(txtInput1.Text)
        rlinput2 = CSng(txtInput2.Text)
        rlinput3 = CSng(txtInput3.Text)

        rlmemory1 = rlinput1
        rlmemory2 = rlinput2
        rlmemory3 = rlinput

        If IsNumeric(txtInput1.Text) = False Then
            MsgBox("Please input numeric value to input1")
        ElseIf IsNumeric(txtInput2.Text) = False Then
            MsgBox("Please input numeric value to input2")
        ElseIf IsNumeric(txtInput3.Text) = False Then
            MsgBox("Please input numeric value to input3")
        End If

            If rlmemory3 > rlmemory1 Then
                txtInput1.Text = CStr(rlmemory3)
                txtInput3.Text = CStr(rlmemory1)
            End If

            If rlmemory2 > rlmemory1 Then
                txtInput1.Text = CStr(rlmemory2)
                txtInput2.Text = CStr(rlmemory1)
            End If

            If rlmemory3 > rlmemory2 Then
                txtInput2.Text = CStr(rlmemory3)
                txtInput3.Text = CStr(rlmemory2)
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        rlmemory1 = 0
        rlmemory2 = 0
        rlmemory3 = 0

    End Sub
End Class

<br />
equation = txtequation.text<br />
length = len(equation)<br />
for i = 1 to length<br />
  temp = mid(equation,i,1)<br />
  tempstack.add temp<br />
  output = output & temp<br />
next i<br />