Come calcolare i pagamenti mensili in Visual Basic

Passaggio 1

Selezionare il modello "EXE standard" dopo aver caricato il programma Visual Basic. Trova l'icona "Etichetta" nella barra degli strumenti sul lato sinistro dello schermo. Questa icona appare come una lettera maiuscola "A". Fare clic e trascinarlo nella parte superiore del modulo al centro dello schermo. Quando rilasci il mouse, apparirà una croce. Fare clic su di esso e utilizzare i quadratini piccoli - scarpe di trascinamento - per allargare l'etichetta. Ripeti questa operazione tre volte, posizionando ciascuna etichetta sotto la precedente e allargandole. Aggiungi una quinta etichetta a destra del quarto e allungala.

Passaggio 2

Fai clic sul controllo "Casella di testo" nella barra degli strumenti, un quadratino contenente le lettere "ab" e trascinalo nel modulo a destra dell'etichetta superiore. Rilascia il mouse e usa le maniglie di trascinamento per allargare la casella di testo. Ripeti quest'azione altre due volte, mettendo ogni scatola sotto quella precedente. Fai clic sull'opzione "CommandButton", un piccolo quadrato nella barra degli strumenti, che si trova sotto l'icona "Textbox", e trascinalo nel modulo, allargandolo anch'esso.

Passaggio 3

Clicca su una "Etichetta" allo stesso tempo partendo dall'alto. Individuare "Titolo" nella colonna "Proprietà" nel riquadro di destra. Per ciascuna etichetta, fai doppio clic sulla riga "Titolo" e apporta queste modifiche dal testo predefinito che vedi:

Etichetta superiore: chiama "Importo prestito:" Seconda etichetta: chiama "Tasso di interesse mensile:" Terza etichetta: chiamalo "Numero di mesi:" Quarta etichetta: chiamalo "Pagamento mensile:" Quinta etichetta: rimuovi il nome del titolo.

Passaggio 4

Fare clic su ciascuna "Casella di testo" a turno e rimuovere il nome della proprietà "Testo" nella sezione "Proprietà". Cambia il titolo "CommandButton" per leggere "Calcola".

Passaggio 5

Fare doppio clic sul controllo con il nuovo nome "Calcola" che aprirà la finestra per visualizzare il codice. Troverai due righe già inserite, "Sottocomando privato 1_Click ()" e "Termina sottotitoli". Immettere le seguenti righe di codice tra queste due righe:

Dim AmtBorrow, NumMonths As Integer Dim Rate, MonthPay As Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Testo1.Text * (1 + Rate) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5 .Caption = Format (MonthPay, "$ ##. ##")

Premere "F5" per eseguire il programma e caricare le quantità sullo schermo, premendo "Calcola" per terminare.