Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование на BASIC / Visual Basic / Лабораторные работы2 / Лабы / Лаба № 2 / программа
.txt 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 "Использует стандартное экспоненциальное представление числа"
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 "Использует стандартное экспоненциальное представление числа"