12.169 cursos gratis
8.789.284 alumnos
Facebook Twitter YouTube
Busca cursos gratis:

Manual de Visual Basic Intermedio

Autor: Jorge Alvarez
Curso:
9,45/10 (20 opiniones) |22740 alumnos|Fecha publicación: 17/03/2006
Envía un mensaje al autor

Capítulo 6:

 Ejercicio 6: Análisis Numérico

                                Ejercicio 6: Análisis Numérico

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

Capítulo anterior - Ejercicio 5: Fecha Escrita

Nuestras novedades en tu e-mail

Escribe tu e-mail:



MailxMail tratará tus datos para realizar acciones promocionales (vía email y/o teléfono).
En la política de privacidad conocerás tu derechos y gestionarás la baja.

Cursos similares a Manual de Visual Basic Intermedio



  • Vídeo
  • Alumnos
  • Valoración
  • Cursos
1. Manual de Visual Basic Principiante
En el título de este curso, Manual de Visual Basic para Principiantes ,... [17/03/06]
155.711  
2. Visual Basic Express. Crear alarma (1/4)
Alarma en Visual Basic 2008. Sigue nuestro curso de informática y aprende a... [13/04/11]
884
Curso con video
3. Visual Basic Express. Crear una alarma (2/4)
Crear una alarma en Visual Basic 2008 Express . Te presentamos la continuación del... [13/04/11]
352
Curso con video

¿Qué es mailxmail.com?|ISSN: 1699-4914|Ayuda
Publicidad|Condiciones legales de mailxmail