inmate
24.06.2009, 13:50
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
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