شمارش اعداد وارد شده

[sayyedahmadhosayni]

سلام

شرمنده سرچ کردم چیزی دست گیرم نشد

چطوری میشه تعداد اعداد وارد شده رو شمرد

و همچنین تعداد صفرهای وارد شده رو


البته میدونم سوالم خیلی ابتدایی اما (ندانستن عیب نیست) :افسرده::افسرده:

[اوبالیت به بو]

همچین خودم زیاد مطمئن نیستم:

Dim Number As Integer
Dim Mad, Counter As Byte
Number = InputBox("Enter Number Value:")
Do
Mad = Number Mod 10
Number = Number \ 10
If Mad = 0 Then Counter = Counter + 1
Loop Until Number <= 0
Print CounterNumber: عدد ورودی
Mad: باقیمانده
Counter: شمارنده اعداد صفر

[nokhodi]

دوست عزیز راهی هست تا مثلا عددی رو بهش بدیم مقدار رشته ای اون رو به ما برگردونه یا بالعکس...




سپاس و تشکر

[majjjj]

بله هست توابع api مربوط به رشته ها

[اوبالیت به بو]

می تونید به وسیله تابع Str اون عدد رو تبدیل به رشته کنید و بعد با تابع Len تعداد ارقام رو بشمارید.

StrValue=Str(Number)
Print Len(strValue)

[مسعودبهمني]

با سلام
به نظر بنده درست ترين پاسخ بالايي است. يعني تعداد كاركترهاي يك رشته رو برمي‌گردونه ولي اگر منظورت اينه كه عدد بدي (51) و اون برنامه براي شما بخوندش(پنجاه و يك) برنامه كاملي توسط يكي از قهارتينها توي همين سايت گذاشته شده. آخرين ورژنش بهترينشه.

[.:KeihanCPU:.]

برای شمارش اعداد

Len(Text1.text)

[roomezonline]

سلام

شرمنده سرچ کردم چیزی دست گیرم نشد

چطوری میشه تعداد اعداد وارد شده رو شمرد

و همچنین تعداد صفرهای وارد شده رو


البته میدونم سوالم خیلی ابتدایی اما (ندانستن عیب نیست) :افسرده::افسرده:

تا جايي كه من خبر دارم از ( len(string استفاده ميشه براي شمارش تعداد كاركتر هاي موجود