Sub Dotaznik()
    ' Deklarace promnnch
    Dim vek As Integer
    Dim jmeno As String
    Dim student As Boolean
    Dim studentString As String
    ' Piazen hodnot uivatelem
    vek = InputBox("Zadejte v vk:", "Dotaznik")
    jmeno = InputBox("Zadejte vae jmno:", "Dotaznik")
    student = InputBox("Zadejte v status:", "Dotaznik")
    ' Logick hodnota podle podmnky
    If student = 0 Then
        studentString = "NENI STUDENT"
    Else
        studentString = "JE STUDENT"
    End If

    ' Vpis vsledk
    MsgBox "Vae jmno: " & jmeno & vbCrLf & _
           "Vk: " & vek & vbCrLf & _
           "Status: " & studentString, vbInformation, "Vstup programu"

End Sub

