Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Artem-Samsung

Ветеран


Сообщения: 823
Благодарности: 53

Профиль | Сайт | Отправить PM | Цитировать


Код: Выделить весь код
Dim a1 As Double
Dim a2 As Double
Dim a3 As Double
Dim a4 As Double
Dim a5 As Double

a1 = Round(Val(k11.Text) / k1sum, 2)
b11.Caption = a1
a2 = Round(Val(k12.Text) / k2sum, 2)
b12.Caption = a2
a3 = Round(Val(k13.Text) / k3sum, 2)
b13.Caption = a3
a4 = Round(Val(k14.Text) / k4sum, 2)
b14.Caption = a4
a5 = Round(Val(k15.Text) / k5sum, 2)
b15.Caption = a5

n1.Caption = (a1 + a2 + a3 + a4 + a5)
Таки да) Посчитало))
Спасибо.

-------
Мой блог Web Development


Отправлено: 03:03, 21-05-2010 | #3