K-ty termin, Tk, pewnego szeregu matematycznego jest określony następującym wzorem:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Pierwszy termin, T1, szeregu otrzymujemy podstawiając k = 1 do wzoru i.e.
| 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 Excelu VBA, który oblicza dowolny termin Tk i sumowanie terminów do N.
Wyjaśnienie: użytkownik ma możliwość wybrania opcji „Wszystkie” lub „Nieparzyste”, aby odpowiednio obliczyć sumę pierwszych N terminów szeregu lub sumę tylko nieparzystych terminów do N.
Umieść przycisk polecenia na swoim arkuszu i dodaj następujące linie kodu:
1. Po pierwsze, deklarujemy cztery zmienne typu Integer i jedną zmienną typu String.
Dim sumType As String
2. Po drugie, inicjalizujemy zmienne.
N = Range(„C2”).Value
sumType = Range(„C3”).Value
3. Opróżniamy pola.
Range(„C6”).Value = „”
4. Określ stepSize.
Case Is = „All”
stepSize = 1
Case Is = „Odd”
stepSize = 2
Case Else
MsgBox „Enter a valid expression in cell C3”
End
End Select
Porada: przejdź przez nasz program Select Case, aby dowiedzieć się więcej o strukturze Select Case.
5. Wykonaj obliczenia.
Wyjaśnienie: używamy słowa kluczowego Step do określenia inkrementacji (1 dla „All” i 2 dla „Odd”) dla zmiennej counter w pętli.
Result:
.