محبوبترینها
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1846405659
کمک برای نوشتن یک برنامه در vb -
واضح آرشیو وب فارسی:سایت ریسک: کمک برای نوشتن یک برنامه در vb HSN_MAYA 02 ارديبهشت 1389, 21:29سلام به همه بچه های برنامه نویس. من میخوام یه برنامه بنویسم که: سه عدد رو از ورودی بگیرد و بزرگترین عدد زوج را چاپ کند. خواهش میکنم کمک کنید. بد جور گیرم. اگه میتونید الگوریتم اون رو هم بنویسید. راستش بیشتر الگوریتمش رو لازم دارم. مرسی. منتظرم. :rose: the_king 03 ارديبهشت 1389, 03:26سلام به همه بچه های برنامه نویس. من میخوام یه برنامه بنویسم که: سه عدد رو از ورودی بگیرد و بزرگترین عدد زوج را چاپ کند. خواهش میکنم کمک کنید. بد جور گیرم. اگه میتونید الگوریتم اون رو هم بنویسید. راستش بیشتر الگوریتمش رو لازم دارم. مرسی. منتظرم. :rose: اول سه عدد از ورودی می گیریم. سپس اعداد رو بصورت نزولی مرتب می کنیم : اگر عدد اول از عدد دوم کوچکتر بود جایشان را عوض می کنیم. اگر عدد دوم از عدد سوم کوچکتر بود جایشان را عوض می کنیم. مجددا اگر عدد اول از عدد دوم کوچکتر بود جایشان را عوض می کنیم. اگر عدد اول زوج بود چاپ اش می کنیم، وگرنه اگر عدد دوم ز وج بود چاپ اش می کنیم، وگرنه اگر عدد سوم ز وج بود چاپ اش می کنیم. Option Explicit Private Sub Form_Load() Dim a As Long, b As Long, c As Long a = Val(InputBox("Please enter a :")) b = Val(InputBox("Please enter b :")) c = Val(InputBox("Please enter c :")) If a < b Then Swap a, b If b < c Then Swap b, c If a < b Then Swap a, b If a Mod 2 = 0 Then MsgBox a ElseIf b Mod 2 = 0 Then MsgBox b ElseIf c Mod 2 = 0 Then MsgBox c End If End End Sub Private Sub Swap(a, b) Dim c c = a a = b b = c End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1333]
-
گوناگون
پربازدیدترینها