Practicas visual basic

CENTRO DE ESTUDIOS TECNOLÓGICOS INDUSTRIAL Y DE SERVICIOS NO. 43
ELAB. DE SISTEMAS DE INFORMACIÓN MEDIANTE UN LENGUAJE DE PROGRAMACION VISUAL
TITULAR: NOE NAJERA MENDEZ

PRÁCTICAS DE PROGRAMACIÓN VISUAL PARA PROYECTOS FINALES
1. NÚMEROS ALEATORIOS
DESARROLLE UNA APLICACIÓN EN VB QUE CONTENGA UNA CAJA DE TEXTO Y BOTON. CADA VEZ QUE SE PRESIONE SOBRE EL BOTÓN, QUE SE GENERE UN NÚMEROALEATORIO QUE ESTÉ ENTRE EL 0 Y EL 10.
Private Sub Command1_Click()Dim numAleatorio As Integer ' Esta variable guardará el número aleatorioRandomize 'Esta instrucción sirve para que siempre se generen números diferentes'para generar números entre el 0 y el 10 usamos la siguiente instrucción.numAleatorio = Round(10 * Rnd)Text1.Text = numAleatorioEnd Sub |

DESARROLLE UNA APLICACIÓN EN VB QUE CONTENGA UNA CAJA DE TEXTO Y BOTON. CADA VEZ QUE SE PRESIONE SOBRE EL BOTÓN, QUE SE GENERE UN NÚMERO ALEATORIO QUE ESTÉ ENTRE EL 10 Y EL 50.
Private Sub Command1_Click()DimnumAleatorio As Integer 'Esta variable guardará el número aleatorioRandomize 'Esta instrucción sirve para que siempre se generen números diferentes 'para generar números entre el 10 y el 50 usamos la siguiente instrucción.numAleatorio = Round(40 * Rnd + 10)Text1.Text =numAleatorioEnd Sub |

DESARROLLE UNA APLICACIÓN EN VB QUE CONTENGA UNA CAJA DE TEXTO Y BOTON. CADA VEZ QUE SE PRESIONE SOBRE EL BOTÓN, QUE SE GENERE UN NÚMERO ALEATORIO QUE ESTÉ ENTRE EL -10 Y EL 10.
Private Sub Command1_Click()Dim numAleatorio As Integer 'guarda el numero aleatorioDim numAleatorio2 As Integer 'esta variable sirve para generar números positivos o negativosRandomize'Esta instrucción sirve para que siempre se generen números diferentes'para generar números entre el -10 y el 10, primero generamos números entre el 0 y el 10'después generamos otro número entre 0 y 1. Si es 0 asumimos que será positivo, caso contrario será negativonumAleatorio = Round(10 * Rnd)numAleatorio2 = Round(1 * Rnd)If numAleatorio2 = 0 Then 'sera positivo y no hacemos nadaElse'será negativo numAleatorio = numAleatorio * -1End IfText1.Text = numAleatorioEnd Sub |

2. ARREGLOS
DESARROLLE UNA APLICACIÓN EN VB QUE UTILICE UN ARREGLO UNIDIMENSIONAL DE 10 CASILLAS PARA GUARDAR NÚMEROS ENTEROS GENERADOS AL AZAR (DEL 0 AL 20). Y QUE DESPLIEGUE EN UN MESSAGEBOX EL CONTENIDO DE DICHO ARREGLO.
Private Sub Form_Load()Dim Arreglo(9) As Integer ‘Este esel arreglo que guardará los 10 números generados al azarRandomize ‘Sirve para generar siempre números diferentesFor i = 0 To 9 ‘Este ciclo llena las casillas del arreglo Arreglo(i) = Round(20 * Rnd)Next i 'guardamos en una variable el resultado de todo elarregloFor i = 0 To 9 mensaje = mensaje & Arreglo(i) & vbCrLfNext iMsgBox mensaje ‘desplegamos el contenido del arregloEnd Sub |

DESARROLLE UNA APLICACIÓN EN VB QUE CONTENGA UN ARREGLO (ARRAY) DE 3 CONTROLES SHAPE Y QUE CADA SEGUNDO CAMBIEN DE FORMA Y DE COLOR DE FONDO. UTILICE UN CONTROL TIMER PARA QUE CADA SEGUNDO SE EJECUTE LA ACCION SOLICITADA. LAPROPIEDAD fillStyle DE LOS SHAPE DEBE SER “SOLID”.
Private Sub Timer1_Timer() Label1.Caption = Val(Label1.Caption) + 1 Dim numAleatorio As Integer Randomize For i = 0 To 2 'generamos un numero aleatorio del 0 al 5 porque los shapes aceptan esos valores en la propiedad shape numAleatorio = Round(5 * Rnd) Shape1(i).Shape = numAleatorio 'generamos tres...