Kth sikt, Tk, av en bestemt matematisk serie er definert av følgende formel:
| Tk | = | k2 + 6k + 1 |
| 9k + 7 |
Den første termen, T1, av serien oppnås ved å erstatte k = 1 i formelen dvs.
| T1 | = | 12 + 6 + 1 | = | 1 | og |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … og så videre |
| 18 + 7 | 25 |
Nedenfor ser vi på et program i Excel VBA at beregner ethvert begrep Tk og summering av vilkår opp til N.
Forklaring: brukeren har muligheten til å skrive inn "Alle" eller "Odd", for henholdsvis å beregne summen av de første N -termene i serien eller summen av bare de oddetermene opp til N.
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. Først deklarerer vi fire variabler av typen Heltall og en variabel av typen String.
Dim i, term, N, stepSize As Integer
Dim sumType As String
2. For det andre initialiserer vi variablene.
jeg = 0
N = Område ("C2"). Verdi
sumType = Range ("C3"). Verdi
3. Tøm feltene.
Område ("A8: B1000"). Verdi = ""
Område ("C6"). Verdi = ""
4. Bestem trinnstørrelse.
Velg Case sumType
Sak er = "Alle"
stepSize = 1
Case Is = "Odd"
stepSize = 2
Case Else
MsgBox "Skriv inn et gyldig uttrykk i celle C3"
Slutt
Avslutt Velg
Tips: gå gjennom vårt Select Case -program for å lære mer om Select Case -strukturen.
5. Gjør beregningene.
For term = 1 til N Trinn trinn Størrelse
Celler (8 + i, 1). Verdi = term
Celler (8 + i, 2). Verdi = (term 2 + (6 * term) + 1) / ((9 * term) + 7)
Område ("C6"). Verdi = Område ("C6"). Verdi + celler (8 + i, 2). Verdi
i = i + 1
Neste semester
Forklaring: vi bruker Step -søkeordet til å spesifisere økningen (1 for "Alle" og 2 for "Odd") for tellervariabelen i løkken.
Resultat:
