Ghost47

Готов съм... оправих се ... Благодаря ти още веднъж КЕН... :P

Благодаря ти много... а ако се използва NumericUpDown ... за въвеждането на цифри да речем в един ListBox ... в смисъл идеята ще е да се подредят там числата , за да се виждат кои числа се използват... и после ще си се появяват резултатите пак както е в момента в Текст Бокса... П.п. извинявай за глупавите наглед въпроси... ама тепърва нагазвам в тия води и ... Благодаря ти за отделеното време...!

Привет на всички... имам малък проблем с една програма/код с който си блъскам тук главата... мислех си че ще успея сам , но уви... целта е следната: "Да се запълни списък със стойности и да се намери сумата , най-малката стойност , средната стойност на положителните и средната стойност на отрицателните числа в списъка" ... ако може някой да помогне , ще съм много благодарен... П.п. ето тук имаше някакви опити , но безрезултатни... естествено това е само опит ... някой ако има друго виждане за изгледа и начина нека го каже... Public Class Form1 Dim chisloto = 0, masiv(100) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click masiv(chisloto) = InputBox("Въведи число") chisloto = chisloto + 1 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim min, polojitelni, otricatelni, i, br1, br2 As Integer polojitelni = 0 otricatelni = 0 br1 = 0 br2 = 0 For i = 0 To chisloto - 1 If i = 0 Then min = masiv(i) Else If min > masiv(i) Then min = masiv(i) End If End If If masiv(i) > 0 Then polojitelni = polojitelni + masiv(i) br1 = br1 + 1 Else otricatelni = otricatelni + masiv(i) br2 = br2 + 1 End If Next TextBox2.Text = TextBox2.Text + "Минимално: " + min + vbNewLine + "Средно положителни: " + polojitelni / br1 + vbNewLine + "Средно отрицателни: " + otricatelni / br2 End Sub End Class изписва грешка... някъде тук... TextBox2.Text = TextBox2.Text + "Минимално: " + min + vbNewLine + "Средно положителни: " + polojitelni / br1 + vbNewLine + "Средно отрицателни: " + otricatelni / br2 Благодаря за отделеното време и внимание!