Selezionare il modello " standard EXE" dopo il caricamento di Visual Basic . Trovare l'icona "Etichetta" nella casella degli strumenti sulla sinistra dello schermo . Questa icona appare come una lettera maiuscola A. Fare clic e trascinare al top della forma nel centro dello schermo . Quando si rilascia il mouse , appare una croce . Fare clic su di esso e utilizzare il piccolo piazze e trascinare le maniglie , per ampliare l'etichetta . Ripetere l'azione tre volte , mettendo ogni etichetta sotto di quella precedente e renderlo più ampio . Aggiungi un quinto etichetta a destra della quarta e allargarlo pure.
2
Cliccare sul comando " TextBox " nella casella degli strumenti , una piccola piazza che contiene le lettere " ab ", e trascinare sul form a lato dell'etichetta superiore. Rilasciare il mouse e utilizzare il trascinamento maniglie per allargare la casella di testo . Ripetere questa operazione per altre due volte , mettendo ogni casella sotto il precedente. Clicca su " CommandButton ", una piccola piazza nella casella degli strumenti , ha trovato sotto l'icona TextBox , e trascinarlo sul modulo , ampliando pure.
3
Clicca su una " Label " alla volta partendo dall'alto. Individuare la corrispondente proprietà " Caption " nella colonna "Proprietà" nel pannello di destra . Per ogni etichetta , fare doppio clic sulla riga "Caption" e di apportare queste modifiche al testo di default si vede :
Etichetta Top: Nome questo " importo del prestito : " Secondo Etichetta: Nome questo " mensile Tasso di Interesse : "Terzo Etichetta: nome questo " Numero di mesi: "Quarto Etichetta: nome questo " Rata mensile: "Quinto Etichetta: eliminare il nome didascalia
4
Clicca su ciascuna . " TextBox ", a sua volta ed eliminare il " testo" nome della proprietà nella sezione Proprietà . Modificare la didascalia " CommandButton " leggere "Calcola ".
5 Fare doppio clic sul controllo recentemente chiamato "Calcola" , che apre la finestra di visualizzazione del codice . Troverete due linee già entrati , " Private Sub Command1_Click ( ) " e inserire le seguenti righe di codice tra queste due linee " End Sub ". :
Dim AmtBorrow , NumMonths As IntegerDim cambio , MonthPay Come DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + tasso ) ^ NumMonths * Prezzo /( ( 1 + tasso ) ^ NumMonths - 1) Label5.Caption = Format ( MonthPay " . $ # # # # " ;)
Premere " F5 " per eseguire il programma e fornire gli importi sullo schermo , premendo il tasto " Calcola" per terminare.
Programmazione © www.354353.com