برنامه ای که عددی 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 رقمی را دریافت می کند و تعداد ارقام آنرا نمایش می دهد.Dim i As Long, n As Long, c As Longc = 0n = Val(Text1.Text) For i = 1 To n If n > 0 Then n = n / 10 c = c + 1 End If Next iPrint c
متغیر i برای شمارنده حلقه for استفاده شده است
متغیر n برای دریافت عدد از ورودی
متغیر c یک شمارنده می باشد که هربار که عدد موردنظر بر 10 تقسیم می شود و شرط حلقه برقرار می باشد، یک واحد به این متغیر اضافه می شود
در این برنامه عدد تا زمانی که از صفر بزرگتر می باشد بر عدد 10 تقسیم می شود و حاصل این تقسیم
درباره این سایت