دو تا سوال مبتدی

کسی هست این دو سوالو برام حل کنه خیلی مهمه خواهشا یکی جواب بده سوال های امتحان ترممه

1 . برنامه بنویسید که ماکزیمم سه عدد رو از طریق زیر برنامه محاسبه کند

2 . قطعه برنامه ای بنویسید که مجموع ارقام یک عدد سه رقمی رو محاسبه کند (راهنمایی : مانند 123 مجموع ارقام برابر 6)

اینم یک نمونه

برنامه بنویسید که جمع سه عدد رو از طریق زیر برنامه حساب کند

dim result az integer
result = s(a,b,c)
function s(x,y,z) as integer
dim w as integer
w=x+y+z
w=s
end function

ببینید اینا به دردتون می خوره.../// :9:
********************

کد:

---


Sub Main()

    result = Max(1, 2, 3)

    MsgBox result

End Sub

Function Max(x, y, z) As Integer

    If x >= y And x >= z Then Max = x
    If y >= x And y >= z Then Max = y
    If z >= x And z >= y Then Max = z

End Function

---

***************************

کد:

---


Sub Main()

    result = F(123)

    MsgBox result

End Sub

Function F(num) As Integer

    For i = 1 To Len(Trim(Str(num)))
   
        F = F + Int(Mid(Trim(Str(num)), i, 1))
   
    Next i

End Function

---

***************
موفق باشید! :n18:

دمت گرم داش فک کنم درست باشه :n12:من که سرم نمیشه :n02: حالا اگه کسی دیگه هم میدونه کمک کنه :n03: