تابع function

[mahdivita]

سلام دوستان
میخواستم که برنامه بنویسم که بااستفاده از تابع از ورودی عددی بگیره و تعداد اعداد زوج اون عدد رو پرینت کنه همچنین در تابعی دیگر از ورودی عددی بگیره و اعداد زوج آن عدد را باهم جمع کند
لطفا از دوستان کسی بلده کمک کنه
ممنون

[mahdivita]

واقعا کسی بلد نیست یا کسی حوصله ی نوشتن نداره؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[m.4.r.m]

کسی حوصله تمرین نوشتن نداره ئوست من کمک میکنیم تمرین حل نمیکنیم

[mahdivita]

آفایون و خانوما تو رو خدا من رو حمایت کنید من یه برنامه نویس تازه کارم
جون هرکی دوست دارید

[mehran901]

سلام دوستان
میخواستم که برنامه بنویسم که بااستفاده از تابع از ورودی عددی بگیره و تعداد اعداد زوج اون عدد رو پرینت کنه همچنین در تابعی دیگر از ورودی عددی بگیره و اعداد زوج آن عدد را باهم جمع کند
لطفا از دوستان کسی بلده کمک کنه
ممنون

تیکه اول رو که خوب متوجه نشدم ولی این تیکه دوم اینجوره که ی عدد بدی بهش ، مثلا 24 بیاد از 0 تا 24 اعداد ، اعداد زوج رو جمع کنه هان ؟
خب این جور چیزایی خیلی سادست ! 2 راه پیشنهاد میکنم یا با حلقه و اسپ مشخص این کارو بکنی یا رابطه :
2 + 4 + ... + 2n = n(n+1) استفاده کنی مثلا

به دست آوردن مجموع اعداد زوج :

Option Explicit

Public Function sum(a As Integer) As Integer
sum = (a / 2) * (a / 2 + 1)
sum = IIf(a Mod 2 = 0, sum, 0)

End Function



و مثلا با نوشتن msgbox sum(4) مجموع 2 و 4 رو بهت میده با نوشتن 124 مجموع 2 + 4 + 6 + ... + 124 رو بهت میده ! این روش ریاضیش ... با حلقه نوشتن هم که کاری نداره دیگه

واسه مجموع اعداد فرد , و مجموعه اعدادهم میدونی که رابطه زیر
هست

1 + 3 + 5 + ... 2n-1 =
n ^ 2

va

1 + 2 +3 ... + n =
n(n+1) / 2

[mahdivita]

سلام دوست عزیز
ممنون از این که وقت گذاشتین برای من و نوشتین ولی این برنامه یه مشکلی اونم این هستش که منظور من اینه که مثلا وقتی کاربر در تکست باکس زدش 326 پرینت کنه 8 چون اعداد زوج این عدد 6و2 هست و مجموع این دوعدد هم 8 و درمورد تابع دوم هم مثلا وقتی کاربر زد18942 پرینت کنه 3 چون در این عدد فقط 8و4و2 زوج هستند پس سه عدد زوج هست و در خروجی باید 3 چاپ شود
امیدوارم متوجه منظورم شده باشید

[SlowCode]

خب کاری نداره که! اگه تو نوشتن برنامه مشکل داری به احتمال زیاد تو درکش هم مشکل داری.
Dim Counter As Byte, Num As Byte, Sum As Byte
For i = 1 To Len(Text1)
Num = Mid(Text1, i, 1)
If Num Mod 2 = 0 Then
Counter = Counter + 1
Sum = Sum + Num
End If
Next
MsgBox "Number of evens: " & Counter
MsgBox "Sum of even numbers: " & Sum