Írjunk makrót, amely inputboxban beolvasott két szám közötti páratlan számok összegét számolja ki.?

S: egy számláló lesz, amit arra használsz, hogy abba adogasd össze a páratlan számokat

1. Bekéred a két számot inputként és deklarálsz egy változót, amit majd később használsz:

s = 0

a = InputBox("kerek egy szamot")

b = InputBox("kerek egy masik szamot")

2. Ha az első szám nagyobb, mint a második, felcseréled őket, ha nem, akkor nem, mert később a-tól haladsz növekvő sorrendben b felé:

If a>b Then

c = a

a = b

b = c

End If

3. Végigmész a-tól b-ig az összes számon és aminek kettővel vett osztási maradéka 1-et ad, vagyis mod 2 = 1, vagyis páratlan, azt hozzáadod az s értékéhez:

For i = a To b

If i Mod 2 = 1 Then

s = s + i

End If

4. Kiírod ezeknek a számoknak az összegét, vagyis az s értékét:

MsgBox "a ket szam kozotti paratlan szamok osszege= " & s

End Sub