مشکل کار با حلقه For Step

[adib202 0]

سلام

من این تابع رو قبلا تو vb6 استفاده کردم ولی الان توی B4a نتیجه نمیگیرم.کسی میدونه دلیلش چیه؟

	


      	Dim dl As String
        Dim i As Int
        Dim len As Int
	    Dim sx As string
          
		dl = EditText1.Text
      
        len=dl.Length
          
	For i = 1 To len Step (len / 26)
		sx = sx + i
	Next
	
      EditText2.Text = sx
          
          

 

[M-CAP7AIN 537]

	Dim dl As String
	Dim len As Int
	Dim sx As Int
          
	dl = "Hello Friends! Hello Friends! Hello Friends! "
      
	len=dl.Length
          
	For i = 1 To len Step (len / 26)
		sx = sx + i
	Next
	
	Log(sx)

اصولیش اینه ، برای چه کاری می خواید؟