Дана площадь круга и квадрата, определить помещается ли круг в квадрат - VB

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

Дана площадь круга и квадрата, определить помещается ли круг в квадрат.

Private Sub Command1_Click()
Dim S1 As Integer
Dim A As Integer
Dim R As Integer
Dim S2 As Integer
S1 = Text1.Text
S2 = Text2.Text
S1 = A ^ 2
S2 = 3.14 * R ^ 2
If Sqr(S1) > R * 2 Then Label1.Caption = "ДА" Else Label1.Caption = "НЕТ"
End Sub

Помогите привести в порядок, я новичок))+та же задача только с использованием case

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

textual
                            Листинг программы 
                        

                            Select Case d <= A
Case True: Label1.Caption = "Г„ГЂ"
Case False: Label1.Caption = "ГЌГ…Г’"
Case Else: Label1.Caption = "ГЌГ… Г¬Г®Г¦ГҐГІ ГЎГ»ГІГј:D"
End Select
                        

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

5 голосов , оценка 3.4 из 5

Похожие ответы