Loop Inputbox

I have problem I used inputbox, How to loop the Xcor and Ycor inputbox untill the number of the input station

Code:

---

Dim stnNumber As Integer
Dim Xcor As Double
Dim Ycor As Double
stnNumber = Val(InputBox("Enter a number of station(zero to quit):", "Input station"))
Xcor = Val(InputBox("Enter a X coordinate (zero to quit): =", "Input X coordinate"))
Ycor = Val(InputBox("Enter a Y coordinate (zero to quit): =", "Input Y coordinate"))

---

How about a straightforward For / Next Loop ?

Code:

---

For I = 1 To stnNumber

<put your Inputbox statements etc here>

Next I

---

How to terminated the program from continuing looping the program

Well, if the user puts in, for example, 2 as the station number, the loop will only execute 2 times.
What code have you tried?

Matrik

Your requirements are a little vague, but Doogle
has nonetheless presented a possible approach.

Building on his loop, you possibly already have an "out" ..
namely, your "Enter a number of station(zero to quit):" .

So, one logical extension might be ...

Code:

---

For I = 1 To stnNumber
    stnNumber = Val(InputBox("Enter a number of station(zero to quit):", "Input station"))
    Xcor = Val(InputBox("Enter a X coordinate (zero to quit): =", "Input X coordinate"))
    Ycor = Val(InputBox("Enter a Y coordinate (zero to quit): =", "Input Y coordinate"))Next I
    If strNumber = 0 Or Xcor = 0 Or Ycor = 0 Then
        Exit For
    End If

---

Hope that gives you some ideas

Spoo

You need to read stnNumber in before you can control a loop using it !

Code:

---

stnNumber = Val(InputBox("Enter a number of station(zero to quit):", "Input station"))
For I = 1 To stnNumber
    Xcor = Val(InputBox("Enter a X coordinate (zero to quit): =", "Input X coordinate"))
    Ycor = Val(InputBox("Enter a Y coordinate (zero to quit): =", "Input Y coordinate"))
'
' do something with Xcor and Ycor
' Then go back and ask for the next values
'
Next I
'
' All Xcor and Ycor values have been read and processed
' If stnNumber was zero then the loop will not have been executed
' (no need for an If statement, although you'll need to determine
' whether any Xcor and Ycor data have been input)
'

---

Doogle

My bad .. :blush:
Thank you for the catch

Spoo