[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