مشكله بسيطه بعمل برنامج بالفيجوال دوت نت بليييز ساعدوني

السلام عليكم ورحمة الله وبركاته..

كيف حالكم ان شاالله طيبين

عندي هذا Activity

make a visual basic.net project which receives three numbers which are less than 50 into three textboxs and check the three number if one of them is even it prints the even numbers belw it in another textbox and comare the three numbers the biggist one of them we want to print sum of numbers below ot into another textbox the third number we want to print the multipication of the numbers begin with it and up to 50

مطلوب بهالسؤال مني :

* ادخل 3 ارقام واطلع العدد الزوجي بينهم( هذا عملته اوكيه وضبط)

وهذي الشفره تبعها:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		If Val(TextBox1.Text) Mod 2 = 0 Then
			TextBox4.Text = TextBox1.Text
		ElseIf Val(TextBox2.Text) Mod 2 = 0 Then
			TextBox4.Text = TextBox2.Text
		Else : TextBox4.Text = TextBox3.Text
		End If
	End Sub

* بعدين اعرض الارقام الاقل من هذا الرقم الزوجي "بالضغط على زر show Data"( والحمدلله ضبط معاي اوكيه)

وهذي شفرتها:

Dim i As Integer
		Dim wrap As String
		wrap = Chr(13) & Chr(10)
		For i = 0 To Val(TextBox4.Text) Step 1
			TextBox5.Text = TextBox5.Text & i & wrap
		Next
	End Sub

*المطلوب الثالث اني اقارن بين الثلاثه الارقام واطلع العدد الاكبر فيهم ( هذي عملتها لكن بطريقه اني اقارن 2 منهم والنتيجه اقارنها بالثالثه ومشي حالها)

شفرتها:

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		If Val(TextBox1.Text) > Val(TextBox2.Text) Then
			TextBox6.Text = TextBox1.Text
		Else
			TextBox6.Text = TextBox2.Text

		End If
	End Sub

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		If Val(TextBox3.Text) > Val(TextBox6.Text) Then
			TextBox7.Text = TextBox3.Text
		Else
			TextBox7.Text = TextBox6.Text
		End If
	End Sub

*والمطلوب الرابع انه "بالضغط على زر show Data" يقوم بجمع الارقام من الصفر لحد الرقم الاكبر بينهم ( وهنا المشكله ما ضبطت معاي)

وهذي شفرتها:

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
		Dim i As Integer
		Dim sum As Integer = 0
		Dim wrap As String
		wrap = Chr(23) & Chr(20)
		For i = 0 To Val(TextBox7.Text) Step 1
			sum = sum + Val(TextBox7.Text)
			TextBox8.Text = sum
		Next

*واالاخير المضروب للرقم الاكبر لحد 50 ( ما عرفت له )

هذا شكل الفورم اللي عملته وقفت عند الرابعه

بالشو داتا الاخيره ما يطلعلي النتيجه صح(المفروض يطلع لي الاعداد الاقل من العدد الاكبر)

الـButtons و الـLabelsمرتبه من فوق الى تحت

بليييزساعدوني ايش المشكله في المطلوب الرابع ..وكيف ممكن اعمل المضروب بالمطلوب الاخير (دراستي بالفيجوال مرره بسيطه ما تتجاوز ال4 محاضرات وطُلب مني عمل هذا الـ active)

ويعطيكم العافيه