Program w VBA na średnią arytmetyczną.

czarnys69 · Post autor: **czarnys69** » 4 maja 2009, o 18:49

Witam! Mam do napisania program, który:

-Ma wczytać ileś liczb rzeczywistych (nie więcej niż 20),
-za każdym razem program ma zapytać czy wprowadzić kolejną liczbę

Program liczy:
-średnią arytmetyczną
-wypisuję tę liczby, które są mniejsze jak średnia.

Nie bardzo jestem obeznany w VBA dlatego bardzo proszę o wszelką pomoc za którą z góry dziękuje;)

Undre · Post autor: **Undre** » 5 maja 2009, o 23:23

VBA ... ponieważ nie ma dokładniejszych wymogów, przyjmę sobie, że ma to być w Excelu i jako dajmy na to funkcja aktywowana jakimś guzikiem.

Czyli co, włączamy pasek 'przybornik formantów', rysujemy jakiś guzik, następnie dwukrotnie nań klikamy, co spowoduje otworzenie się edytora VB ze szkieletem funkcji :

Kod: Zaznacz cały

Private Sub CommandButton1_Click()

End Sub

Wystarczy teraz napisać odpowiednie ciało funkcji :

Kod: Zaznacz cały

Private Sub CommandButton1_Click()

Dim howmany As Integer
Dim summed As Double

Do
    strOutput = InputBox("Wprowadź liczbę :")
    summed = summed + Val(strOutput)
    howmany = howmany + 1
    
    answer = MsgBox("Zakończyć wprowadzanie ?", vbYesNo, "")
    If answer = vbYes Then
        result = CStr(summed / howmany)
        x = MsgBox("Średnia wprowadzonych liczb :" & result, vbInformation, "Rezultat")
        Exit Sub
    Else
    End If
    
Loop Until False

End Sub

czarnys69 · Post autor: **czarnys69** » 6 maja 2009, o 21:27

dzięki wielkie! A jeszcze tylko jak zrobić żeby wypisał liczby mniejsze od średniej?-- 11 maja 2009, 19:38 --Wie ktoś jak napisać żeby program wyświetlał te liczby które są mniejsze od średniej?