[RESOLVED] how can generate such arry number

[vbsunst]

I want to generate such array number,guys,pls,
001
002
003
004
005
....

[jmcilhinney]

If you need the leading zeroes then you can't use numbers because numbers don't have leading zeroes. You'd have to use strings:

Dim numbers(n - 1) As String
 
For counter As Integer = 1 To n
    numbers(n - 1) = counter.ToString("000")
Next

[vbsunst]

thanks jmcilhinney, I used codes you provided, and I try some codes like below,

Dim n As integer
n = TextBox1.Text
Dim numbers(n - 1) As String

For counter As Integer = 1 To n
numbers(n - 1) = counter.ToString("000")
Next

TextBox2.Text = numbers(n - 1)

it does only show the number I input into the textbox1 and prefix ,

[jmcilhinney]

That would be because you're only showing the last number in the sequence. 'numbers' is an array with n elements and you're only showing the one at index (n - 1), i.e. the last one. If you want to see them all try doing this:

MessageBox.Show(String.Join(ControlChars.NewLine, numbers))

[vbsunst]

thanks a again, but actually, I could not figure our where my mistake is with your help, for example, I input the "7" at textbox1, and results screen like as below

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n As Integer
n = TextBox1.Text
Dim numbers(n - 1) As String
For counter As Integer = 1 To n
numbers(n - 1) = counter.ToString("000")
Next
MessageBox.Show(String.Join(ControlChars.NewLine, numbers))

[jmcilhinney]

Sorry, my mistake. That should have been

numbers(counter - 1) = counter.ToString("000")

[vbsunst]

thanks for your great help, it works fine now