KNS termin, Tk, pewnego szeregu matematycznego określa następujący wzór:
| Tk | = | k2 + 6 tys. + 1 |
| 9k + 7 |
Pierwszy termin T1, szeregu otrzymuje się przez podstawienie k = 1 do wzoru tj.
| T1 | = | 12 + 6 + 1 | = | 1 | oraz |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … i tak dalej |
| 18 + 7 | 25 |
Poniżej przyjrzymy się programowi w Excel VBA że oblicza dowolny termin Tk i sumowanie terminów do N.
Wyjaśnienie: użytkownik ma możliwość wpisania „Wszystkie” lub „Nieparzyste”, aby odpowiednio obliczyć sumę pierwszych N wyrazów serii lub sumę tylko nieparzystych wyrazów do N.
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw deklarujemy cztery zmienne typu Integer i jedną zmienną typu String.
Dim i, term, N, stepSize As Integer
Dim sumType jako ciąg
2. Po drugie, inicjujemy zmienne.
ja = 0
N = Zakres("C2").Wartość
sumType = Zakres("C3").Wartość
3. Opróżnij pola.
Zakres("A8:B1000").Wartość = ""
Zakres("C6").Wartość = ""
4. Określ rozmiar kroku.
Wybierz przypadek sumy
Wielkość liter = „Wszystkie”
krokRozmiar = 1
Wielkość liter = „Dziwne”
krokRozmiar = 2
Przypadek inny
MsgBox "Wprowadź prawidłowe wyrażenie w komórce C3"
Koniec
Koniec Wybierz
Wskazówka: przejrzyj nasz program Select Case, aby dowiedzieć się więcej o strukturze Select Case.
5. Wykonaj obliczenia.
Dla term = 1 do N Krok krokuRozmiar
Komórki(8 + i, 1)).Wartość = term
Komórki(8 + i, 2)).Wartość = (termin 2 + (6 * termin) + 1) / ((9 * termin) + 7)
Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value
ja = ja + 1
Następny termin
Objaśnienie: używamy słowa kluczowego Step, aby określić przyrost (1 dla "Wszystkie" i 2 dla "Odd") dla zmiennej licznika pętli.
Wynik:
