تور لحظه آخری
امروز : چهارشنبه ، 1 اسفند 1403    احادیث و روایات:  پیامبر اکرم (ص):فرزندم از خواندن قرآن غافل مباش، زيرا كه قرآن دل را زنده مى كند و از فحشاء و زشتى ...
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

سایبان ماشین

دزدگیر منزل

اجاره سند در شیراز

armanekasbokar

armanetejarat

Future Innovate Tech

پی جو مشاغل برتر شیراز

خرید یخچال خارجی

بانک کتاب

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

خرید بلیط هواپیما

بلیط اتوبوس پایانه

تعمیرات پکیج کرج

خرید از چین

خرید از چین

خرید سرور اچ پی ماهان شبکه

کاشت ابرو طبیعی و‌ سریع

دوره آموزش باریستا

مهاجرت به آلمان

تشریفات روناک

نوار اخطار زرد رنگ

ثبت شرکت فوری

خودارزیابی چیست

فروشگاه مخازن پلی اتیلن

کاشت ابرو طبیعی

پارتیشن شیشه ای اداری

رزرو هتل خارجی

تولید کننده تخت زیبایی

سی پی کالاف

دوره باریستا فنی حرفه ای

چاکرا

استند تسلیت

پی ال سی زیمنس

دکتر علی پرند فوق تخصص جراحی پلاستیک

تعمیر سرووموتور

تحصیل پزشکی در چین

مجله سلامت و پزشکی

تریلی چادری

ایونا

تعمیرگاه هیوندای

چاپ جزوه ارزان قیمت

کشتی تفریحی کیش

تور نوروز خارجی

خرید اسکرابر صنعتی

طراحی سایت فروشگاهی فروشگاه آنلاین راه‌اندازی کسب‌وکار آنلاین طراحی فروشگاه اینترنتی وب‌سایت

کاشت ابرو با خواب طبیعی

هدایای تبلیغاتی

زومکشت

فرش آشپزخانه

خرید عسل

قرص بلک اسلیم پلاس

کاشت تخصصی ابرو در مشهد

صندوق سهامی

تزریق ژل

خرید زعفران مرغوب

تحصیل آنلاین آمریکا

سوالات آیین نامه

سمپاشی سوسک فاضلاب

مبل کلاسیک

بهترین دکتر پروتز سینه در تهران

صندلی گیمینگ

کفش ایمنی و کار

دفترچه تبلیغاتی

خرید سی پی

قالیشویی کرج

سررسید 1404

تقویم رومیزی 1404

ویزای توریستی ژاپن

قالیشویی اسلامشهر

 






آمار وبسایت

 تعداد کل بازدیدها : 1861017420




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

راهنمایی درحل برنامه با vb6 -


واضح آرشیو وب فارسی:سایت ریسک: راهنمایی درحل برنامه با vb 6 khag 12 ارديبهشت 1389, 06:57دوستان اگه بخوام با ویژوال مجموع کامل اعداد رو بنوسیم باید چیکار کنم؟ لطفا راهنمایی کنید ممنون میشم... دوستان به چه صورت می توانیم n عددی رو از ورودی بگیریم و مجموع اعداد کامل اون رو محاسبه کنیم ؟؟ hhhhaaaa 12 ارديبهشت 1389, 07:17سلام ........ ........ ........ s = x1+x2+x3 print s البته اگه کل برنامه ای که نوشتی رو بزاری یا بیشتر توضیح بدی دقیق تر راهنمایی می کنم :wink: موفق باشی :rose: smile_alireza 12 ارديبهشت 1389, 21:28دوستان به چه صورت می توانیم n عددی رو از ورودی بگیریم و مجموع اعداد کامل اون رو محاسبه کنیم ؟؟ خوب دوست عزیز عدد کامل من می تونم این کمک رو بهتون کنم عدد کامل عددی هست که مقسوم علیه ها شو جمع کنیم به خود عدد دوباره می رسیم 6=1+2+3 خوب دیگه اینجا شما می تونی به راحتی این کارو کنی the_king 12 ارديبهشت 1389, 23:46دوستان اگه بخوام با ویژوال مجموع کامل اعداد رو بنوسیم باید چیکار کنم؟ لطفا راهنمایی کنید ممنون میشم... دوستان به چه صورت می توانیم n عددی رو از ورودی بگیریم و مجموع اعداد کامل اون رو محاسبه کنیم ؟؟ کد زیر مجموع اعداد کامل موجود در بین n عدد ورودی را مشخص می کند : Option Explicit Private Sub Form_Load() Dim n As Long, m As Long, i As Long, j As Long, sum As Long, sum2 As Long n = Val(InputBox("Please enter n :")) sum2 = 0 For m = 1 To n i = Val(InputBox("Please enter #" + CStr(m) + " number :")) sum = 0 For j = 1 To i 2 If i Mod j = 0 Then sum = sum + j Next If sum = i Then sum2 = sum2 + i Next MsgBox "Sum = " & sum2 End Sub این بخش از کد مشخص می کنه که آیا عدد i یک عدد کامل است یا خیر : sum = 0 For j = 1 To i 2 If i Mod j = 0 Then sum = sum + j Next If sum = i Then khag 13 ارديبهشت 1389, 15:57کد زیر مجموع اعداد کامل موجود در بین n عدد ورودی را مشخص می کند : Option Explicit Private Sub Form_Load() Dim n As Long, m As Long, i As Long, j As Long, sum As Long, sum2 As Long n = Val(InputBox("Please enter n :")) sum2 = 0 For m = 1 To n i = Val(InputBox("Please enter #" + CStr(m) + " number :")) sum = 0 For j = 1 To i 2 If i Mod j = 0 Then sum = sum + j Next If sum = i Then sum2 = sum2 + i Next MsgBox "Sum = " & sum2 End Sub این بخش از کد مشخص می کنه که آیا عدد i یک عدد کامل است یا خیر : sum = 0 For j = 1 To i 2 If i Mod j = 0 Then sum = sum + j Next If sum = i Then بزرگوار الان من عدد 28 رو وارد می کنم می خوام اعدادی که بر اون بخش پذیر هست تویه یه لیست box بذاره برام .. khag 13 ارديبهشت 1389, 15:58i = Val(InputBox("Please enter #" + CStr(m) + " number :")) این بخش برای چیه ؟؟؟ the_king 14 ارديبهشت 1389, 01:39i = Val(InputBox("Please enter #" + CStr(m) + " number :")) این بخش برای چیه ؟؟؟ هدف اصلی دریافت کردن عدد صحیح ای است که باید در متغیر i ذخیره شود. InputBox یک پیغام را نمایش داده و یک رشته را از کاربر دریافت می کند. ما در متن پیغام نمایش داده شده، توسط ()CStr شماره عدد دریافتی (اولین، دومین، سومین و ...) را هم اضافه می کنیم تا کاربر بداند که چندمین عددی است که از او دریافت می شود. چون هم # Please enter و هم : number رشته هستند، بایستی متغیر عددی m هم به رشته تبدیل شود که تابع ()CStr اینکار را انجام می دهد. چون خروجی InputBox یک رشته (و نه عدد) است، توسط تابع ()Val آنرا به عدد معادل اش تبدیل می کنیم. the_king 14 ارديبهشت 1389, 02:49بزرگوار الان من عدد 28 رو وارد می کنم می خوام اعدادی که بر اون بخش پذیر هست تویه یه لیست box بذاره برام .. فرض کنیم که ListBox ای با نام List1 در فرم قرار داشته باشد. Dim n As Long, i As Long n = Val(InputBox("Please enter n :")) For i = 1 To n If n Mod i = 0 Then List1.AddItem i Next




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1049]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن