Test 2

1)Najděte a opravte chyby v kódu
a)	
Dim i As Int
Dim a as Double
For i = 1 To n
	a = a x 5
End For
b)	
Dim a as Double
If ((a <= 10) And (a > 0)) Then
	Exit Sub
End If




2)Popište funkcionalitu následujícího kódu

Private Type kniha
    nazev As String
    autor_jmeno As String
    autor_prijmeni As String
    cena As Double
End Type
Public Sub test()
    Dim a As kniha
    a.autor_jmeno = "jan"
    a.autor_prijmeni = "novak"
    a.nazev = "programovani v gis"
    a.cena = 100
End Sub 

3)	Napište program, který má na vstupu řetězec představující libovolné číslo libovolného číselného datového typu, například s = „5,1“ nebo s = „68905“.
Zjistěte podle formátu vstupního řetězce, jaký datový typ mu odpovídá (Double, Long, Integer.), výsledek v textové formě vypište.
V případě, že se nebude dařit napsat kód, zkuste postup popsat slovně.

Jako desetinný oddělovač bude použita čárka.
Řetězec představující číslo neobsahuje bílá místa, pouze číslice nebo znak čárky.
Rozsah Integeru je -32 768 až 32 767
Rozsah Longu je - 2 147 483 648 až 2 147 483 647
Funkce ln = Len(a) vrátí délku ln řetězce a
Funkce s1 = Left(s2,p) do proměnné s1 uloží prvních p znaků řetězce s2
Funkce p = InStr(n,a,b) vrátí pozici p počátku prvního výskytu řetězce b v řetězci a, číslo n udává pozici na které se má v řetězci a začít vyhledávat
	pokud a je prázdný tak p = 0
	pokud b je prázdný tak p = n
	pokud b není v a nalezeno tak p = 0
	pokud n > Len(b) tak p = 0
	pokud řetězec b je nalezen uvnitř řetězce a tak p = pozice počátečního znaku řetězce b v řetězci a