Click here to Skip to main content
13,049,233 members (72,424 online)
Rate this:
Please Sign up or sign in to vote.
See more:
Dim s As String
        Dim a, b, c As Long
        a = CLng(Val(TxtBoxInput.Text))
        s = TxtBoxInput.Text
        For i = 1 To Len(s) Step 1
            b = CLng(Mid(s, i, 1))
            c = Len(s) - i
            b = CLng(Val(b) * (2 ^ c))
            TxtBoxInput.Text = CStr(Val(TxtBoxInput.Text) + b)

        Next i
Posted 18-Apr-13 14:58pm
Updated 18-Apr-13 15:05pm
ThePhantomUpvoter 18-Apr-13 22:33pm
Not a question or any description of a problem
_Maxxx_ 19-Apr-13 0:33am
What "answer"? The function manipulates the textbox and puts the results back in the textbox as far as I can see - so MessageBox.Show(TxtBoxInput.Text) would do what you ask - but I can't believe that's what you mean!

1 solution

Rate this: bad
Please Sign up or sign in to vote.

Solution 1

do u really want a messege box to show ur answer inspite it is shown in a text box

write this"+TxtBoxInput.Text+","Your Answer ")

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy | Mobile
Web01 | 2.8.170713.1 | Last Updated 19 Apr 2013
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100