Zábavné texty
 
Kategorie
Text 5 / 38
<<__1__2_3_4__ 5 __6_7_8__38__>>
Přidáno: 16. 1. 2011 - 23:46 | Autor: © Ondra O.
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
To se mi líbí Sdílet na Facebooku

Počítače

»

Různé

| Posláno: 65x | Známka: 1,98 od 47 lidí
POSLAT NA E-MAIL VODAFONE T-MOBILE O2 SLOVENSKO OHODNOCENO
Text 5 / 38
<<__1__2_3_4__ 5 __6_7_8__38__>>

Nastavení Řadit podle: přidání -| hodnocení | posílanosti | délky | názvu | náhody

Počet na stránku: 1 -| 2 | 3 | 4 | 5 Autorské: nezáleží -| ano | ne

Filtr obsahu: odblokovat lechtivé | odblokovat sprosté | odblokovat nechutné | odblokovat drsné

SMS filtr: ne -| 1 Vodafone | do 2 | do 5 | 1 T-Mobile | do 2 | 1 O2 | do 2 | 1 SR | do 2

( Při současném nastavení se některé texty nezobrazují. ) ( zobrazit všechny )

To se mi líbí Sdílet na Facebooku
Web používá cookies. OK Info