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

الأخ الفاضل ...

أنشئ مشروع VB بحيث الـ Form تحتوى على TextBox بأسم Text1 واضف له الكود التالى :

Private Sub Form_Activate()
	Dim n As Integer
	Dim i As Integer
	Dim s As String

	For n = 1 To 10
		i = Int("0" & InputBox("Please, Enter number for checking[" & n & "]: ", "Enter number", "0"))
		If (i Mod 2) = 0 Then s = s & " - " & i
	Next
	Text1 = s
End Sub

شكراً

مشكور اخوي

على المساعدة

بس كنت ابغ باستخدام Do loop

اذا امكن

واكون شاكر لك حبيبي

الأخ الفاضل ...

Do Loop بأستخدام (While)

Private Sub Form_Activate()
	Dim n As Integer
	Dim i As Integer
	Dim s As String

	n = 1
	Do
		i = Int("0" & InputBox("Please, Enter number for checking[" & n & "]: ", "Enter number", "0"))
		If (i Mod 2) = 0 Then s = s & " - " & i
		n = n + 1
	Loop While n <= 10
	Text1 = s
End Sub

أو

Private Sub Form_Activate()
	Dim n As Integer
	Dim i As Integer
	Dim s As String

	n = 1
	Do While n <= 10
		i = Int("0" & InputBox("Please, Enter number for checking[" & n & "]: ", "Enter number", "0"))
		If (i Mod 2) = 0 Then s = s & " - " & i
		n = n + 1
	Loop
	Text1 = s
End Sub

Do Loop بأستخدام (Until)

Private Sub Form_Activate()
	Dim n As Integer
	Dim i As Integer
	Dim s As String

	n = 1
	Do
		i = Int("0" & InputBox("Please, Enter number for checking[" & n & "]: ", "Enter number", "0"))
		If (i Mod 2) = 0 Then s = s & " - " & i
		n = n + 1
	Loop Until n > 10
	Text1 = s
End Sub

أو

Private Sub Form_Activate()
	Dim n As Integer
	Dim i As Integer
	Dim s As String

	n = 1
	Do Until n > 10
		i = Int("0" & InputBox("Please, Enter number for checking[" & n & "]: ", "Enter number", "0"))
		If (i Mod 2) = 0 Then s = s & " - " & i
		n = n + 1
	Loop
	Text1 = s
End Sub

شكراً

الله يجزالك الف خير

ويعطيك العافية حبيبي

شكرا لك