For å beregne den månedlige utbetalinger som trengs for å betale ned et lån, må du tre opplysninger : mengden av lånet , renten belastet , og hvor lang tid til å tilbakebetale lånet. Den matematiske formelen for å gjøre dette oversettes godt inn i Visual Basic-kode . Ved å opprette et skjema med alternativer for å legge inn disse tre opplysninger , kan du ha din egen månedlige lån betaling kalkulator på datamaskinen. Instruksjoner
en

Velg " Standard EXE " mal etter lasting Visual Basic. Finn "Label "-ikonet i verktøykassa til venstre på skjermen. Dette ikonet ser ut som en stor bokstav A. Klikk og dra den til toppen av skjemaet i midten av skjermen . Når du slipper museknappen , vises et kryss . Klikk på den og bruke den lille torg -dra håndtakene - å utvide etiketten. Gjenta dette tre ganger , å plassere hver etikett under den foregående , og som gjør det bredere. Legg en femte etiketten til høyre for den fjerde og utvide det også.
2

Klikk på " TextBox " kontroll i verktøykassa , en liten firkant som inneholder bokstavene " ab ", og dra den på skjemaet til høyre for den øverste etikett . Slipp musen og bruke dra håndtakene for å utvide tekstboksen. Gjenta denne handlingen to ganger , plassere hver boks under den foregående. Klikk på " CommandButton , " et lite torg i verktøykassa , fant under TextBox ikonet og dra det på skjemaet , utvide det også.
3

Klikk på en "Label « om gangen med start fra toppen . Finn tilsvarende " Bildetekst " eiendom i "Properties "-kolonnen i høyre panel . For hver etikett , dobbeltklikker du på " Bildetekst "-linjen og gjøre disse endringene fra standard teksten du ser : en

Topp Produsent: Navn denne " Lånebeløp: " Andre Produsent: Navn denne " Månedlig rente: "Third Produsent: navn denne " Antall måneder: " Fjerde Produsent: navn denne" Månedlig terminbeløp : "Femte Produsent: Slett bildeteksten navn
4

Klikk på hver. " TextBox " i tur og slett "Text " eiendom navn i delen Egenskaper . Endre " CommandButton " bildetekst å lese " Beregn ".
5

Dobbeltklikk på det nylig kåret til " Beregn "-kontroll, som åpner kodevisning vinduet. Du vil finne to linjer allerede er angitt, "Private Sub Command1_Click ( )" og skriv inn følgende linjer med kode mellom disse to linjene " End Sub ". :

Dim AmtBorrow , NumMonths Som IntegerDim Rate, MonthPay Som DoubleRate = Text2.TextNumMonths = Text3.TextMonthPay = Text1.Text * ( 1 + Rate) ^ NumMonths * Pris /( ( 1 + rate) ^ NumMonths - 1 ) Label5.Caption = Format ( MonthPay " . $ # # # #" ;)

Trykk " F5 " for å kjøre programmet og levere beløpene på skjermen , trykke på " Beregn " for å fullføre.