Zahlen Random

Vllt brauchts ja einer , musste es grade schreiben.

Code:

---

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x(7000) As Integer
        For i = 0 To 7000
            x(i) = Rnd() * 200000
            TextBox1.Text = (x(i))
        Next
    End Sub

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

---

Erzeugt Zufallszahlen.

mfG

cool danke. speicher ich mir mal ab und vielleicht findet es ja noch seinen einsatz auf meiner hp