سوالی دربار ه ی الگوریتم

[sadeghmosavi539]

با سلام
یه سوال داشتم
الگوریتمی بنویسید تعداد اعداد ورودی را تشخیص دهد چند رقمی است
لطفا سریع پاسخ دهید
با تشکر

[habibb]



[PMTornado]

سلام .
__________________________________________________ __

1. شروع
2. عدد را بگير
3. تعداد ارقام آنرا چاپ كن
4. پايان
5. .

__________________________________________________ __
تو VB6 :
دو تا TextBox بيار رو فرم

Private Sub Text1_KeyPress(KeyAscii As Integer)

   Select Case KeyAscii

        Case 8, 48 To 57

            KeyAscii = KeyAscii

        Case Else

            KeyAscii = 0

    End Select

End Sub

Private Sub Text1_Change()

   Dim i As Integer

   For i = 0 To Len(Text1)

      Text2 = i

   Next

End Sub