Zadání:
Sestavte program, který vypíše pozici zadaného znaku v zadaném řetězci.
Řešení:
Program ukazuje hledání určitého znaku v řetězci znaků příkazem InStr. Tento příkaz vrací pozici prvního výskytu znaku.
Module Module1
Sub Main()
Dim s As String
Dim z As Char
Dim p As Integer
Console.Write("Zadejte retezec: ")
s = Console.ReadLine
Console.Write("Zadejte hledany znak: ")
z = Console.ReadLine
p = InStr(s, z)
Console.WriteLine("Pozice znaku {0} v retezci {1}: {2}", z, s, p)
Console.ReadLine()
End Sub
End Module
program ke stažení