Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.73
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.73

126 Программирование в среде Visual Basic for Applications

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 17.3. Отчет, выводимый на рабочем листе программой расчета маргинальной процентной ставки

Текст программы имеет следующий вид: Private Sub CommandButtonl_Click()

' Процедура расчета маргинальной процентной ставки

Dira i As Double

Dira p As Double

Dira A As Double

Dira iMarg As Double

Dira pPure As Double

Dira n As Integer

' n - число выплат

' p - размер ссуды

' a - размер одной выплаты

' i - процентная ставка

' pPure - текущий объем ссуды,

л на рабочем листе вычисляется функцией ПЗ

' iMarg - маргинальная процентная ставка

' Проверка того, чтобы введенные

Л в диалоговое окно данные являлись числами

If IsNuraeric(TextBoxl.Text) = False Then MsgBox _

"Ошибка в числе выплат", _

vblnformation, "Маргинальная ставка" TextBoxl.SetFocus Exit Sub

17. Расчет маргинальной процентной ставки_127

End If

If IsNumeric(TextBox2.Text) = False Then MsgBox _ "Ошибка в размере ссуды", _

vblnformation, "Маргинальная ставка" TextBox2.SetFocus

Exit Sub End If

If IsNumeric(UserForml.TextBox3.Text) = False Then MsgBox "Ошибка в размере одной выплаты", vblnformation, "Маргинальная ставка" TextBox3.SetFocus

Exit Sub End If

If IsNumeric(TextBox4.Text) = False Then MsgBox _ "Ошибка в процентной ставке", _

vblnformation, "Маргинальная ставка" TextBox2.SetFocus

Exit Sub End If

* Ввод данных в переменные из диалогового окна

n = CInt (TextBoxl.Text) р = CDbl(TextBox2.Text) _

A = CInt (TextBox3.Text)

i = CInt(TextBox4.Text) / 100

1 Проверка согласованности ввода данных

If n * А < р Then

MsgBox "Возвращается на" _

& CStr(Format(p - n * A, "Fixed")) & _

"меньше размера ссуды", _

vbExclamation, "Маргинальная ставка" TextBoxl.SetFocus

Exit Sub End If

' Изменение ширины столбцов и задание режима ввода ' текста с переносом

ActiveSheet.Columns("А:А").Select With Selection .ColuronWidth =20 .WrapText = True End With ActiveSheet.Columns("В:В").Select Selection.ColumnWidth = 12 1 Выбор ячейки B2 для того, Л чтобы снять выделение со столбца В ActiveSheet.Range("В2").Select ' Ввод названий записей на рабочем листе With ActiveSheet


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta