Работа студента б 4 СТЗС-11 Ханина А.Н. Задание 1 Задание 1 Visual Basic Задание 2 Задание 2 Задание 3 Задание 3 Задание 4 Задание 4 Microsoft Office. - презентация

1 Работа студента б 4СТЗС-11 Ханина А.Н

2 Задание 1 Задание 1 Visual Basic Задание 2 Задание 2 Задание 3 Задание 3 Задание 4 Задание 4 Microsoft Office Excel Задание 1 Задание 1 Задание 2 Задание 2 Задание 3 Задание 3

3 Создаём форму следующего вида, с данными элементами управления: >>>> Свойство «Caption» объекта «Label1» изменяем на «x=» Свойство «Caption» объекта «Label2» изменяем на «y=» Свойство «Caption» объекта «Label3» изменяем на «» Свойство «Caption» объекта «CommandButton1» изменяем на «Вычислить» Тогда форма имеет вид: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> На нажатие «CommandButton1» определим следующую процедуру: Private Sub CommandButton1_Click() x = Val(TextBox1.Text) y = Val(TextBox2.Text) If (x>0) And (x 0) And (y 1,5) Then Label3. Caption = "Точка принадлежит заштрихованной области" Else Label3. Caption = "Точка не принадлежит заштрихованной области" End If End Sub Запуск программы «Run» - «Run» ****

4 Visual Basic. Задание 2 Создаём форму следующего вида с данными элементами управления: >>>>>>> Свойство Caption объекта Label1 изменяем на a=. Свойство Caption объекта Label2 изменяем на b=. Свойство Caption объекта Label3 изменяем на h=. Свойство Caption объекта Label4 изменяем на. Свойство Caption объекта Label5 изменяем на. Свойство Caption объекта CommandButton1 изменяем на Вычислить. Тогда форма примет вид: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> На нажатие объекта CommandButton1 определим следующую процедуру: Private Sub CommandButton1_Click() a = Val(TextBox1.Text) b = Val(TextBox2.Text) h = Val(TextBox3.Text) Label4. Caption = "" Label5. Caption = "" For x = a To b Step h If x < -2 Then f = 5*x^3+2*x^2-x+6 Else f = 5*Log(Abs(sin(0.25*3.14*x)+x+1)) End If Label4. Caption = Label4. Caption & Round(x, 2) & Chr(13) Label5. Caption = Label5. Caption & Round(f, 2) & Chr(13) Next x End Sub Запуск программы: Run – Run f(x)= ****

5 Visual Basic. Задание 3 Создаем форму следующего вида, с данными элементами управления: >>>>>> Свойство Caption объекта Label1 изменяем на a=. Свойство Caption объекта Label2 изменяем на b=. Свойство Caption объекта Label3 изменяем на eps=. Свойство Caption объекта Label4 изменяем на Корень =. Свойство Caption объекта Label5 изменяем на. Свойство Caption объекта Label6 изменяем на. Свойство Caption объекта Label7 изменяем на. Свойство Caption объекта CommandButton1 изменяем на Вычислить. Тогда форма примет вид: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> На нажатие объекта CommandButton1 определим следующую процедуру: Private Sub CommandButton1_Click() a = Val(TextBox1.Text) b = Val(TextBox2.Text) eps = Val(TextBox3.Text) Do c = (a + b) / 2 If (a^5-0,3*abs(a-1))* (c^5-0,3*abs(c-1))>0 Then a = c Else b = c End If Label6. Caption = Label6. Caption & c & Chr(13) Label7. Caption = Label7. Caption & (a - b) & Chr(13) Loop While Abs(a - b) > eps Label5. Caption = c End Sub Запуск программы: Run – Run f(x)= ****

6 Visual Basic. Задание 4 Создаем форму следующего вида, с данными элементами управления: >>>>> Создаем форму следующего вида, с данными элементами управления: >>>>> Свойство Caption объекта Label1 изменяем на a=. Свойство Caption объекта Label1 изменяем на a=. Свойство Caption объекта Label2 изменяем на b=. Свойство Caption объекта Label3 изменяем на eps=. Свойство Caption объекта Label4 изменяем на Интеграл =. Свойство Caption объекта Label5 изменяем на. Свойство Caption объекта Label6 изменяем на. Свойство Caption объекта Label7 изменяем на. Свойство Caption объекта CommandButton1 изменяем на Вычислить. Тогда форма примет вид: >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> На нажатие объекта CommandButton1 определим следующую процедуру: На нажатие объекта CommandButton1 определим следующую процедуру: Private Sub CommandButton1_Click() a = Val(TextBox1.Text) b = Val(TextBox2.Text) eps = Val(TextBox3.Text) n = 10 S2 = 0 Do S1 = S2 S2 = 0 For x = a To b Step (b - a) / n S2 = S2+(b-a)/n*(exp(2*x)-2*x^2) Next x Label6. Caption = Label6. Caption & n & Chr(13) Label7. Caption = Label7. Caption & S2 & Chr(13) n = 2 * n Loop While Abs(S2 - S1) > eps Label5. Caption = S2 End Sub Запуск программы: Run – Run Запуск программы: Run – Run f(x)= ****

7 ****

8 Microsoft Office Excel. Задание 2 ****

9 ****