درخواست چند تا كد (فوريه فوري)

فوري

سلام
دوستان هر كي ميتونه لطفاً‌ جواب (كد هاي) اين سوال هاي زير رو بده :

1- برنامه اي بنويسيد كه 4 عدد را از ورودي بگيرد و پيام مناسبي را چاپ كند (4 عدد مساوي هستند- 3 عدد مساوي هستند - 2 عدد مساوي هستند - هيچ يك مساوي نيستند)

2- برنامه اي بنويسيد كه ضرايب معادله درجه دوم را بگيرد و ريشه هاي ان را روي فرم چاپ كند

3- برنامه اي بنويسيد كه يك عدد 4 رقمي را از ورودي بگيرد و اگر ان عدد با مقلوب خود برابر بود كلمه "Yes" و در غير اين صورت كلمه "No" را چاپ كند

ممنون :11:

برنامه شماره سوم رو نوشتم

کد:

---

    Dim Num  As String
    Dim Mun  As String
    Num = InputBox("Enter Your Number:")
    For i = Len(Num) To 1 Step -1
      Mun = Mun + CStr(Mid(Num, i, 1))
    Next
    If Val(Num) = Val(Mun) Then
        Print "Numbers are equal."
    Else
        Print "The numbers are not equal."
    End If

---

معادله درجه دو

کد:

---

http://up.--------.com/images/vindakydx1l5q4vpo6oq.rar

---

خب پس اینم برنامه اول:

کد:

---

Private Sub Command1_Click()
a = InputBox("1")
b = InputBox("2")
c = InputBox("3")
d = InputBox("4")
k = 0
If a = b Then k = k + 1
If a = c Then k = k + 1
If a = d Then k = k + 1
If b = a Then k = k + 1
If b = c Then k = k + 1
If b = d Then k = k + 1
If c = a Then k = k + 1
If c = b Then k = k + 1
If c = d Then k = k + 1
If d = a Then k = k + 1
If d = b Then k = k + 1
If d = c Then k = k + 1


If k = 12 Then MsgBox "4 ta barabar"
If k = 6 Then MsgBox "3 ta barabar"
If k = 2 Then MsgBox "2 ta barabar"
If k = 0 Then MsgBox "0 ta barabar"

End Sub

---

OK????