درخواست حل يه سوال از كتاب وي بي قمي

دوستان اگه ميشه سورس اين برنامه رو يكي بهم بده قول ميدم سر نماز براس دعا كنم.(وي بي 6)

برنامه اي بنويسيد كه دو دسته اعداد 10 تايي را خوانده و در ارايه قرار دهد،سپس اعدادي كه بين دو ارايه مشترك هستند را در ارايه اي جديد قرار دهد(ارايه ي 3)

اين سوال مربوط به سوال 7 صفحه ي 120 كتاب اموزش ويژوال بيسيك اقاي قمي است.
رشتم هم نرم افزار نيست.برق است اين درس رو استاد بهم 10 هم بده راضيم!هيچي از برنامه نويسي ير در نميارم چون علاقه اي ندارم.خداييش اين رسته ي شما هم سخته ااااا
منتظرم براي يكي دعا كنم! str:

کد پایین رو نوشتم ... ببینید بدردتون میخوره :

کد:

---

Private Sub Command1_Click()
Dim a(9) As Byte
Dim b(9) As Byte
For i = 0 To 9
 a(i) = InputBox("Enter A Number")
Next i
For i = 0 To 9
 b(i) = InputBox("Enter A Number,2")
Next i
For i = 0 To 9
 For j = 0 To 9
  If a(i) = b(j) Then Print a(i)
 Next j
Next i
End Sub

---

* این کد اول ده عدد رو دریافت میکنه و در آرایه ی a قرار میده و بعد 10 عدد دیگه دریافت میکنه و در آرایه ی b قرار میده !
* این دو آرایه رو باهم مقایسه میکنه و هر عددی بین آن ها مساوی بود ، آنرا روی فرم چاپ میکنه !

بله رفیق کار ما رو خوب راه میندازه....انشا الله از جوانیت خیر ببینی رفیقهمیشه سربلند باشی

من امده بودم جواو بدم ولی دوست عزیزمون جوابو داده بودن.