Определение длины строки - VB

Dim x, k, n As Integer
Dim a, b, c, s(1 To 1001) As String
 
 
Private Sub Command1_Click()
 
a = Text1: n = Val(a)
If n < 1 Or n > 1000 Then Close
c = s(n): a = Str(n): Text1 = ""
Label3 = a + ": " + c
 
End Sub
 
 
Private Sub Command1_Click()
 
Text1 = "" : Label3 = "" ' clean all
 
End Sub
 
 
Private Sub Command1_Click()
 
Text1 = "" : Label3 = "" ' ochystka
Randomize
100 x = Int(Rnd() * 1000)
If x > 1000 Or x < 1 Then GoTo 100
b = Str(x)
c = s(x)
k = Len(c)
a = Str(k)
Label3 = b + ": " + c + "Dlinna Stroki: " + a + " znakov." 
 
End Sub