Das KNS Begriff, Tk, einer bestimmten mathematischen Reihe wird durch die folgende Formel definiert:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Der erste Term, T1, der Reihe erhält man durch Einsetzen von k = 1 in die Formel, d.h.
| T1 | = | 12 + 6 + 1 | = | 1 | und |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … usw |
| 18 + 7 | 25 |
Im Folgenden sehen wir uns ein Programm in an Excel VBA das berechnet beliebiger Begriff Tk und Summation von Termen bis N.
Erläuterung: 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 in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir vier Variablen vom Typ Integer und eine Variable vom Typ String.
Dim i, term, N, stepSize As Integer
Dim sumType As String
2. Zweitens initialisieren wir die Variablen.
ich = 0
N = Bereich("C2").Wert
sumType = Range("C3").Value
3. Leeren Sie die Felder.
Bereich("A8:B1000").Wert = ""
Range("C6").Value = ""
4. Bestimmen Sie die Schrittgröße.
Fallsummentyp auswählen
Fall ist = "Alle"
Schrittgröße = 1
Fall ist = "ungerade"
Schrittgröße = 2
Fall sonst
MsgBox "Geben Sie einen gültigen Ausdruck in Zelle C3 ein"
Ende
Auswahl beenden
Tipp: Sehen Sie sich unser Select Case-Programm an, um mehr über die Select Case-Struktur zu erfahren.
5. Führen Sie die Berechnungen durch.
Für Begriff = 1 bis N Schritt Schrittgröße
Zellen(8 + i, 1).Wert = Begriff
Zellen (8 + i, 2).Wert = (Begriff 2 + (6 * Begriff) + 1) / ((9 * Begriff) + 7)
Range("C6").Value = Range("C6").Value + Cells(8 + i, 2).Value
ich = ich + 1
Nächstes Semester
Erklärung: Wir verwenden das Step-Schlüsselwort, um das Inkrement (1 für "All" und 2 für "Odd") für die Zählervariable der Schleife anzugeben.
Ergebnis:
