Exam1 VB

برنامه ای که عددی 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 چاپ می شود.