1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Una vez establecidas las propiedades proceda a ingresar el código que se indica a continuación: Private Sub Form_Load() Dim N As Long, I As Long, S As Long Dim K As Integer, Cad As String N = 1 : K = 0 : Cad = “” While True S = 0 For I = 1 To (N - 1) If N Mod I = 0 Then S = S + I Next I If N = S Then Cad = Cad & N & vbCrLf K = K + 1 End If If K = 3 Then TxtPerfecto = Cad Exit Sub End If N = N + 1 Wend End Sub Aplicación Nº 3 Construya una aplicación que permita el ingreso de un número entero y muestre en pantalla la siguiente información: 1) Cantidad de cifras, 2) Suma de cifras impares, 3) Suma de cifras pares, 4) Suma total de cifras, 5) Cifra mayor, 6) Cifra menor y 7) Divisores de dicho número. El diseño de la interfaz debe ser similar a la figura siguiente: Pág. 260
Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario: 4 marcos 7 etiquetas 8 cajas de texto 1 botón de comando En seguida proceda a establecer las propiedades según se indica: Form1 Nombre FrmNumeroPerfecto BorderStyle 3-Fixed Dialog Caption Los 3 primeros números perfectos Moveable False StartUpPosition 2-CenterScreen Pág. 261
- Page 209 and 210: Como ejemplo de este tipo de gráfi
- Page 211 and 212: Para realizar nuestra aplicación d
- Page 213 and 214: Para el caso de las gráficas de ec
- Page 215 and 216: Luego proceda a ingresar el código
- Page 217 and 218: La matemática fractal es producto
- Page 219 and 220: Para el desarrollo de la presente a
- Page 221 and 222: En este capítulo, debido a las lim
- Page 223 and 224: La presente Guía de Laboratorio de
- Page 225 and 226: Para el desarrollo de esta aplicaci
- Page 227 and 228: Text1 Text2 Text3 Text4 Text5 Text6
- Page 229 and 230: Luego, haga doble click sobre el bo
- Page 231 and 232: A continuación active la casilla d
- Page 233 and 234: Label10 Nombre LblImpuesto Caption
- Page 235 and 236: En primer lugar debemos cargar los
- Page 237 and 238: A continuación haga doble click so
- Page 239 and 240: Private Sub CmdAceptar_Click() Dim
- Page 241 and 242: Los descuentos a aplicar son sobre
- Page 243 and 244: Label4 Label5 Text1 Text2 Text3 Tex
- Page 245 and 246: Check3 Command1 Command2 Command3 N
- Page 247 and 248: Cuatro notas entre 0 y 20 represent
- Page 249 and 250: Label6 Label7 Text1 Text2 Text3 Tex
- Page 251 and 252: N3 = Val(TxtN3) : N4 = Val(TxtN4) P
- Page 253 and 254: Form1 Label1 Label2 Label3 Label4 T
- Page 255 and 256: Case 10: CadMes = “Octubre” Cas
- Page 257 and 258: Para el desarrollo de esta aplicaci
- Page 259: El diseño de la interfaz debe ser
- Page 263 and 264: Label5 Label6 Label7 Text1 Text2 Te
- Page 265 and 266: Una vez establecidas las propiedade
- Page 267 and 268: Un centro numérico es un número q
- Page 269 and 270: Para el desarrollo de esta aplicaci
- Page 271 and 272: Private Sub CmdAceptar_Click() If I
- Page 273 and 274: figura: El diseño de la interfaz d
- Page 275 and 276: Combo1 Text1 Text2 Option1 Option2
- Page 277 and 278: Private Sub CboArticulo_Click() Dim
- Page 279 and 280: Form1 Frame1 Frame2 Frame3 Frame4 L
- Page 281 and 282: Text3 Text4 Text5 Command1 Command2
- Page 283 and 284: LstDistrito.AddItem “La Victoria
- Page 285 and 286: CboSexo.Locked = False TxtDireccion
- Page 287 and 288: GUÍA DE LABORATORIO Nº 5 Objetivo
- Page 289 and 290: Command1 Command2 Command3 Nombre C
- Page 291 and 292: El curso quedará seleccionado al h
- Page 293 and 294: En ese instante se añadirá un nue
- Page 295 and 296: indica: Form2 List1 Command1 Luego
- Page 297 and 298: Del cuadro de diálogo Agregar form
- Page 299 and 300: Private Sub MnuFixedSingle_Click()
- Page 301 and 302: GUÍA DE LABORATORIO Parte II ELABO
- Page 303 and 304: GUÍA DE LABORATORIO Nº 6 Objetivo
- Page 305 and 306: CurCodigo CurNombre CurProfe BC1 Bo
- Page 307 and 308: la base de datos CursosLibres.MDB.
- Page 309 and 310: otón Siguiente. En seguida aparece
Para el desarrollo de esta aplicación, proceda a ubicar<br />
los siguientes controles en el formulario:<br />
4 marcos<br />
7 etiquetas<br />
8 cajas de texto<br />
1 botón de comando<br />
En seguida proceda a establecer las propiedades según se<br />
indica:<br />
Form1<br />
Nombre FrmNumeroPerfecto<br />
BorderStyle 3-Fixed Dialog<br />
Caption Los 3 primeros números perfectos<br />
Moveable False<br />
StartUpPosition 2-CenterScreen<br />
Pág. 261
Change language