Interpretacja kodu Vba- Exel

[kamils336]

Witam chciałbym wiedzieć co w tym programie robi funkcja Len i Mid. Za co one są odpowiedzialne? Jest mi ktoś w stanie pomóc?

Dim d As String

Dim g As String

Dim varTablica(1 To 35) As String

Dim varTablica2(1 To 35) As Integer

Dim dlugosc As Integer

Dim x As Integer

Dim dl As Integer

Dim j As Integer

pom = ""

If (TextBox1 = "" Or TextBox2 = "") Then

MsgBox ("Wpisz liczbę z przedziału 1-10000")

Else

If IsNumeric(TextBox1) = False Or IsNumeric(TextBox2) = False Then

MsgBox ("Wpisna wartość nie jest liczbą")

Else

If CInt(TextBox1) > CInt(TextBox2) Then

MsgBox ("Górna granica przediału musi być większa od dolniej")

Else

If CInt(TextBox1) = CInt(TextBox2) Then

MsgBox (" Ten przedział zawiera tylko jedną liczbę")

Else

If CInt(TextBox1) < 0 Or CInt(TextBox2) < 0 Then

MsgBox ("Przedział musi zawierac tylko liczby nieujemne")

Else

If CInt(TextBox1) > 10000 Or CInt(TextBox2) > 10000 Then

MsgBox ("Sprawdzane liczby muszą należeć do przedziału (0;10000)")

Else

d = Val(TextBox1)

g = Val(TextBox2)

For i = d To g

pom = " "

a = Str(i)

For j = Len(a) To 1 Step -1

pom = pom & Mid(a, j, 1)

[nozyck]

http://www.techonthenet.com/excel/formulas/mid.php

http://www.techonthenet.com/excel/formulas/len.php