Контрольная по программированию на VBA для Excel Задание 1

Задание 1 на тему «Оператор присваивания»

Найти максимальную высоту подъёма Ymax и дальность полёта Xmax предмета, выбрасываемого с заданной скоростью v0 под углом к горизонту a (угол задается от 10 до 60 градусов).

Решение!

Для начала создадим форму

Далее накидываем функционал на кнопку «Вычислить»


Private Sub CommandButton1_Click()<br> Dim x As Single, y As Single, a As Single, b As Single<br> 'a скорость, b угол, x и y максимальные, s строка'<br> Const g As Single = 9.8 'определяем константу g'<br> Const pi As Single = 3.14159265358979 'определяем константу pi'<br> a = CSng(TextBox1.Text) 'Берем входное значение'<br> b = CSng(TextBox2.Text) 'Берем входное значение'<br> If (b >= 10) And (b <= 60) Then 'Проверяем допустимость входного значения'<br> b = b * pi / 180 'переводим в радианы'<br> x = ((a ^ 2) * (Sin(2 * b))) / g 'X максимальное'<br> y = ((a ^ 2) * (Sin(b)) ^ 2) / (2 * g) 'Y максимальное'<br> Label3.Caption = "Высота подъема в метрах (Y максимальное): " + str(y)<br> Label4.Caption = "Дальность полета (X максимальное): " + str(x)<br> Else<br> MsgBox "Недопустимое значение угла!"<br> End If<br> End Sub

И для второй кнопки

Private Sub CommandButton2_Click()<br> 'Чистим все'<br> Label3.Caption = "Высота подъема в метрах (Y максимальное): "<br> Label4.Caption = "Дальность полета (X максимальное): "<br> TextBox1 = 0<br> TextBox2 = 0<br> End Sub

В следующей статье продолжу тему контрольных работ по программированию на VBA для Excel

187
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.