برنامه ای که عددی N رقمی را دریافت می کند و تعداد ارقام آنرا نمایش می دهد.
Dim i As Long, n As Long, c As Long
c = 0
n = InputBox("Enter a number:")
For i = 1 To n
If n > 0 Then
n = n / 10
c = c + 1
End If
Next i
MsgBox ("Number Of Digits Is: ") & c
متغیر i برای شمارنده حلقه for استفاده شده است
متغیر n برای دریافت عدد از ورودی
متغیر c یک شمارنده می باشد که هربار که عدد موردنظر بر 10 تقسیم می شود و شرط حلقه برقرار می باشد، یک واحد به این متغیر اضافه می شود
در این برنامه عدد تا زمانی که از صفر بزرگتر می باشد بر عدد 10 تقسیم می شود و حاصل این تقسیم در خود متغیر n مجدد ذخیره می شود و هر مرتبه هم یک واحد به شمارنده اضافه میشود(c)، در آخر مقدار c چاپ می شود.
درباره این سایت