il kns termine, TK, di una certa serie matematica è definita dalla seguente formula:
| TK | = | K2 + 6k + 1 |
| 9k + 7 |
Il primo termine, T1, della serie si ottiene sostituendo k = 1 nella formula i.e.
| T1 | = | 12 + 6 + 1 | = | 1 | e |
| 9 + 7 | 2 |
| T2 | = | 22 + 12 + 1 | = | 17 | … e così via |
| 18 + 7 | 25 |
Di seguito vedremo un programma in Excel VBA Quello calcola qualsiasi termine TK e sommatoria di termini fino a N.
Spiegazione: l'utente ha la possibilità di inserire "Tutti" o "Dispari", per calcolare rispettivamente la somma dei primi N termini della serie o la somma dei soli termini dispari fino a N.
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dichiariamo quattro variabili di tipo Integer e una variabile di tipo String.
Dim i, term, N, stepSize As Integer
Dim sumType As String
2. In secondo luogo, inizializziamo le variabili.
io = 0
N = Intervallo ("C2"). Valore
sumType = Range ("C3"). Valore
3. Svuotare i campi.
Intervallo ("A8: B1000"). Valore = ""
Intervallo ("C6"). Valore = ""
4. Determinare StepSize.
Seleziona il tipo di somma del caso
Il caso è = "Tutto"
passoSize = 1
Il caso è = "Dispari"
passoSize = 2
Caso Altro
MsgBox "Inserisci un'espressione valida nella cella C3"
Fine
Fine selezione
Suggerimento: consulta il nostro programma Select Case per saperne di più sulla struttura Select Case.
5. Fai i calcoli.
Per termine = da 1 a N Step StepSize
Celle(8 + i, 1).Valore = termine
Celle(8 + i, 2).Valore = (termine 2 + (6 * termine) + 1) / ((9 * termine) + 7)
Intervallo ("C6"). Valore = Intervallo ("C6"). Valore + Celle (8 + i, 2). Valore
io = io + 1
Il prossimo termine
Spiegazione: usiamo la parola chiave Step per specificare l'incremento (1 per "All" e 2 per "Odd") per la variabile contatore del ciclo.
Risultato:
