Il kesimo termine, Tk, di una certa serie matematica è definito 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 che calcola qualsiasi termine Tk e somma 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.
Porre un pulsante di comando sul foglio di lavoro e aggiungere le seguenti righe di codice:
1. Per prima cosa, dichiariamo quattro variabili di tipo Integer e una variabile di tipo String.
Dim sumType As String
2. In secondo luogo, inizializziamo le variabili.
N = Range(“C2”).Value
sumType = Range(“C3”).Value
3. Svuota i campi.
Range(“C6”).Value = “”
4. Determinare stepSize.
Case Is = “All”
stepSize = 1
Case Is = “Odd”
stepSize = 2
Case Else
MsgBox “Enter a valid expression in cell C3”
End
End Select
Tip: vai nel nostro programma Select Case per imparare di più sulla struttura Select Case.
5. Fate i calcoli.
Spiegazione: usiamo la parola chiave Step per specificare l’incremento (1 per “All” e 2 per “Odd”) per la variabile contatore del ciclo.
Risultato:
