Nastavení Odeslat text na: E-mail -| Vodafone | O2 | T-Mobile | Slovensko

Vaše jméno:

Váš e-mail:

Jméno příjemce:

E-mail příjemce: (!)

Předmět: (!)

Nadpis: skrýt

Text:

Přijde zákazník do firmy a potká programátora. „Prosím vás, dáte mi vaši vizitku?” ptá se zákazník. Tak se programátor zeptá na jméno takhle: jmeno = InputBox(„Zadejte jméno:”, „Prosím”) Zákazník to zkusí pochopit a řekne jméno. Potom programátor vezme papír a napíše na něj: **Class Vizitka Inherits Papir Private venovano As String Private firma As String = „Programee A.S.” Sub New(venovano As String) Me.venovano = venovano End sub Function ZiskejVizitku() As String Return String.Format(„{0}{1}{2}{1}{3}{1}{4}”, firma, vbCrLf, „Ulice, Praha 4”, „firma@programee.cz”, venovano) & End Function End Class Module Module1 Sub Main() Dim vz As New Vizitka(„Věnováno našemu zákazníkovi”) Console.Write(vz.ZapisVizitku(vz.ZiskejVizitku)) End Sub End Module** (!)

Vzkaz:

Šablona:

Napište prosím číslicemi: šest jedna osm (!)

» Soukromí » Letem.cz - další naše weby » Spřátelené weby

Textíky

Odeslání textu 26058 na e-mail