Textíky

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