deklarasi array dinamik

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'cek input banyak data harus angka.
If Not IsNumeric(TextBox2.Text) Then
MsgBox("Masukan angka banyak data !")
Exit Sub
End If

'deklarasi array
Dim DataStat(TextBox2.text - 1) As Double
'deklarasi array dinamik
Dim Stat() As Double
Dim i As Integer
'Angka betul betul acak
Dim Acak As New System.Random()
ListBox1.Items.Clear()
For i = 0 To TextBox2.Text - 1
'Bilangan acak dari 1 sampai 100000
DataStat(i) = Int(Acak.NextDouble() * 100000 + 1)
ListBox1.Items.Add(DataStat(i))
Next
Stat = ArrayStat(DataStat)
'Menampilkan hasil pada TextBox
TextBox1.Text = "Jumlah" & vbTab & vbTab & Stat(0)
TextBox1.Text = TextBox1.Text & vbCrLf & _
"Rata-rata" & vbTab & vbTab & Stat(1)
TextBox1.Text = TextBox1.Text & vbCrLf & _
"Simpangan baku" & vbTab & Stat(2)
TextBox1.Text = TextBox1.Text & vbCrLf & _
"Varian" & vbTab & vbTab & Stat(3)
TextBox1.Text = TextBox1.Text & vbCrLf & _
"Nilai terendah" & vbTab & Stat(4)
TextBox1.Text = TextBox1.Text & vbCrLf & _
"Nilai tertinggi" & vbTab & Stat(5)
TextBox1.Text = TextBox1.Text & vbCrLf & _
"Banyak data" & vbTab & Stat(6)
End Sub

Function ArrayStat(ByVal DataArray() As Double) As Double()
Dim Hasil(6) As Double
Dim Jumlah As Double = 0
Dim JumlahKuadrat As Double = 0
Dim DataMin As Double = System.Double.MaxValue
Dim DataMaks As Double = System.Double.MinValue
Dim BanyakData As Integer = 0
Dim i As Integer

For i = 0 To DataArray.GetUpperBound(0)
Jumlah += DataArray(i)
JumlahKuadrat += DataArray(i) ^ 2
If DataArray(i) > DataMaks Then DataMaks = DataArray(i)
If DataArray(i) < DataMin Then DataMin = DataArray(i) BanyakData += 1 Next Dim Ratarata, SimpanganBaku, Varian As Double Ratarata = Jumlah / BanyakData SimpanganBaku = Math.Sqrt(JumlahKuadrat / BanyakData - _ Ratarata ^ 2) Varian = SimpanganBaku ^ 2 Hasil(0) = Jumlah Hasil(1) = Ratarata Hasil(2) = SimpanganBaku Hasil(3) = Varian Hasil(4) = DataMin Hasil(5) = DataMaks Hasil(6) = BanyakData ArrayStat = Hasil End Function End Class

program silahkan download di sinih :
http://www.4shared.com/file/MG0lJkdG/array_dinamik.html