Option Explicit
Dim str, i, x
str = "Baba"
i = 1
Do
x = mid(str, i, 1)
If x = Empty then
Exit Do
End If
i = i+1
Loop
Print "Length of the string '"& str & "' is " & i-1
str = "Baba"
i = 1
Do
x = mid(str, i, 1)
If x = Empty then
Exit Do
End If
i = i+1
Loop
Print "Length of the string '"& str & "' is " & i-1
No comments:
Post a Comment