10.07 Určení pohlaví z rodného čísla
Zadání:
Sestavte program, který ze zadaného rodného čísla určí pohlaví.
Sestavte program, který ze zadaného rodného čísla určí pohlaví.
Řešení:
Program otestuje pomocí příkazu SELECT CASE třetí znak zadaného rodného čísla a podle jeho hodnoty vytiskne
příslušný text.
Program otestuje pomocí příkazu SELECT CASE třetí znak zadaného rodného čísla a podle jeho hodnoty vytiskne
příslušný text.
Module Module1
Sub Main()
Dim rc As String
Console.Write("Zadejte rodne cislo: ")
rc = Console.ReadLine
Select Case rc(2)
Case "0", "1"
Console.WriteLine("MUZ")
Case "5", "6"
Console.WriteLine("ZENA")
Case Else
Console.WriteLine("Neplatne rodne cislo")
End Select
Console.ReadLine()
End Sub
End Module
program ke stažení