תוכן העניינים
ה- kה מונח, טק, מסדרה מתמטית מסוימת מוגדרת על ידי הנוסחה הבאה:
| טק | = | ק2 + 6k + 1 |
| 9k + 7 |
המונח הראשון, ט1, של הסדרה מתקבל על ידי החלפת k = 1 לנוסחה כלומר
| ט1 | = | 12 + 6 + 1 | = | 1 | ו |
| 9 + 7 | 2 |
| ט2 | = | 22 + 12 + 1 | = | 17 | … וכולי |
| 18 + 7 | 25 |
להלן נבחן תוכנית ב Excel VBA זֶה מחשבת כל מונח Tק וסיכום תנאים עד N.
הסבר: למשתמש יש את האפשרות להזין "הכל" או "מוזר", כדי לחשב בהתאמה את סכום מונחי N הראשונים בסדרה או את סכום המונחים המוזרים עד N.
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, אנו מכריזים על ארבעה משתנים מסוג מספר שלם ומשתנה אחד מסוג String.
Dim i, מונח, N, stepSize כמספר שלם
Dim sumType כמחרוזת
2. שנית, אנו מאתחלים את המשתנים.
i = 0
N = טווח ("C2"). ערך
sumType = טווח ("C3"). ערך
3. רוקן את השדות.
טווח ("A8: B1000"). ערך = ""
טווח ("C6"). ערך = ""
4. קבע את stepSize.
בחר סוג SumType
מקרה הוא = "הכל"
stepSize = 1
מקרה הוא "מוזר"
stepSize = 2
מקרה אחר
MsgBox "הזן ביטוי חוקי בתא C3"
סוֹף
סיום בחר
טיפ: עיין בתוכנית Select Case שלנו למידע נוסף על מבנה Select Case.
5. בצע את החישובים.
עבור מונח = שלב 1 עד N שלב גודל
תאים (8 + i, 1). ערך = מונח
תאים (8 + i, 2). ערך = (מונח 2 + (6 * מונח) + 1) / ((9 * מונח) + 7)
טווח ("C6"). ערך = טווח ("C6"). ערך + תאים (8 + i, 2). ערך
i = i + 1
המונח הבא
הסבר: אנו משתמשים במילת המפתח Step כדי לציין את התוספת (1 עבור "הכל" ו- 2 עבור "מוזר") עבור משתנה הנגד של הלולאה.
תוֹצָאָה:
