1
Seleccione el "EXE estándar " plantilla después de cargar Visual Basic . Busque el icono de "Etiqueta" en la caja de herramientas a la izquierda de la pantalla. Este icono se parece a una letra mayúscula A. Pulse y arrastre a la parte superior de la forma en el centro de la pantalla. Cuando suelte el ratón, aparece una cruz . Haga clic en él y utilizar el pequeño plazas y arrastre mangos a ampliar la etiqueta. Esta acción se repite tres veces , colocando cada etiqueta debajo de la anterior, y lo que es más amplio. Añadir una quinta etiqueta a la derecha del cuarto y ampliar también.
2 Haga clic en el control " cuadro de texto " en la caja de herramientas , un pequeño cuadrado que contiene las letras " ab ", y arrastre en el formulario de la derecha de la etiqueta superior . Suelte el ratón y utilizar el control de arrastre para ampliar el cuadro de texto. Esta acción se repite dos veces más, colocando cada caja por debajo de la anterior. Haga clic en el " CommandButton ", una pequeña plaza en la caja de herramientas , que se encuentra debajo del icono de cuadro de texto , y se arrastra sobre la forma, la ampliación también.
3
Haga clic en una "Etiqueta " a la vez a partir de la parte superior. Busque la propiedad correspondiente " Leyenda " en la columna " Propiedades" en el panel derecho . Para cada etiqueta , haga doble clic en la línea "Subtítulo " y hacer estos cambios en el texto predeterminado que aparece :
Top Label : Nombre esta " Monto del préstamo : " Segundo Sello: Nombre esta " tasa de interés mensual : "Tercer Sello: nombre este " número de meses: "Cuarto Sello: nombre del este " Pago mensual: "Quinto Sello: elimine el nombre subtítulo
4
Haga clic en cada uno. " TextBox " , a su vez y eliminar el " texto" nombre de la propiedad en la sección Propiedades . Cambie el título " CommandButton " por " Calcular ".
5
Haga doble clic en el control recién nombrado "Calcular " , que abre la ventana de la vista Código. Se encuentran dos líneas ya entraron, " Private Sub Command1_Click () " e introduzca las siguientes líneas de código entre estas dos líneas " End Sub ". :
AmtBorrow Dim , NumMonths Como IntegerDim Cambio , monthPay Como DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + Rate) ^ NumMonths * Precio /( ( 1 + tasa ) ^ NumMonths - 1 ) Label5.Caption = Format ( monthPay " . $ # # # #" ;)
Press "F5 " para ejecutar el programa y el suministro de las cantidades en la pantalla, pulse "Calcular " para finalizar.