Vllt brauchts ja einer , musste es grade schreiben.
Erzeugt Zufallszahlen.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
mfG