Crea un formulario con cuatro marcos, siete etiquetas, ocho cajas de texto, tres botones y escribe el siguiente código:

El botón Análisis

Private Sub Command1_Click()

If IsNumeric(Text1) Then

Dim s As Integer, si As Integer, sp As Integer

Dim may As Integer, min As Integer

Dim cad As String

Dim i As Integer, j As Integer

n = CLng(Text1)

m = CLng(Text1)

cad = ""

i = 0

j = 1

s = sp = si = 0

For j = 1 To n

If (n Mod j = 0) Then

cad = cad & j & vbCrLf

End If

Next j

While (n > 0)

If ((n Mod 10) Mod 2) = 0 Then

sp = sp + (n Mod 10)

Else

si = si + (n Mod 10)

End If

s = s + (n Mod 10)

n = n \ 10

i = i + 1

Wend

may = Mid(Text1, 1, 1)

men = may

While (m > o)

If may < (m Mod 10) Then

may = m Mod 10

End If

If men > (m Mod 10) Then

men = m Mod 10

End If

m = m \ 10

Wend

Text2 = Str(i)

Text3 = Str(si)

Text4 = Str(sp)

Text5 = Str(s)

Text6 = Str(may)

Text7 = Str(men)

Text8 = cad

Else

MsgBox "Debes Introducir un Número, El que Quieras pero Introduce Un Número", vbCritical, "Aviso Importante"

Text1.SetFocus

End If

End Sub

El botón Otro Número

Private Sub Command2_Click()

Text1 = "": Text2 = ""

Text3 = "": Text4 = ""

Text5 = "": Text6 = ""

Text7 = "": Text8 = ""

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

If MsgBox("¿Deseas Cerrar el Programa?", vbQuestion + vbYesNo, "Aviso Antes de Cerrar el Programa") = vbYes Then

End

Else

Cancel = True

Text1.SetFocus

End If

End Sub