Vajad kellegagi rääkida?
Küsi julgelt abi LasteAbi
Logi sisse

ITK sissejuhatus infotöötlusesse KT3 VBA variant 19 (0)

5 VÄGA HEA
Punktid
Varia - Need luuletused on nii erilised, et neid ei saa kuidagi kategoriseerida

Lõik failist


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")
ITK sissejuhatus infotöötlusesse KT3 VBA variant 19 #1
Punktid 5 punkti Autor soovib selle materjali allalaadimise eest saada 5 punkti.
Leheküljed ~ 1 leht Lehekülgede arv dokumendis
Aeg2012-11-26 Kuupäev, millal dokument üles laeti
Allalaadimisi 62 laadimist Kokku alla laetud
Kommentaarid 0 arvamust Teiste kasutajate poolt lisatud kommentaarid
Autor iff12 Õppematerjali autor

Sarnased õppematerjalid

thumbnail
12
pdf

Konspekt

Muutujate deklareerimine Dim/Private/Public [Static] nimi [As andmetüüp] Deklareerimine kohustuslik ­ Option Explicit Muutujate skoop ­ alamprogrammi tase, mooduli tase , globaalne (Public (Global)) Stringi pikkus - Dim nimi As String*pikkus Konstandid Const nimi [As andmetüüp]=väärtus &O ­ kaheksandsüsteem &H ­ 16-nd süsteem #kuupäev kellaaeg# Andmetüübid (VarType - andmetüübi küsimine) vaikimisi Variant 0 ­ Empty 1 - Null 2 - Integer % -32768 ... 32767 3 - Long & ~2 miljardit 4 - Single ! ~-3.4e38 ... 3.4e38 5 - Double # ¨-5d-324 ... 1.8d308 6 - Currency @ 15+4 kohta 7 - Date 1.1.1000 ... 31.12.9999 8 - String $ 0 ... 64 K 11 ­ Boolean true/false 17 ­ Byte 0...255 Massiivid

Visuaalprogrammeerimine
thumbnail
2
pdf

VBA laused

Dim m_nimi [as ], massiiv(...)[as ] - muutujate deklareerimine Redim massiiv(m [n, ...]) [as ] - massiivi dünaamiline deklareerimine Nimes kasutatavad sümbolid: tähed, numbrid, alakriips _ Andmetüübist sõltub väärtuse liik, diapasoon ja täpsus, lubatavad tehted, mäluvälja pikkus. Täisarvud: Integer, Long; reaalarvud: Single, Double; tekstid: String; tõeväärtused: Boolean; universaalne: Variant. Tüüpi saab näidata ka nn. tüübitähise abil (%, &, !, #, $) kirjelduses muutuja nime lõpus. Kirjeldused ei pea tingimata olema alguses. Muutujaid ei pea tingimata kirjeldama, siis võetakse muutujate tüübiks Variant. Järjestiktegevused Pöördumine alamprotseduuri poole Omistamine Call Nimi1 ( argumentide loetelu ) [Let] m_nimi =

Andmetöötlus
thumbnail
2
pdf

VBA laused

Dim m_nimi [as ], massiiv(...)[as ] - muutujate deklareerimine Redim massiiv(m [n, ...]) [as ] - massiivi dünaamiline deklareerimine Nimes kasutatavad sümbolid: tähed, numbrid, alakriips _ Andmetüübist sõltub väärtuse liik, diapasoon ja täpsus, lubatavad tehted, mäluvälja pikkus. Täisarvud: Integer, Long; reaalarvud: Single, Double; tekstid: String; tõeväärtused: Boolean; universaalne: Variant. Tüüpi saab näidata ka nn. tüübitähise abil (%, &, !, #, $) kirjelduses muutuja nime lõpus. Kirjeldused ei pea tingimata olema alguses. Muutujaid ei pea tingimata kirjeldama, siis võetakse muutujate tüübiks Variant. Järjestiktegevused Pöördumine alamprotseduuri poole Omistamine Call Nimi1 ( argumentide loetelu ) [Let] m_nimi =

Andmetöötlus
thumbnail
18
doc

Visual Basic

Igale tüübile vastab kindel väärtuste esitusviis ja diapasoon ning välja pikkus. Mitme andmetüübi määramiseks võib käsutada ka tüübitunnuseid - kindla tähendusega sümboleid, mis lisatakse muutuja nime lõppu. Näiteks on järgnev lause samaväärne eelmisega Dim n%, a!, b#, nimi$ VBA peamised andmetüübid ja nende omadused on tabelis 7.1. Vaikimisi, s.t kui muutuja ei ole deklareeritud, võetakse tema tüübiks abstraktne ehk universaalne andmetüüp Variant. Taolisele muutujatele võib omistada suvalist tüüpi väärtusi. Väljade pikkused võetakse nende jaoks varuga ning väärtuse esitusviisi valib interpretaator sõltuvalt omistatava väärtuse tüübist. Näiteks arvu salvestamiseks, sõltumata tema tüübist ja suurusest, eraldatakse alati väli pikkusega 16 baiti. Variant-tüübi käsutamine arvandmete jaoks on üldiselt väga ebaökonoomne nii mäluruumi käsutamise kui ka programmi töökiiruse poolest

Arvutiõpetus
thumbnail
36
xlsx

Andmetöötlus kodutöö 3

1 1 21 4 13 1 6 7 1 4 12 1 2 3 4 5 6 7 8 9 10 11 12 23 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 9 1 2 3 4 5 6 7 8 9 3 7 4 15 8 6 31 44 7 16 22 41 3 13 19 17 7 3. Kodutöö Ülesande variantide saamiseks sisestage oma õpingukoodi number lahtrisse, mille nimi Koostage loengutes ja praktikumises tehtud näidete eeskujul Visual Basic' protseduurid/funk ülesandes nimetatud andmetega. Funktsioone peab saama kasutada Exceli valemites. Sub-protseduuride käivitamiseks paigutage töölehele graafilised kujundid / käsunupud. Lahendada tuleb ainult enda variandi ülesanded, teiste variantide lahendusi ei tohi esitatavas failis Lahendustega fail laadige üles Moodle kursusel. Töö esitamise tähtaeg on 15. november kell 1. Koostada VBA funktsioon, mis leiab parameetrina antud aastaarvu järgi antud aasta isadepäeva kuupäeva (novembri teine pühapä

Ärilogistika
thumbnail
30
xlsm

Informaatika Harjutus 2 2

1. UML Skeemid_Sugu VBA, ( "mees" "naine" "vale esimene sümbol" "Vale pikkus")) 2. Skeemid_Kuupaev VBA, : Date "Vale kuupäev" "Vale pikkus" "Vale esimene s 3. , . 4. , , , . 5. Sugu(kood) Kuupaev(kood) Personal . : SAAKKPPXXXX, S - , S - , = "naine", S - , = "mees"; 3<=S<=6 AA - , S=3 4, 19, S=5 6, 20. KK - ; PP - : MOD, LEN, LEFT, MID, DATESERIAL, VAL VBA, "Vale pikkus")) VBA, Vale pikkus" "Vale esimene sümbol" ) . , mees"; 3<=S<=6 Function sugu(kood) pikkus = Len(kood) esimene = Left(kood, 1) teade = test(pikkus, esimene) [teade<>"korras"] sugu = teade [jah] [ei] [esimene Mod 2 =

Informaatika 2
thumbnail
238
xlsm

VBA juhtimine

... [ Else else-laused_E ] End If Üherealine If-lause If tingimus Then laused_1 [ Else laused_2 ] If a > b Then max = a Else Kolme arvu mediaan Üldmoodulis Valikud on funktsioon Maks0 (Variant 0) Koostada funktsioonid max leidmiseks Variant 1 ja Variant 2, mediaani ja min leidmiseks a b c max max1 max2 56 35 32 56 56 56 Koostada funktsioon, mis leiab hinde sõltuvalt punktide arvust p. Teha tabel (5-6 rida), milles igas reas on nimi, punktid ja hinne p = 90 - 100, hinne = 5 p = 75 - 89, hinne = 4 p = 60 - 74, hinne = 3 p = 50 - 59, hinne = 2 p = 40 - 49, hinne = 1

Informaatika ll
thumbnail
84
xlsm

VBA Juhtimine

elseif-laused ]. ... [ Else else-laused_E ] End If Üherealine If-lause If tingimus Then laused_1 [ Else laused_2 ] If a > b Then max = a Kolme arvu med Üldmoodulis Valikud on funktsioon Maks0 (Variant 0) Koostada funktsioonid max leidmiseks Variant 1 ja Variant 2, mediaani ja min leidmiseks a Koostada funktsioon, mis bleiab hinde c sõltuvalt maxpunktide max1arvustmax2 p. 56 35 32 #NAME? ### ### Teha tabel (5-6 rida), milles igas reas on nimi, punktid ja hinne. p = 90 - 100, hinne = 5 p = 75 - 89, hinne = 4

Informaatika




Kommentaarid (0)

Kommentaarid sellele materjalile puuduvad. Ole esimene ja kommenteeri



Sellel veebilehel kasutatakse küpsiseid. Kasutamist jätkates nõustute küpsiste ja veebilehe üldtingimustega Nõustun