Harjutus

Loo “Oma menüü”‘s  jaotis nimega Indeks, kuhu lisa makrode käivitamise võimalust.

Makro ehk Sub’i nimi on KehaIndeks().

Müsi kasutajal MsgBox() või InpitBox() abil vajav informatsioon ja kirjuta kood indeksi leidmiseks. 

Anna kasutajale tagasiside all antud tabeli andmete kasutades

Siin me avame jaotis Arendaja

Siin me valime Visual Basic ja kirjuta koodi

Siin me kirjutame kood ja me kasutame see komandid

Siin ma jutustan mida ma teen:

Küsib kasutajalt sisendit:

kaal (kaal) kilogrammides,

pikkus (pikkus) meetrites.

Kontrollib, et mõlemad arvud oleksid positiivsed.
Kui ei ole, kuvab veateate ja palub kasutajal uuesti sisestada.

Määrab kategooria KMI väärtuse põhjal, kasutades Select Case’i:

alla 16 → “tugevalt alakaaluline”

18,5–24,9 → “normaalkaal”

25–29,9 → “ülekaal”

30–34,9 → “rasvunud klass I”

35–39,9 → “rasvunud klass II”

40 ja üle selle → “rasvunud klass III”

Väljutab tulemuse MsgBoxi, mis kuvab:

ümardatud KMI väärtust

ja suulist hinnangut (normaalne, ülekaaluline jne)