[Pytanie] Generator liczb 1 - 1000

[ExClusiVe.]

Mój kod :

 

 

Public Class Form1

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

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Generate()
    End Sub

    Private Function Generate() As String
        Dim IntRnd(1) As Object
        Dim intStep(1) As Object
        Dim strName(1) As Object
        Dim intNameLength(1) As Object
        Dim intLength(1) As Object
        Dim strInputstring(1) As Object

        strInputstring(1) = "123456789"
        intLength(1) = Len(strinputstring(1))
        intNameLength(1) = 1
        Randomize()
        strName(1) = ""
        For intStep(1) = 1 To intNameLength(1)
            intRnd(1) = Int((intLength(1) * Rnd()) + 1)
            strname(1) = strName(1) & Mid(strInputstring(1), intRnd(1), 1)
        Next

        Generate = strName(1)

    End Function
End Class

 

 

 

Chcę go przerobić tak, aby nie generowały się liczby od 1 do 9 tylko od 1 do 1000.

 

PPrzerobii mi ktoś kod ? Lub powie co zmienić ?

[Maciek2699]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim licz_str As String = "0123456789"

Dim wyn_str As String = ""

Dim rnd As New Random

For i = 1 To rnd.Next(1, 4)

wyn_str &= licz_str(rnd.Next(0, 10))

Next

TextBox1.text = wyn_str

End Sub

[ExClusiVe.]

Nie działa

[Maciek2699]

Co nie działa ? jakieś błędy czy nic ci nie wyskakuje ?

[ExClusiVe.]

5 błędów wyjebało...

[Maciek2699]

Moze napisz jakie ?

 

P.S prosze kogos jeszcze niech sprawdzi czy dziala?

[Gość]

New Random().Next(1, 1000)

[Maciek2699]

O kurde, jak to czasem czlowieka zaćmi, zasugerowalem sie pierwszym postem D: Az mi troche wstyd. :P

[ExClusiVe.]

Dzięki dzięki ... ale się jak zwyklę zgubiłem ...

 

To mam dać do mojego kodu czy dać tylko to co napisaliście ?

Gdzie dać to co dał Miszczu ?

 

 

// ok działa, dzięki bardzo !