Сложить и умножить дробные и целые числа - VB
Формулировка задачи:
TextBox45.Text = ((PRyaco.Text) + (TextBox11.Text) + (TextBox10.Text) + Val(TextBox9.Text) + Val(TextBox30.Text) + Val(TextBox32.Text) + Val(TextBox31.Text) + (TextBox29.Text) + (TextBox50.Text) + (TextBox52.Text) + (TextBox51.Text)) * 30
Есть такие переменные(дробные и целые) их надо сложить и умножить на 30.
Но у меня ничего не получается.. помогите пожалуйста!
Решение задачи: «Сложить и умножить дробные и целые числа»
textual
Листинг программы
Dim x, d As Double
For Each x In Array("PRyaco", 11, 10, 9, 30, 32, 31, 29, 50, 52, 51)
d = d + Val(Replace(Controls(IIf(IsNumeric(x), "TextBox", "") & x).Text, ",", "."))
Next
TextBox45.Text = d * 30
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д