Мне нужно вычислить периметр и площадь прямоугольника, такой темы на форуме не нашел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д