"Sissejuhatus infotöötlusesse " - 1 õppematerjal

ITK sissejuhatus infotöötlusesse KT3 VBA variant 19

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() Näi...