22455

Zad. 2.1. Do komórek C5:C20 wpisz następujące liczby całkowite:

2, 38.99, 24, 8, 25, 68, 24, 61.22, 49, 39, 80. 85. 50. 82

Utwórz wektor o nazwie tabl i wczytaj te liczby wektora. Następnie wypisz liczby do wiersza czwartego począwszy od kolumny D.

Wskazówka!

Wpisanie wartości zmiennej do określonej komórki arkusza, przeprowadza się wg szablonu: Cel ls (/; r_wiersza, nr_kolunmy). Value = NazwaZmiennej Pobranie wartości zmiennej z określonej komórki arkusza:

NazwaZmiennej = Ce\\s(nr__wiersza, nr_koiumny).Xalue

Zad. 2.2. Zmodyfikuj program z zadania 2.1 tak, aby w:

a)    komórce 1)5 wypisywał sumę parzystych elementów znajdujących się w wektorze tabl,

b)    komórce E5 średnią z elementów wektora

c)    komórce F5 zliczał liczbę elementów większą od średniej arytmetycznej.

Zad. 2.3. Utwórz 70-elementowy wektor, którego pierwsze 20 elementów to 20 kolejnych liczb naturalnych, począwszy od 12, kolejne 20 elementów jest generowanych z przedziału od <3; 9). elementy od 40 do 61 stanowią liczby: 20,19,18.... a ostatnie elementy mają wartość 33. Wyświetl elementy wektora w kolumnie D począwszy od komórki 10 Exccla.

Wskazówka!

a = Rnd() 'losuje do zmiennej a liczbę z przedziału <0; 1) a = Int( 100 * Rnd()) 'losuje do zmiennej a liczbę całkowitą z przedziału <0:100) Ogólny wzór na losowanie z przedziału <a.b):

Int((b-a)*Rnd() + a)

Zad. 2.4. Wektor 30 elementowy wypełnić liczbami losowymi całkowitymi z przedziału od <-100; 100). Następnie wypisać wszystkie elementy tego wektora do kolumny B arkusza drugiego. Napisać program, który znajdzie minimum i maksimum z bezwzględnych wartości (funkcja Abs()> elementów wektora i wypisze te wartości pod wektorem. Zmodyfikować program tak. żeby tło komórek w których znajduje się najmniejsza i największa wartość zmieniały się na czerwone.

Wskazówka!

Arkusz2.Cells(2,2).Value = 3 ‘wpisuje do komórki B2 w arkuszu 2 wartość 3 Cells(2.2).Interior.ColorIndex = nr ‘zmienia tło B2 w aktywnym arkuszu na kolor o wartości

nr (np. 3-czerwony, 4-zielony)