[a_abdullah]

(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