Почему в приведенном коде при безформатном выводе не выходят значения - VB

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

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

Решение задачи: «Почему в приведенном коде при безформатном выводе не выходят значения»

textual
Листинг программы
Private Sub Command1_Click()
 
 Picture1.Cls
 h = Val(Text1.Text)
 R = Val(Text2.Text)
 pi = 3.14
 S = 2 * pi * R * (R + h)
 V = pi * R ^ 2 * h
 If Check1.Value Then
 If Option2.Value Then Picture1.Print " S= "; Format(S, "##.000")
 If Option1.Value Then Picture1.Print " V= "; Format(V, "##.000")
 Else:
 Picture1.Print " S= "; S
 Picture1.Print " V= "; V
 End If
End Sub

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


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

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

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