ITK sissejuhatus infotöötlusesse KT3 VBA variant 19 1.Kirjuta VBA-funktsioon, mis määrab isikukoodi järgi inimeste sugu: Function Sugu(ikood As String) As String Funktsioon saab väärtuseks "mees", kui koodi esimeseks sümboliks on 1,3,4; "naine" - kui esimeseks sümboliks on 2,5,6. Kui isikukoodi pikkus ei ole 11, kõik sümbolid ei ole numbrid või esimene sümbol ei ole ükski eelpool loetletuist, saab funktsioon väärtuseks "viga!". Lahendus: Function Sugu(ikood As String) As String If IsNumeric(ikood) And (Len(ikood) = 11) And (Mid(ikood, 1, 1) = "1") Or (Mid(ikood, 1, 1) = "3") Or (Mid(ikood, 1, 1) = "4") Then Sugu = "mees" ElseIf IsNumeric(ikood) And (Len(ikood) = 11) And (Mid(ikood, 1, 1) = "2") Or (Mid(ikood, 1, 1) = "5") Or (Mid(ikood, 1, 1) = "6") Then Sugu = "naine" Else: Sugu = "viga!" End If End Function3 . Kirjuta Sub-protseduur (makro), mis küsib kasutaja käest täisarvude vahemiku ning leiab nende summa: Sub ArvudSumma()
vanusevahemik Sünnikuu ja Osakond Aastaaeg ja Kodulemmik Tähtkuju ja Pereseis Tähtkuju ja Amet Aastaaeg ja Osakond Huviala ja Pereseis Sugu ja Tähtkuju Aastaaeg ja Pereseis Kodulemmik ja Tähtkuju Sugu ja Amet Linn ja Pereseis Sünnikuu ja Pereseis Sünnikuu ja Sugu Sugu ja Huviala Ül6 tulemus Eesnimi, Perenimi, Linn, Amet, Aastaaeg, Palk, Sugu Eesnimi, Perenimi, Palk, Aastaaeg, Huviala, IKood, Vanus Eesnimi, Perenimi, Amet, Kodulemmik, Sünniaeg, IKood, Tähtkuju Eesnimi, Perenimi, Sünnikuu, Pereseis, Palk, Sugu, Huviala Eesnimi, Perenimi, Sugu, SAasta, Vanus, Osakond, Kodulemmik Eesnimi, Perenimi, Huviala, SAasta, Sünnikuu, Vanus, Aadress Eesnimi, Perenimi, Kodulemmik, Sünniaeg, SAasta, Sugu, Huviala Number 206653 1 1 2 2 2 3 1 1 3 2 1 1 1 2 1 1 roheline helehall helesinine kollane mereroheline oranž roosa tumehall vanaroosa sinine punane 206653 1
annaabi.ee 
