
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
Hay 19 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Adobe Photoshop Adobe Photoshop (Ps) es una aplicación que se utiliza para la edición, retoque fotográfico y pintura a base de imágenes de mapa de bits. Ph... [18/05/09] |
|
2.400 | ||
|
Diseño de páginas web con FrontPage FrontPage es uno de los programas más tradicionales para la creación de páginas web atractivas. En los tiempos en los que estamos, en los que todas las empresas se hacen ... [18/09/02] |
|
96.781 | ||
|
Photoshop. Hacer cómic con fotografía Photoshop. Hacer cómic con una fotografía, mediante el programa Photoshop, aprenderás a crear |
|
1.015 | ||
Publicar en
del.icio.us
digg
meneame