¿Cuáles son las tres condiciones para agregar la IP de una interfaz directamente conectada, a la tabla de enrutamiento?
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub Form_Load()
Dim numero As Integer
Dim suma As Integer
Dim par As Boolean
Dim digito As Integer
numero = InputBox("Introduce un numero: ")
par = False
suma = 0
While numero > 0
digito = numero Mod 10
If digito Mod 2 = 0 Then
suma = suma + digito
par = True
numero = numero / 10
End If
Wend
MsgBox ("La suma de los digitos pares han sido: " & suma)
End Sub
Private Sub Form_Load()
Dim numero As Integer
Dim suma As Integer
Dim par As Boolean
Dim digito As Integer
numero = InputBox("Introduce un numero: ")
par = False
suma = 0
While numero > 0
digito = numero Mod 10
If digito Mod 10 = 0 Then
suma = suma + digito
par = True
numero = numero / 10
End If
Wend
MsgBox ("La suma de los digitos pares han sido: " & suma)
End Sub