Der k-te Term, Tk, einer bestimmten mathematischen Reihe wird durch die folgende Formel definiert:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Den ersten Term, T1, der Reihe erhält man durch Einsetzen von k = 1 in die Formel i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | und |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … und so weiter |
| 18 + 7 | 25 |
Nachfolgend sehen wir uns ein Programm in Excel VBA an, das einen beliebigen Term Tk und die Summierung von Termen bis zu N berechnet.
Erklärung: Der Benutzer hat die Möglichkeit, „Alle“ oder „Ungerade“ einzugeben, um jeweils die Summe der ersten N Terme der Reihe oder die Summe nur der ungeraden Terme bis N zu berechnen.
Platzieren Sie eine Befehlsschaltfläche auf Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen ein:
1. Zunächst deklarieren wir vier Variablen vom Typ Integer und eine Variable vom Typ String.
Dim sumType As String
2. Dann initialisieren wir die Variablen.
N = Range(„C2“).Value
sumType = Range(„C3“).Value
3. Leeren Sie die Felder.
Range(„C6“).Value = „“
4. Bestimmen Sie stepSize.
Case Is = „All“
stepSize = 1
Case Is = „Odd“
stepSize = 2
Case Else
MsgBox „Geben Sie einen gültigen Ausdruck in Zelle C3 ein“
End
End Select
Tipp: Gehen Sie unser Select Case Programm durch, um mehr über die Select Case Struktur zu erfahren.
5. Führen Sie die Berechnungen durch.
Erläuterung: Wir verwenden das Schlüsselwort Step, um die Schrittweite (1 für „Alle“ und 2 für „Ungerade“) für die Zählervariable der Schleife anzugeben.
Ergebnis:
