Counting input on inputbox Visual Basic

Question

Alright so I am quite new with programming and with Visual Basic.
I have these codes, and what I need my program to do is to count the number of input of the user. Different inputs so I have the inputbox looping and once the user enters the value "0" that's when the looping will stop and a messagebox would show up showing the number of times the inputbox looped (thus showing the number of data entered)

Dim inputNumber As Integer
Dim i As Integer

For i = 0 To inputNumber
    inputNumber = InputBox("Please enter a value")
    Do Until inputNumber = "0"
        inputNumber = i
        i = i + 1
    Loop
Next i
MsgBox(i)

So it runs but it won't loop and so the messagebox always shows 1

Well it runs but it won't loop so the message box always says 2. — VisualStudio2012
– VisualStudio2012, Commented Jan 13, 2014 at 8:18

Siddharth Rout · Accepted Answer · 2014-01-13 08:24:20Z

1

show up showing the number of times the inputbox looped

You have the loop incorrect. Is this what you are trying?

Sub Sample()
    Dim inputNumber As Long
    Dim i As Long

    inputNumber = 1

    Do Until inputNumber = 0
        inputNumber = Application.InputBox("Please enter a value", Type:=1)
        i = i + 1
    Loop
    MsgBox i
End Sub

If you are planning to accept Text as well for inputNumber then you will have to change Dim inputNumber As Long to Dim inputNumber As String and Type:=1 to Type:=2

Followup from comments

To show the number of non-zero inputs (which your question doesn't specify. It says number of loop), Change the above code to

Sub Sample()
    Dim inputNumber As Long
    Dim i As Long

    inputNumber = 1

    Do Until inputNumber = 0
        inputNumber = Application.InputBox("Please enter a value", Type:=1)
        If inputNumber <> 0 Then i = i + 1
    Loop
    MsgBox i
End Sub

edited Jan 13, 2014 at 8:24

answered Jan 13, 2014 at 8:18

Siddharth Rout

150k18 gold badges212 silver badges258 bronze badges

Sign up to request clarification or add additional context in comments.

7 Comments

robnick Over a year ago

The code isn't right, the value of i will be off by 1 if they enter the value 0 the very first time.

Siddharth Rout Over a year ago

Isn't that correct? 0 is an input to the inputbox? This is what the user said a messagebox would show up showing the number of times the inputbox looped

robnick Over a year ago

He wants to show the number of non-zero inputs. You code will be off by one ... pretty sure...

Siddharth Rout Over a year ago

Maybe you are right but where in the question does he say show the number of non-zero inputs. He says number of times the inputbox looped

VisualStudio2012 Over a year ago

Yeah it was off by one, if I entered four values, it counts five. But thanks!

|

robnick · Accepted Answer · 2014-01-13 08:19:41Z

0

Try the following:

Dim inputNumber as Integer = 0
Dim i as Integer = -1
do
    inputNumber = InputBox("Please enter a value")
    i = i + 1
Loop while inputNumber <> 0
MsgBox("Number of inputs: " & i)

answered Jan 13, 2014 at 8:19

robnick

1,76817 silver badges27 bronze badges

2 Comments

robnick Over a year ago

You are right - removed that erroneous "next i". Happy to help.

davidsbro Over a year ago

@user3189380, if this answers your question, you should mark it as so, both to benefit you and the community.

Collectives™ on Stack Overflow

Counting input on inputbox Visual Basic

2 Answers 2

7 Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

7 Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related