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?
Kod:
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)