Zahlen Random

[inmate]

Vllt brauchts ja einer , musste es grade schreiben.


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

[Buggy81]

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