Мне нужно вычислить периметр и площадь прямоугольника, такой темы на форуме не нашел - VB

Узнай цену своей работы

Формулировка задачи:

Только не смейтесь!!! Мне нужно вычислить периметр и площадь прямоугольника, и сделать так, чтобы найти, например, длину ,имея только вторую сторону и площадь(или же периметр) и так любую величину, я накропал маленько программный код, но не пашет . a = Text1 b = Text2 S = a * b Text4 = S If a = "" Then b = Text2 P = Text3 a = (P - 2 * b) / 2 S = ((P - 2 * b) / 2) * b Text4 = S End If If b = "" Then a = Text1 P = Text3 b = (P - 2 * a) / 2 S = a * ((P - 2 * a) / 2) Text4 = S End If как вы догадались, это только площадь. если я ввожу и а и b то оно ответ пишет нормально, но выдаёт ошибку, что If a = "" Then лишнее и всё. я уже не знаю что делать можете помочь с программным кодом хотябы на площадь?

Решение задачи: «Мне нужно вычислить периметр и площадь прямоугольника, такой темы на форуме не нашел»

textual
Листинг программы
Option Explicit
 
Private Sub Комманда1_Click()
Dim a As Integer
Dim b As Integer
Dim P As Integer
Dim S As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
S = a * b
Text4.Text = S
If a = 0 Then
b = Val(Text2.Text)
P = Val(Text3.Text)
a = (P - 2 * b) / 2
S = ((P - 2 * b) / 2) * b
Text4.Text = S
End If
If b = 0 Then
a = Val(Text1.Text)
P = Val(Text3.Text)
b = (P - 2 * a) / 2
S = a * ((P - 2 * a) / 2)
Text4.Text = S
End If

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5
Похожие ответы