Cum se calculează plățile lunare în Visual Basic

Pasul 1

Selectați șablonul "Standard EXE" după încărcarea programului Visual Basic. Găsiți pictograma "Etichetă" din bara de instrumente din partea stângă a ecranului. Această pictogramă arată ca o majusculă "A". Faceți clic și trageți-l în partea de sus a formularului din centrul ecranului. Când eliberați mouse-ul, va apărea o cruce. Faceți clic pe acesta și utilizați pătratele mici - pantofi de tragere - pentru a lărgi eticheta. Repetați această acțiune de trei ori, plasând fiecare etichetă sub cea anterioară și făcându-le mai largi. Adăugați o a cincea etichetă în partea dreaptă a celui de-al patrulea și, de asemenea, întindeți-o.

Pasul 2

Faceți clic pe butonul "Textbox" din bara de unelte, un pătrat mic care conține literele "ab" și trageți-l în forma din partea dreaptă a etichetei de sus. Eliberați mouse-ul și utilizați mânerele de tragere pentru a lărgi caseta de text. Repetați această acțiune de două ori mai mult, plasând fiecare cutie sub cea anterioară. Faceți clic pe opțiunea "CommandButton", o pătrată mică în bara de instrumente, care este sub pictograma "Textbox" și trageți-o în formă, lărgind-o și ea.

Pasul 3

Dați clic pe "Etichetă" în același timp, începând de sus. Localizați "Titlu" în coloana "Proprietăți" din panoul din dreapta. Pentru fiecare etichetă, faceți dublu clic pe linia "Titlu" și faceți aceste modificări din textul implicit pe care îl vedeți:

Etichetă de vârf: Sunați-o "Suma împrumutului:" A doua etichetă: Apelați-o "Rata lunară a dobânzii: A treia etichetă: Apelați-o" Numărul de luni:

Pasul 4

Faceți clic pe fiecare "casetă text" în schimb și eliminați numele proprietății "Text" din secțiunea "Proprietăți". Schimbați titlul "CommandButton" pentru a citi "Calculați".

Pasul 5

Faceți dublu clic pe butonul de control cu noul nume "Calculate" care va deschide fereastra pentru a vedea codul. Veți găsi două linii deja introduse, "Private Sub Command1_Click ()" și "End Sub." Introduceți următoarele linii de cod între aceste două linii:

Dimensiune amtBorrow, NumMonths ca integer Dim Rată, MonthPay ca rată dublă = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Rată) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5 .Caption = Format (MonthPay, "$ ##. ##")

Apăsați "F5" pentru a executa programul și a încărca cantitățile pe ecran, apăsând "Calculate" pentru a termina.