COMPUTER CLASS



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



نمونه سوالات امتحان عملی "نرم افزار اداری" مطابق با تمرینات کلاسی که قبلا انجام شده است می باشد.


مانند: (در word) طراحی جدول / چارت و. - ایجاد سکشن / ایجاد لینک : مثلا از صفحه چهار لینک می شود به صفحه یک - تغییر هدر یا سربرگ در هر سکشن بصورت مجزا

         (در پاورپوینت) ایجاد تب های فعال(طراحی دکمه هایی که با استفاده از خاصیت اکشن بصورت لینک در آمده می باشند)

        موفق باشید. 


آخرین مطالب

آخرین ارسال ها

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