2.5 Программный код
Private Sub Command1_Click() Rem Задание №2. Лабораторная работа №3. Структура РАЗВИЛКА Dim n As integer, i As integer, j as integer, a As integer, b As integer Dim z As Single, W1 as string, W2 as string, x1 as string, x2 as string Dim x3 as string, x4 as string, x5 as string, x6 as string, Data as string Const Pi as single=3.14 n=InputBox(“Сколько решается контрольных примеров? n=”)
1: i= InputBox(«Укажите порядковый номер решаемого примера i=») a= InputBox(«Введите число целого типа а=») b=InputBox(«Введите число целого типа b=») If i=n Then W1= InputBox(«Укажите учебную группу») W2=InputBox(«Укажите инициалы имени и отчества, фамилию») Data=InputBox(«Укажите дату тремя парами арабских цифр») End If x1= “3.Результатф решения контрольных примеров на ПК”:Print x2= “1.Значения данных для всех примеров:” x3= “-исходных постоянных:” x4= “-исходных переменных:” x5= “-искомая величина:” x6= “Учебная группа” j=i+1 If a>b Then z=(a+b)^(a-b) ElseIf a=b Then z=(a)^2-(b)^a Else sin(Pi+a)/b End If If i=1 Then Print Tab(6); x1: Print Print Tab(6); x2 Print x3; “Pi=”;pi: Print x4; “n=”;n End If Print Tab(6); Format(j, “#. ”); Format( i, “Значения данных в #”); Print “-м примере:” Print x4; Print “i=” & Format(i, “#”) & “a=” & Format(a, “##”) & “b=” & Format (b, “##”) Print x5; Print “z=” & Format(z, “###.###”) If i<n Then GoTo 1: Print: Print x6; W1; Tab(44); W2 Print Data End Sub