Aritmetický průměr VB

[G0dzila]

´ten pocet , proste nejde nvm proc

[Reklama]

[G0dzila]

Kód: Vybrat vše

For i = 0 To UBound(pole) Step -2
            pocet = pocet + 1
        Next

Ale timhle mě to taky nefunguje součet všech čisel jde ,ale počet už ne

[CZechBoY]

jakej Step -2 omg ?
samozřejmě jsem zapoměl na +1 u toho počtu takže sry
teď už to je funkční...
když ubereš proměnnou Pocet ubere to 4kB v paměti tušim :))
[syntax lang=vb]
Dim Celkem As Integer
pole = Split(txtText.Text, ",")
For i = 0 To UBound(pole)
Celkem = Celkem + pole(i)
Next i
MsgBox Celkem
MsgBox Celkem / (UBound(pole)+1)
[/syntax]

EDIT: ty to chceš ve VB.NET nebo ve VB6 ?

[domitea]

Psal, ze ma VB 10 coz je visual studio 2010, neboli .NET 4.0

[G0dzila]

Díky moc sintaxe už funguje

[domitea]

stiskni zelenou fajfku u prispevku