Zábavné texty
 
Kategorie
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é

| Délka: 725 znaků | Posláno: 61x | Známka: 1,85 od 39 lidí | ID: 26058 | Filtr obsahu: není | Stav: zveřejněné
POSLAT NA E-MAIL VODAFONE T-MOBILE O2 SLOVENSKO OHODNOCENO
To se mi líbí Sdílet na Facebooku
Web používá cookies. OK Info