Практическая работа 4. Типы данных; тип Boolean
1.Создать на форме объекты CommandButton,
Label, TextBox,
2.ввести код процедуры Command1_Click():
3.Dim x As Boolean
4.x=Val(txt1.Text)
5.lbl1.Caption=x
6.стартовать проект, ввести последовательно числа 1, -2, 0, нажимая после ввода командную кнопку, наблюдать результат. Значению 0 соответствует False, все другие интерпретируются как True.
Практическая работа 5. Типы данных (Long, Single, Currency); ошибка вычислений
Проводятся расчеты ошибок вычислений (DelLong, DelSing) при расчетах с использованием данных типа Long, Single, вычисляется итоговая ошибка. Далее проводятся аналогичные расчeты для данных типов Long и Currency.
1. Создать на форме:
∙2 вертикальных ряда по 5 объектов-меток с надписями, см. свойство Caption, рис. 1.8. слева и в центре (на рисунке цвет - черный),
∙текстовое поле txt1 для ввода значений переменной J в средине формы (см.: 999999),
320
∙две командные кнопки слева и справа от
текстового поля (Caption = Long-Single, Caption = Long-Currency),
∙2 метки вверху в центре:
∙с надписью Zahl::,
∙со списком значений переменной J, которые следует вводить после старта проекта,
∙два массива из 4-х элементов текстовых полей:
txt10(0), txt11(0) - слева вверху, txt10(1), txt11(1) - слева ниже. Остальные 4: txt10(2), txt11(2) - справа вверху, txt10(3), txt11(3) - справа ниже,
∙два вертикальных ряда по 5 меток (напротив
предыдущего ряда меток) для вывода результатов вычислений (lbl2(0), lbl22(0), lbl4(0) lbl44(0), lbl6(0), lbl2(1), lbl22(1), lbl4(1) lbl44(1), lbl6(1)),
∙командную кнопку для процедуры завершения выполнения программы (Command3),
2.ввести код, данный ниже:
3.Private Sub Command1_Click()
4.Rem описание переменных для блока Long-Single
5.Dim Xlong As Long, Xl As Long, Dx As Single, Xsingle As Single
6.Dim Xs As Single
7.Rem переменная, определяющая число циклов
8.Dim J As Long
9.Dim I As Long, DelLong As Long
10.Dim DelSing As Single
11.J = CLng(txt1.Text)
12.
321
13.Rem организовать блок для работы с данными типа Long
14.Xlong = 2000000000: txt10(0).Text = Xlong
15.Xlong = CLng(Xlong / J)
16.txt11(0).Text = Xlong & " " & CLng(Xlong * J)
17.
18.Rem Xl образуется суммированием Xlong
19.For I = 1 To J
20.Xl = CLng(Xl + Xlong)
21.Next I
22.
23.Rem в поле элемента управления Label выводятся
24.Rem результаты - значение Xl и ошибки вычислений
25.lbl2(0).Caption = Xl: DelLong = CLng(2000000000 - Xl)
26.lbl22(0).Caption = DelLong
27.
28.Rem организовать аналогичный блок для работой с данными
29.Rem типа Single
30.Xsingle = 2000000000: txt10(1).Text = Xsingle
31.Xsingle = CSng(Xsingle / J)
32.txt11(1).Text = Xsingle & " " & CSng(Xsingle * J)
34.For I = 1 To J
35.Xs = CSng(Xs + Xsingle)
36.Next I
38.lbl4(0).Caption = Xs: DelSing = CSng(2000000000 - Xs)
39.lbl44(0).Caption = DelSing
41.Rem проведение вычислений и вывод в левую нижню метку
42.Rem итоговой ошибки вычислений
43.Dx = CSng(Xl - Xs): lbl6(0).Caption = Dx
44.End Sub
322
45.
46.Rem код поцедуры Command2_Click() аналогичен коду проце-
47.Rem дуры Command1_Click(); здесь проводится вычисление
48.Rem ошибки вычислений при работе с данными типа Long
49.Rem и Currency
50.Private Sub Command2_Click()
51.Dim Xlong As Long, Xl2 As Long, Dx2 As Currency
52.Dim Xcurrency As Currency, Xc As Currency, J As Long
53.Dim I As Long, DelLong2 As Long, DelCurrency As Currency
54.Print "Warten Sie mal !" ' нужно подождать !
55.
56.J = CLng(txt1.Text): Xlong2 = 2000000000
57.txt10(2).Text = Xlong2: Xlong2 = CLng(Xlong2 / J)
58.txt11(2).Text = Xlong2 & " " & CLng(Xlong2 * J)
60.For I = 1 To J
61.Xl2 = CLng(Xl2 + Xlong2)
62.Next I
64.lbl2(1).Caption = Xl2
65.DelLong2 = CLng(2000000000 - Xl2)
66.lbl22(1).Caption = DelLong2
68.Xcurrency = 2000000000: txt10(3).Text = Xcurrency
69.Xcurrency = CCur(Xcurrency / J)
70.txt11(3).Text = Xcurrency & " " & CCur(Xcurrency * J)
72.For I = 1 To J
73.Xc = CCur(Xc + Xcurrency)
74.Next I
323
76.lbl4(1).Caption = Xc
77.DelCurrency = CCur(2000000000 - Xc)
78.lbl44(1).Caption = DelCurrency
79.
80. Dx2 = CCur(Xl2 - Xc): lbl6(1).Caption = Dx2 81.
82.Rem удалить предыдущую запись и напечатать "Готово !!!"
83.Me.Cls: Print "Fertig !!!"
84.End Sub
85.
86.Private Sub Сommand3_Click()
87.End
88.End Sub
89.cтартовать проект, вводить последовательно значения J, данные вверху формы, рис. 1.8.: 3, 11:9999999, делать щелчки на кнопках LongSingle, Long - Currency после каждого ввода J, наблюдать разницу результатов, рис. 1.8.
324