"arvudsumma" - 1 õppematerjal

ITK sissejuhatus infotöötlusesse KT3 VBA variant 19

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äiteks, kui vahemik on 1-5, on summa 1+2+3+4+5=15 Summat näidatakse kasutajale Lahendus:Sub ArvudSumma() Dim i As Integer Dim sum As Integer Dim l As Integer Dim u As Integer l = InputBox("Sisesta täisarvude vahemiku esimene number") u = InputBox("Sisesta täisarvude vahemiku viimane number") i=0 For i = l To u sum = sum + i Next i MsgBox "Vahemikus olevate arvude summa on " & sum End Sub