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
» |
Délka: 725 znaků | Posláno: 61x | Známka: 1,85 od 39 lidí | ID: 26058 | Filtr obsahu: není | Stav: zveřejněné