نتایج جستجو برای عبارت :

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 رقمی را دریافت می کند و تعداد ارقام آنرا نمایش می دهد.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 تقسیم می شود و حاصل این تقسیم

تبلیغات

محل تبلیغات شما

آخرین مطالب این وبلاگ

آخرین وبلاگ ها

برترین جستجو ها

آخرین جستجو ها