AnahtarNS terim, Tk, belirli bir matematiksel serinin aşağıdaki formülle tanımlanır:
Tk | = | k2 + 6k + 1 |
9k + 7 |
İlk terim, T1, serinin k = 1'i formülde yerine koyarak elde edilir, yani.
T1 | = | 12 + 6 + 1 | = | 1 | ve |
9 + 7 | 2 |
T2 | = | 22 + 12 + 1 | = | 17 | … ve benzeri |
18 + 7 | 25 |
Aşağıda bir programa bakacağız Excel VBA'sı o hesaplar herhangi bir terim Tk ve N'ye kadar olan terimlerin toplamı.
Açıklama: Kullanıcı, sırasıyla serinin ilk N teriminin toplamını veya yalnızca N'ye kadar olan tek terimlerin toplamını hesaplamak için "Tümü" veya "Tek" girme seçeneğine sahiptir.
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk olarak, Integer türünde dört değişken ve String türünde bir değişken tanımlıyoruz.
Dim i, terim, N, stepSize As Integer
Dize Olarak Dim sumType
2. İkinci olarak, değişkenleri başlatıyoruz.
ben = 0
N = Aralık("C2").Değer
sumType = Aralık("C3").Value
3. Alanları boşaltın.
Aralık("A8:B1000").Değer = ""
Aralık("C6").Değer = ""
4. stepSize'ı belirleyin.
Vaka toplamıType'ı seçin
Durum = "Tümü"
adımBoyutu = 1
Durum = "Tek"
adımBoyutu = 2
Durum Başka
MsgBox "C3 hücresine geçerli bir ifade girin"
Son
Seçimi Bitir
İpucu: Select Case yapısı hakkında daha fazla bilgi edinmek için Select Case programımıza göz atın.
5. Hesaplamaları yapın.
Terim için = 1'den N'ye Adım adımSize
Hücreler(8 + i, 1).Value = terim
Hücreler(8 + i, 2).Value = (terim 2 + (6 * terim) + 1) / ((9 * terim) + 7)
Aralık("C6").Değer = Aralık("C6").Değer + Hücreler(8 + i, 2).Değer
ben = ben + 1
Önümüzdeki dönem
Açıklama: döngünün sayaç değişkeni için artışı (1 "Tümü" için 1 ve "Tek" için 2) belirtmek için Step anahtar sözcüğünü kullanırız.
Sonuç: