Argumenti:

Sporočilo - zahtevan argument, ki določa informacijsko sporočilo, ki bo prikazano v oknu. Lahko je sestavljen iz več besedilnih vrstic, ki so združene z znakom & . Uporaba v tem argumentu Chr (13) pri izpisu informacij vodi v novo vrstico.

Gumbi - vrednost tega argumenta določa kategorije gumbov, ki se prikažejo v oknu. Vrednost argumenta gumb tudi določa, ali se v oknu pojavi katera koli ikona. Če ne določite, kateri gumbi naj se prikažejo v sporočilnem polju, se uporabi privzeta vrednost, ki ustreza gumbu V redu. V tabeli 3.1 prikazuje možne kombinacije gumbov in ikon v oknu s sporočili.

Naslov - nastavi naslov okna.

funkcija MsgBox vrne vrednost Integer, ki označuje, kateri gumb je bil kliknjen v pogovornem oknu.

Tabela 3.1. Veljavne vrednosti spremenljivke gumba

Na primer. Prikažite sporočilo o trenutnem datumu.

MsgBox "Danes na koledarju" & Datum, "Pozor"

Posledično se prikaže naslednje okno (slika 3.1).

Po kliku V redu se bo okno s sporočilom zaprlo in izvajanje programa se bo nadaljevalo od stavka takoj po klicu MsgBox.

3.3.2. funkcija InputBox

funkcija InputBox vnaša spremenljive vrednosti z uporabo vnosnega okna in ima naslednjo sintakso:

Ime_spremenljivke = InputBox(Sporočilo[, Naslov] )

Argumenti:

Sporočilo - zahtevan argument. V okno nastavi informativno sporočilo, ki običajno razloži pomen vnesene vrednosti.

Naslov - nastavi naslov okna.

Na primer, Vnesite vrednost spremenljivke N s tipkovnico in zagotovite privzeto vrednost 10.

Če želite to narediti, lahko uporabite naslednji operator:

N = InputBox("Vnesite N", "Vnos vnosa",10)

Posledično se prikaže naslednje okno za vnos vrednosti spremenljivke N (slika 3.2).

Če je privzeta vrednost sprejemljiva za uporabnika, se po kliku na gumb V redu vnosno okno zapre, spremenljivka N bo nastavljena na 10 in izvajanje programa se bo nadaljevalo od stavka takoj za klicem InputBox.

Če privzeta vrednost ne ustreza uporabniku, morate pred klikom na gumb V redu vnesti želeno vrednost za spremenljivko N.

3 .4. Pogojni stavek IF

Za izvedbo razvejanega računalniškega procesa v VBA se uporablja operator Če ... Potem ... Drugače, ki je najenostavnejša oblika preverjanja stanja. Ima naslednjo sintakso:

čePOGOJPotemOPERATOR_1ElseOPERATOR_2

OPERATOR_1 izvršiti, če POGOJ res, drugače izvršeno OPERATOR_2. V tem primeru je stavek If...Then...Else zapisan v eni vrstici.

POGOJ je logični izraz. Rezultat izraza je vedno logični. Izraz je lahko preprost ali zapleten. Pri pisanju enostavnih pogojev lahko uporabimo vse možne relacijske operacije, navedene v tabeli. 3.2.

Tabela3 .2. Logične relacije

Zapletene pogoje tvorimo iz preprostih z uporabo logičnih operacij in oklepajev. Seznam logičnih operacij je podan v tabeli. 3.3.

Tabela3 .3. Logične operacije

V pogojnem stavku je dovoljeno uporabiti blok stavkov namesto katerega koli stavka. V tem primeru je pogojni operator videti takole:

čePOGOJPotem

BLOCK_OPERATORS_1

BLOCK_OPERATORS_2

Konec If

Pogojni stavek lahko preizkusi več pogojev. V tem primeru je pogojni operator videti takole:

čePOGOJ_1Potem

BLOCK_OPERATORS_1

ElseIfPOGOJ_2Potem

BLOCK_OPERATORS_2

drugače

Konecče

Primer 1. Napišite del programa za algoritem na sl. 3.3.

Primer 2. Napišite del programa za algoritem na sl. 3.4.

3.5. Izberite operator velikih in malih črk

Operator Select Case je uporaben, ko morate izvesti različna dejanja glede na vrednost nekega izraza, ki ima končen niz veljavnih vrednosti. Povezan je tudi s pogojnimi stavki, vendar ima drugačno obliko:

Izberite PrimerIZRAZ NA PREIZKUSU

OvitekVALUES_1

OPERATORS_1

OvitekVREDNOTE_ 2

OPERATERJI_ 2

. . .

OvitekVALUES_N

OPERATERJI_N

[ Ovitekdrugače

DRUGAČE_ OPERATERJI]

Konec Izberite

IZRAZ NA PREIZKUSU je lahko katere koli skalarne vrste, razen realne. VREDNOTE sestavljeni iz poljubnega števila vrednosti ali obsegov, ločenih z vejicami.

Vrsta VREDNOTE mora ustrezati vrsti TEST_EXPRESSION.

Najprej se izračuna IZRAZ NA PREIZKUSU. Če se njegova vrednost ujema z eno od vrednosti VALUES_I, potem bodo izpolnjeni OPERATORS_I Konec Izberite. Če se njegova vrednost ne ujema z nobeno od vrednosti VALUES_I, potem bodo izpolnjeni ELSE_OPERATORS in nadzor se prenese na operaterja, ki stoji za njim Konec Izberite

Na primer. Napišite del programa za algoritem na sl. 3.5, ki določa vrednost spremenljivke S v odvisnosti od vrednosti spremenljivke n.

3.6. Stavki zanke

Za izvedbo cikličnega računalniškega procesa, to je ponavljajoče se izvajanje enega ali več operatorjev, se uporablja operator zanke Za ... Naprej, ki ima naslednjo sintakso:

ZaŠTEVEC=START_VREDNOSTToCON_VALUEkorakKORAK

OPERATOR_BLOK

OPERATOR_BLOK

NaslednjiŠTEVEC

Zanka For...Next kroži po vrednostih spremenljivke ŠTEVEC, ki je parameter zanke, od začetne do končne vrednosti z navedenim korakom spreminjanja. To zagotavlja, da se blok stavkov telesa zanke izvede z vsako novo vrednostjo števca. če korakKORAK v načrtu ni, se privzeto predpostavlja, da je korak enak 1. Glede na operaterja Izhod za lahko pred tem zapustite stavek zanke ŠTEVEC doseže zadnjo vrednost.*

Za ponavljanje predmetov iz skupine podobnih predmetov, na primer celic iz obsega ali elementov polja, je priročno uporabiti operator zanke Za…Vsak ... Naslednji.

Za vsakogarElementnotriskupina

BLOKIRAJ_ OPERATERJI

OPERATOR_BLOK

NaslednjiElement

V VBA se drugi operaterji zank uporabljajo za organiziranje zank z neznanim številom ponovitev:

zanke s predpogojem - narediMedtem … Zanka,

naredidokler … Zanka;

zanke s postpogojem - naredi … ZankaMedtem,

naredi … Zankadokler.

Spodaj je sintaksa teh stavkov zanke:

"Zanka s predpogojemnaredi Medtem … Zanka

Naredi MedtemPOGOJ

OPERATOR_BLOK

OPERATOR_BLOK

"Zanka s predpogojemnaredi dokler … Zanka

naredidoklerPOGOJ

OPERATOR_BLOK

OPERATOR_BLOK

"Zanka s postpogojemnaredi … Zanka Medtem

BLOKIRAJ_ OPERATERJI

OPERATOR_BLOK

Zanka MedtemPOGOJ

"Zanka s postpogojemnaredi … Zanka do

BLOKIRAJ_ OPERATERJI

OPERATOR_BLOK

Zanka doPOGOJ

Operater narediWhile...Loop zagotavlja, da se blok stavkov večkrat ponovi, dokler POGOJ se opazuje in operater

Druge novice

Jezikovna navodila (ali operaterji)– to so programske enote, ki izvajajo neka dejanja ali opisujejo podatke.

Izjava vsebuje eno ali več ključnih besed in po možnosti parametre. Več stavkov, ki se nahajajo v isti programski vrstici, je med seboj ločenih z dvopičjem. Če je stavek predolg, ga lahko razdelite na več vrstic z uporabo podčrtaja _, da ga razdelite.

O p erator naloge

Operator dodelitve se uporablja za dodelitev nove vrednosti spremenljivki med izvajanjem programa. Znak dodelitve "=".

Na primer, operater:

x = Sqr(5 + Tan(1,8)^2)

spremenljivki x dodeli vrednost izraza. Kot rezultat izračuna izraza, zapisanega na desni strani, dobimo realno število. Toda vrednost, ki bo dodeljena spremenljivki x, je odvisna od tega, kako je bil deklariran tip te spremenljivke. Torej, če je spremenljivka x tipa Single, ji bo dodeljen rezultat 4,834464, če je Double, potem 4,83446368725481, in če je Integer, potem 5.

Podatkovni tip spremenljivke x mora biti združljiv s podatkovnim tipom tega izraza. Poleg implicitne pretvorbe iz ene vrste v drugo med dodelitvijo Visual Basic omogoča pretvorbo vrst s pomočjo funkcij. Na primer funkcija CDbl pretvori podatke v dvojni tip, CInt– na vrsto Integer, Clng– za dolg tip, CSng– na enojni tip, CStr– za tipkanje String itd.

Funkciji CInt in Clng zaokrožita rezultat. Poleg tega, če je delni del števila 0,5, se zaokroži na najbližje sodo število.

Operator dodelitve vam omogoča ne le dodelitev vrednosti spremenljivki, temveč tudi nastavitev vrednosti lastnosti objektov VBA. Na primer, operater

Vrstice("1:1").Pisava. Krepko = res

Naredi pisavo v prvi vrstici delovnega lista krepko.

PRELOM VRSTICE

Kombinacija<Пробел> + <Знак подчеркивания>na koncu vrstice zagotavlja, da je naslednja vrstica nadaljevanje prejšnje. Hkrati se moramo spomniti, da:

§ Konstant nizov ne morete prekiniti z zavijanjem

§ Dovoljeno je največ sedem nadaljevanj iste vrstice

§ Sama vrstica ne sme vsebovati več kot 1024 znakov

Primer.

Nepravilen prenos Pravilen prenos

Vrstica = "Visual Basic za _ Vrstica = "Visual Basic" _

Aplikacije" & "za aplikacije"

KOMENTARJI

Besedilo, ki sledi simbolu (") v programu do konca vrstice, prevajalnik prezre in je komentar. Komentarji se uporabljajo za dodajanje razlag in opisov v program. Komentarji so uporabni pri odpravljanju napak v programu: omogočajo da med odpravljanjem napak začasno onemogočite programske vrstice.

Pogojno operater

Pogojni stavek izvede določena navodila (stavke) glede na vrednost izraza pogoja. Blokovni diagram za preverjanje stanja izgleda takole:

riž. 1. Razvejanje je lahko nepopolno (ta struktura se imenuje tudi obvod).

riž. 2. Pogojni stavek ima dve obliki sintakse: vrstico in blok.

Oblika z malimi črkami

če stanje Potem [ operatorji_če_true]

Algoritem, predstavljen na sl. 1, z malimi črkami bo zapisano kot

če stanje Potem operatorji_če_true drugače operatorji_če_napačno

Slika 2 ustreza vnosu

če stanje Potem operatorji_če_true

Slika 3 ustreza vnosu

če stanje Potem pa še operatorji_če_napačno

Blokiraj obrazec

če stanje-1 Potem

[operatorji_če pogoj–1_true]

[operatorji_če_vsi_pogoji_false]]

Pogoji, navedeni v delih If in ElseIf, so relacijski izrazi ali logični izrazi. Ko je eden od pogojev izpolnjen, se stavki, ki sledijo njegovi ustrezni ključni besedi Then, izvedejo, preostali stavki pa se prezrejo (to pomeni, da se ne izvedejo nobeni nadaljnji preizkusi in nadzor se prenese na stavek, ki sledi End If). Če nobeden od logičnih pogojev ne drži, potem operatorji_če_vsi_prejšnji_pogoji_false ali, če je ta del izpuščen, se nadzor prenese v programsko vrstico, ki sledi pogojnemu stavku.

Bločna oblika stavka If je boljša, če:

Ko je pogoj izpolnjen ali neizpolnjen, se izvede več stavkov (v tem primeru se lahko uporabi tudi vrstična oblika, vendar bo vrstica predolga in program manj jasen);

Zaporedoma se preveri več pogojev in ko je izpolnjen naslednji pogoj, ni primerno preverjati naslednjih pogojev (zato se uporablja ključna beseda ElseIf).

Primer

Veleprodajnim kupcem podjetje nudi popuste.

Na podlagi znanega obsega naročila je treba določiti njegove stroške.

Za izračun stroškov naročila uporabimo funkcijo:

Javna funkcija Order_Cost(količina tako dolgo) kot dvojna

Če Količina<= 999 Then

Strošek_naročila = količina * 5

ElseIf Količina<= 1999 Then

Stroški_naročila = Količina * 4.8

Strošek_naročila = količina * 4,75

V tem primeru je bilo mogoče uporabiti obliko operatorja IF z malimi črkami:

Javna funkcija Order_Cost1 (količina tako dolgo) kot dvojna

Če Količina<= 999 Then Стоимость_заказа1 = Количество * 5

Če je količina >= 1000 in količina<= 1999 Then Стоимость_­ заказа1 = Количество * 4.8

Če je količina >= 2000, potem je strošek_naročila1 = količina * 4,75

Če ne upoštevamo slabosti, da so vrstice dolge in se za vsak obseg naročila vsa preverjanja izvajajo zaporedno (prvi postopek deluje hitreje pri majhnih količinah naročil), potem je program napisan pravilno in morda še bolj pregleden.

Vendar pa je mogoče navesti primere, ko, če je eden od pogojev izpolnjen (ali ni izpolnjen), drugih preprosto ni mogoče preveriti.

Na primer, je treba nekatere operatorje izvesti, ko so pogoji izpolnjeni skupaj: http://po-teme.com.ua/images/adIIIin/image014_e652e49476c6f0eb9cf40b68cc090828.gif" alt="" width="56" height="27 src="> Če za preglede uporabite operator

Če je x>0 in y

potem, če je x negativen, bo pri klicu funkcije sqr prišlo do napake (koren je negativno število).

Tej napaki se je mogoče izogniti z uporabo zasnove

Če je x > 0, potem Če je y< Sqr(x) Then

Če je v zadnji obliki vnosa ključna beseda Else, se ta nanaša na zadnji stavek If.

Izbirni operater

Izberite Primer izražanje

[navodila_drugače]]

Parameter izraza je poljuben številski ali nizovni izraz. Namesto vrednotenja logičnega pogoja se vrednost izraza primerja z vsako od vrednosti, ki jih določa parameter seznam_izrazov-n.

Vrednosti za primerjavo so vključene v seznam_izrazov-n, lahko podate v obliki:

- vrednote;

– obseg vrednosti v obrazcu začetna_vrednost Za končna_vrednost;

– primerjalni izrazi v obliki Is vrednost operatorja_primerjanja;

– seznam katerekoli izmed navedenih vrst izrazov (ločilo – vejica).

Navodilo lahko vsebuje poljubno število blokov Case. Če nobeden od pogojev ni resničen, se izvedejo stavke v bloku Case Else.

Na primer, če je pogoj rezultat nad tri, potem lahko ta pogoj zapišemo: Primer 4, 5 ali Primer je >3 ali Primer je >= 4 ali Primer 4 do 5.

Opomba. Ključna beseda Ni ga treba vnesti; dodano bo samodejno.

Primer

Zgornji primer z znižano ceno z uporabo konstrukcije Select Case je mogoče rešiti na naslednji način:

Javna funkcija Order_Cost2 (količina tako dolgo) kot dvojna

Izberite količino zaboja

Stroški_naročila2 = količina * 5

Zadeva 1000 do 1999

Stroški_naročila2 = Količina * 4.8

Primer je >= 2000

Strošek_naročila2 = količina * 4,75

Program VBA je zaporedje stavkov.

Pri pisanju programov je treba upoštevati številne konvencije. Tako lahko v eno vrstico postavimo več izjav. Med stavki v isti vrstici je postavljeno dvopičje.

Vsako vrstico lahko razdelite na dve tako, da na koncu prve postavite znaka »Presledek« + »Podčrtaj« (_), v tem primeru se bo druga vrstica štela za nadaljevanje prve.

Komentarji se uporabljajo za lažje branje programa. Komentarje v VBA lahko vnesete na dva načina: z uporabo apostrofa (‘), ki ga lahko postavite kamor koli v vrstico, in z uporabo rezervirane besede Rem namesto apostrofa.

1. Dim operater je namenjen deklariranju tipov spremenljivk.

1. Zatemni A kot celo število – spremenljivka A je deklarirana kot celo število, tj. shranil bo samo celoštevilske vrednosti .

2. Dim D kot datum – spremenljivka D je deklarirana za shranjevanje datumov.

3. Zatemni priimek, ime kot niz – spremenljivke so deklarirane. Priimek in Ime, namenjeno shranjevanju besedila.

4. Dim B(12) kot celo število – deklarirana je enodimenzionalna matrika (vektor), sestavljena iz 12 celih števil, privzeto pa bo prvi element matrike B(0), zadnji pa B(12).

5. Dim B(3,3) kot enojni – deklarirana je dvodimenzionalna 3x3 matrika (matrika), sestavljena iz realnih števil.

Če tip spremenljivke ni določen, je privzeti tip Variant. Vendar pa določitev posebne vrste spremenljivke naredi program bolj zanesljiv in pospeši njegovo delovanje, ker VBA ni treba izgubljati časa s prepoznavanjem neprijavljene spremenljivke ob vsakem dostopu do nje.

Če velikost matrike M ni vnaprej znana in je določena med programom, potem pri opisu matrike število elementov ni navedeno in je matrika definirana na naslednji način:

Dim M() kot celo število

Ko določite število elementov polja, na primer N, morate napisati operator

2. Operator dodelitve je namenjen prirejanju vrednosti spremenljivki.

Sintaksa:

Spremenljivka (ali lastnost objekta) = izraz.

1. a=5 – spremenljivki A dodeli vrednost 5 ;

2. b=“Upravitelj” – spremenljivka b dodeliti kar pomeni "upravitelj";

· Naslov=Sheets("Organizations").Cells(2,2) – spremenljivki Naslov dodelite vsebino celice B2, ki se nahaja na listu Organizacije v trenutnem delovnem zvezku;

Last Name=UserForm1.TextBox1.Text – spremenljivka Priimek je dodeljen vsebini polja TextBox1 uporabniškega obrazca UserForm1.

o Z/Končaj z izjavo programerja prihrani pred velikim številom ponavljanj imena istega objekta.

Sintaksa:

S predmetom

operater1

operater2

operaterN

Na primer, namesto zaporedja izjav

UserForm1.TextBox1.Text = Datum

UserForm1.TextBox2.Text = “ “

UserForm1.ComboBox1.Text = “ “

lahko zapišemo takole

TextBox1.Text = Datum

. TextBox2.Text = “ “

. ComboBox1.Text = “ “

REM Na listu Sheet1 v stolpcu A, začenši z drugo vrstico, so zapisane "tarife zaposlenih". Izpolnite kombinirano polje ComboBox1 v uporabniškem obrazcu UserForm1

'Prva vrstica programa - na listu Sheet1 v stolpcu A' se prešteje število izpolnjenih celic, rezultat 'je dodeljen spremenljivki N

N=Application.CountA(Sheets(“Sheet1”).Range(“A:A”)).

D=”A2:A”&Cint(N)

Listi(“Sheet1”).Range(D).Name=”Tarife”

TextBox1.Text = Datum

. TextBox2.Text = “ “

. ComboBox1.Text = “ “

. ComboBox1.Rowsource = “Tarife”

1. Pogojni stavek If/Then/Else– vam omogoča, da preverite določen pogoj in glede na rezultate preverjanja izvedete eno ali drugo dejanje

Sintaksa:

če stanje Potem operaterji1 [ drugače operaterji2]

Če je pogoj resničen, se izvedejo stavki1, sicer pa se izvedejo stavki2.

Možna je tudi uporaba kompleksnega pogojnega operatorja, ki je zapisan kot blok:

če stanje1 Potem

operaterji1

ElseIf pogoj2 Potem

operaterji2

operaterji3

Last Name=.TextBox1.Text

If Last Name =”“ Then MsgBox”Niste vnesli priimka”

REM Ob potrditvi potrditvenega polja številka 1 naročniku priznamo 5% popust

‘ Znesek – znesek denarja, ki ga plača stranka

Stroški izdelka so shranjeni v spremenljivki Cost

If UserForm1.CheckBox1.Value = True Potem

Znesek=Cost-Cost*0,05

Drugače znesek=strošek

1) REM Predpostavimo, da je tarifa uveljavljena tarifa, čas pa opravljeni čas. Čas in tarifa se vneseta v vnosna polja 'v TextBox1 oziroma TextBox2. Plača se izračuna po formuli Tarifa*Čas. Napišimo program za prikaz obračunane plače v obrazcu. Oznaka4 – pripravljen napis za 'izpis vrednosti plače'

If IsNumeric(TextBox1.Text)=True And _

IsNumeric(TextBox2.Text)=True Potem

Tarifa=TextBox1.Text

Time=TextBox2.Text

Label4.Caption=Tarifa*Čas

V prvem primeru delamo z uporabniškim obrazcem številka ena. Spremenljivka Priimek dodeljena je vsebina vnosnega polja številka ena. Nato preveri, ali je bilo kaj vneseno v polje za vnos (ali je spremenljivka prazna Priimek). Če spremenljivka Priimek prazno, se na zaslonu prikaže okno s sporočilom.

V drugem primeru so prve vrstice, ki se začnejo z besedo REM in apostrofi, komentarji, ki pojasnjujejo namen spremenljivk. Pogojni operater določi znesek, ki ga plača stranka.

Tretji primer preveri, ali so v vnosna polja vpisana števila. Če so številke vnesene v dve polji, se spremenljivkam dodelijo vrednosti vnosnih polj, oznaki pa se dodeli vrednost rezultata množenja tarife s časom.

1) Operator brezpogojnega skoka Pojdi do je namenjen podajanju prehoda na določeno vrstico znotraj programa.

Sintaksa:

Pojdi na niz

Zahtevani argument Niz je lahko katera koli oznaka vrstice ali številka vrstice.

If IsNumeric(TextBox1.Text)=False Then GoTo Error

Napaka: MsgBox »Napaka pri vnosu številk!«

Zgornji primer preveri, ali je bila številka vnesena v vnosno polje ena. Če vnesena številka ni številka, se vrstica z oznako Napaka premakne in na zaslonu se prikaže sporočilo.

2) Operator zanke Za/Za/Naprej zasnovan za programiranje ponavljajočih se fragmentov, tj. za opis cikličnih algoritmov.

Sintaksa:

Za spremenljivka=M1 Za M2 [ korak M3]

operaterji

M1, M2, M3 – izrazi. Stavek zanke ponovi izvedbo skupine stavkov, medtem ko se spremenljivka (števec) spremeni iz začetne vrednosti M1 v končno vrednost M2 z navedenim korakom M3. Če korak ni naveden, se predpostavlja, da je 1.

Priimek = Listi (“Zaposleni”). Celice (I,1)

UserForm1.ComboBox1.AddItem Priimek

V danem primeru se predpostavlja, da na listu »Zaposleni« prvi stolpec vsebuje imena zaposlenih, ki jih je treba vključiti na seznam kombiniranega polja številka ena uporabniškega obrazca številka ena. Algoritem delovanja programa:

1) Spremenljivki I je pripisana vrednost 2.

2) Spremenljivki Priimek je dodeljena vrednost celice A(I,1), ki se nahaja na listu »Zaposleni«. (Ko se zanka izvede prvič, je to celica A(2,1))

3) Element iz spremenljivke Last Name je dodan na seznam kombiniranega polja ComboBox1.

4) Vrednosti spremenljivke I se doda 1 (če korak ni določen, se predpostavlja, da je enak 1). Izvede se preverjanje, ali je vrednost I presegla 10 (končna vrednost spremenljivke I, v primeru M3=10)? Če je vrednost I celo manjša ali enaka 10, se izvedejo koraki 2-4, sicer se cikel zaključi.

Tako vam zgornji program omogoča, da seznam ComboBox1 napolnite s podatki.

Osnovni algoritmi, uporabljeni pri reševanju
gospodarske naloge

Oglejmo si osnovne algoritme na naslednjem primeru. Pri izvajanju del po pogodbi so sodelovali zaposleni iz različnih oddelkov. V tabeli na listu »List1« so prikazani podatki o številu opravljenih ur posameznega zaposlenega (slika 8).

Slika 8. Podatki o številu opravljenih ur

zaposlenih v podjetju

Svet brezplačnih programov in koristnih nasvetov
2024 whatsappss.ru