Zadání: Sestavte program, který převede text na velká písmena.
Řešení:
Program používá k převodu funkci UCase.
Module Module1
Sub Main()
Dim s As String
Console.Write("Zadejte text: ")
s = Console.ReadLine
s = UCase(s)
Console.WriteLine("Upraveny retezec: {0}", s)
Console.ReadLine()
End Sub
End Module