Как да изчисляваме месечните плащания в Visual Basic

Стъпка 1

Изберете шаблона "Стандартен EXE" след зареждането на програмата Visual Basic. Намерете иконата "Label" в лентата с инструменти в лявата част на екрана. Тази икона изглежда като главна буква "А". Кликнете и го плъзнете в горната част на формуляра в центъра на екрана. Когато пуснете мишката, ще се появи кръст. Кликнете върху него и използвайте малките квадратчета - панталони на плъзгане -, за да разширите етикета. Повторете това действие три пъти, като поставите всеки етикет под предишния и го направите по-широк. Добавете пети етикет отдясно на четвъртото и го протегнете.

Стъпка 2

Кликнете върху контрола "Textbox" в лентата с инструменти, малък квадрат, съдържащ буквите "ab" и го плъзнете в формуляра вдясно от горния етикет. Освободете мишката и използвайте дръжките за плъзгане, за да разширите текстовото поле. Повторете това действие още два пъти, поставяйки всяко поле под предишната. Кликнете върху опцията "CommandButton", малък квадрат в лентата с инструменти, който е под иконата "Textbox" и я плъзнете във формата, като я разширите също.

Стъпка 3

Кликнете едновременно върху "Етикет", като започнете от горната част. Намерете "Title" в графата "Properties" в десния панел. За всеки етикет кликнете два пъти върху реда "Заглавие" и направете тези промени от текста по подразбиране, който виждате:

Нагоре етикет: Наречете го "Сума на кредита:" Втори етикет: Наречете го "Месечен лихвен процент:" Трети етикет: Наречете го "Брой месеци:" Четвърти етикет: Наречете го "Месечно плащане:" Петият етикет: Премахнете името на заглавието.

Стъпка 4

Кликнете върху всяка "текстова кутия" на свой ред и премахнете името на собственост "Текст" в секцията "Свойства". Променете заглавието "CommandButton", за да прочетете "Calculate".

Стъпка 5

Щракнете двукратно върху контрола с новото име "Calculate", което ще отвори прозореца, за да видите кода. Ще намерите две вече въведени редове: "Private Sub Command1_Click ()" и "End Sub". Въведете следните редове между тези два реда:

(1 + курс) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Етикет5 .Caption = Формат (MonthPay, "$ ##. ##")

Натиснете "F5", за да изпълните програмата и да заредите количествата на екрана, като натиснете "Изчисли", за да приключите.