+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : البيئات التطويرية ولغات البرمجة (http://vb4arb.com/vb/forumdisplay.php?fid=81)
+--- قسم : دليل الطالب (http://vb4arb.com/vb/forumdisplay.php?fid=198)
+--- الموضوع : [VB.NET] سؤال في الاري (/showthread.php?tid=18155)
سؤال في الاري - a_abdullah - 26-11-16
صباح الخير جميعا
هذا شكل الفورم المطلوب والسؤال كالتالي وارجو المساعده
write a program that does the following:
o Initializes the array by reading 10 input values from the user.
o Prints the array.
o Prints even numbers only.
o Replace all even integers in an array by -1 and prints out the modified array.
o Initializes the array by reading 10 input values from the user.
o Prints the array.
o Prints even numbers only.
o Replace all even integers in an array by -1 and prints out the modified array.
RE: سؤال في الاري - amgad525 - 26-11-16
PHP كود :
Dim n(9) As Integer
For i = 0 To 9
n(i) = Val(InputBox("Enter number:"))
Next
Label1.Text = String.Join(" ", n)
For i = 0 To 9
If (n(i) Mod 2) = 0 Then
Label2.Text &= n(i) & " "
End If
Next
For i = 0 To 9
If (n(i) Mod 2) = 0 Then
n(i) = -1
End If
Label3.Text &= n(i) & " "
Next
Val:
Returns the numbers contained in a string as a numeric value of appropriate type
RE: سؤال في الاري - a_abdullah - 26-11-16
(26-11-16, 09:44 AM)amgad525 كتب :PHP كود :
Dim n(9) As Integer
For i = 0 To 9
n(i) = Val(InputBox("Enter number:"))
Next
Label1.Text = String.Join(" ", n)
For i = 0 To 9
If (n(i) Mod 2) = 0 Then
Label2.Text &= n(i) & " "
End If
Next
For i = 0 To 9
If (n(i) Mod 2) = 0 Then
n(i) = -1
End If
Label3.Text &= n(i) & " "
Next
Val:
Returns the numbers contained in a string as a numeric value of appropriate type
طيب ابغاه يكون ادخال الارقام في تيكست بوكس بدال InputBox