Программирование на BASIC / Visual Basic / Лабораторные работы2 / Лабы / Лаба № 2 / программа

Privat Sub Command1_Click()
Labe15.Capton = "
Pictures.Cls
R1 = Val(Text1)
R2 = Val(Text2)
R3 = Val(Text3)
Picture1.Print Format(3.1415 * (R1 ^ 2 - R2 ^2) * a1 / 360, "0.00000")
st = "(состовляет " + str(al / 360 * 100) + "%" + "от площадки кольца")
Labe15.Capton = st
End Sub


Privat Sub Command1_Click()
x = Text / Text2

Picture1.Cls
Picture2.Cls
Picture3.Cls

Picture1.Printe x
Picture1.Printe Format(x, "000.000")
Picture1.Printe Format(x,"0.000")
Picture1.Printe Format(x, "###.###")
Picture1.Printe Format(x, "###.000")
Picture1.Printe Format(x, "##0.0##")
Picture1.Printe Format(x, "0.000%")
Picture1.Printe Format(x, "h:m:s")
Picture1.Printe Format(x, "h/m/s")
Picture1.Printe Format(x, "General Number")
Picture1.Printe Format(x, "Currency")
Picture1.Printe Format(x, "Fixed")
Picture1.Printe Format(x, "Standart")
Picture1.Printe Format(x, "Percent")
Picture1.Printe Format(x, "Scientific")

Picture2.Print "Формат не задан"
Picture2.Print "000.000"
Picture2.Print "0.000"
Picture2.Print "###.###"
Picture2.Print "###.000"
Picture2.Print "##0.0##"
Picture2.Print "0.000%"
Picture2.Print "h:m:s"
Picture2.Print "h/m/s"
Picture2.Print "General Number"
Picture2.Print "Currency"
Picture2.Print "Fixed"
Picture2.Print "Standart"
Picture2.Print "Percent"
Picture2.Print "Scientific"

Picture3.Print "Без форматирования"
Picture3.Print "Отсутствующие цифрызаменяются нулями по заданной маске"
Picture3.Print ""
Picture3.Print "При отсутсвии цифр ничего не отображается"
Picture3.Print ""
Picture3.Print ""
Picture3.Print " Умножает на 100, добавляет знак %"
Picture3.Print "Вывод времени с заданным разделителем"
Picture3.Print ""
Picture3.Print "Число без разделителей групп разрядов"
Picture3.Print "Денежный, с разделителями групп разрядов (если требуется)
Picture3.Print "Не менее одной цифры слева и справа от десятичного разлделителя"
Picture3.Print "Как Fixed и кроме этого разделители групп разрядов"
Picture3.Print "Умножает на 100, добавляет знак %, после десятичного разделителя 2 цифры"
Picture3.Print "Использует стандартное экспоненциальное представление числа"