تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1835117373
کمک ! کی می تونه این برنامه ها رو بنویسه -
واضح آرشیو وب فارسی:سایت ریسک: کمک ! کی می تونه این برنامه ها رو بنویسه f_n251 14 مهر 1389, 15:28سلام من در حال یادگیری وی بی 6 هستم کی میتونه سورس این برنامه ها رو برام بذاره ممنون میشم 1- نام 5 دانش آموز و نمره 3 درس او را دریافت کنید سپس نام او به همراه معدل سه درس را نمایش دهید و در پایان نام دانش آموزی که بیشترین و کمترین معدل دارد را نمایش دهید 2-برنامه ای که نام و نمره ریاضی 7 نفر را گرفته و اعلام کند رتبه دوم کیست the_king 14 مهر 1389, 17:46سلام من در حال یادگیری وی بی 6 هستم کی میتونه سورس این برنامه ها رو برام بذاره ممنون میشم 1- نام 5 دانش آموز و نمره 3 درس او را دریافت کنید سپس نام او به همراه معدل سه درس را نمایش دهید و در پایان نام دانش آموزی که بیشترین و کمترین معدل دارد را نمایش دهید 2-برنامه ای که نام و نمره ریاضی 7 نفر را گرفته و اعلام کند رتبه دوم کیست سوالات رو یکجا ننویسید. لطفا برای هر سوال یک تاپیک جداگانه ایجاد کنید. مثلا اگه درخواست چهار مثال برنامه دارید، چهار تاپیک جداگانه ایجاد کنید. نام 5 دانش آموز و نمره 3 درس او را دریافت کنید سپس نام او به همراه معدل سه درس را نمایش دهید و در پایان نام دانش آموزی که بیشترین و کمترین معدل دارد را نمایش دهید. Option Explicit Private Sub Form_Load() Dim N As Long, I As Long Dim Names(1 To 5) As String Dim Average(1 To 5) As Double Dim Value As Double Dim MinN As Long, MaxN As Long For N = 1 To 5 Names(N) = InputBox("Please enter Name of Student #" & CStr(N)) Average(N) = 0 For I = 1 To 3 Value = Val(InputBox("Student " & Names(N) & vbNewLine & "Please enter value on course #" & CStr(I))) Average(N) = Average(N) + Value Next Average(N) = Average(N) / 3 MsgBox "Student : " & Names(N) & vbNewLine & " Average = " & Format(Average(N), "0.00") Next MinN = 1 MaxN = 1 For N = 2 To 5 If Average(MinN) > Average(N) Then MinN = N ElseIf Average(MaxN) < Average(N) Then MaxN = N End If Next MsgBox "Best Student : " & Names(MaxN) & vbNewLine & " Average = " & Format(Average(MaxN), "0.00") _ & vbNewLine & "Worst Student : " & Names(MinN) & vbNewLine & " Average = " & Format(Average(MinN), "0.00") End Sub the_king 14 مهر 1389, 18:00برنامه ای که نام و نمره ریاضی 7 نفر را گرفته و اعلام کند رتبه دوم کیست Private Sub Form_Load() Dim N As Long Dim Names(1 To 7) As String Dim Score(1 To 7) As Double Dim TopN As Long, PrevTopN As Long For N = 1 To 7 Names(N) = InputBox("Please enter Name of Student #" & CStr(N)) Score(N) = Val(InputBox("Student " & Names(N) & vbNewLine & "Please enter score")) Next TopN = 1 For N = 2 To 7 If Score(TopN) > Score(N) Then TopN = N Next PrevTopN = TopN For N = 1 To 7 If Score(TopN) < Score(N) Then PrevTopN = TopN TopN = N End If Next MsgBox "Second Student : " & Names(PrevTopN) & vbNewLine & " Score = " & Format(Score(PrevTopN), "0.00") End Sub f_n251 15 مهر 1389, 12:42ممنون دوست عزیز سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1617]
-
گوناگون
پربازدیدترینها