Отчет по практике по ТРИЗБД в работе с языками C# и Visual basic. Отчет по практике. Оглавление 1 Изм. Лист докум. Подп. Дата 1 Проверил Гатауллина Ф. Ф. 1
 Скачать 1.49 Mb.
|
Лабораторно-практическая работа №3Практическая 1Тема: Условный оператор Цель: Получить навыки использования условного оператора  Рис 25. Запущенное окно задания №1 Перечень используемых объектов: Button, Label, GroupBox, TextBox Код программы: Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a, b, c As Integer Dim t As String a = Val(TextBox1.Text) b = Val(TextBox2.Text) c = Val(TextBox3.Text) 'проверка существует ли треугольник If (a >= b + c) Or (b >= a + c) Or (c >= a + b) Then Label1.Text = "треугольник не существует" Else Label1.Text = "треугольник существует" End If 'проверка на равенство сторон If a = b And a = c Then Label2.Text = "треугольник равносторонний" Else Label2.Text = "треугольник не равносторонний" End If 'проверка на равнобедренность If a = b Or a = c Or b = c Then Label3.Text = "треугольник равнобедренный" Else Label3.Text = "треугольник не равнобедренный" End If 'проверка на наличие прямого угла If (a ^ 2 = b ^ 2 + c ^ 2) Or (b ^ 2 = a ^ 2 + c ^ 2) Or (c ^ 2 = a ^ 2 + b ^ 2) Then Label4.Text = "треугольник прямоугольный" Else Label4.Text = "треугольник не прямоугольный" End If End Sub End Class Практическая 2Тема: Условный оператор Цель: Закрепить навыки использования условного оператора  Рис 25(а) Запущенное окно задания №2  Рис 25(б) Окно вывода числа попытокПеречень используемых объектов: Button, Label, GroupBox, TextBox Код программы: Public Class Form1 Dim k, x, Timer As Integer, otv As Integer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Randomize(Timer) otv = Int(Rnd() * 100 + 1) 'число загадано k = 0 ' количество попыток End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click x = Val(TextBox1.Text) k = k + 1 If x = otv Then MsgBox("количество попыток " + Str(k), , "УГАДАНО") Label1.Text = "0" Label2.Text = "100" MsgBox("загадано новое число", , "") k = 0 otv = Int(Rnd() * 100 + 1) Exit Sub End If If x > otv Then If x < Val(Label2.Text) Then Label2.Text = x MsgBox("Много", , "") Exit Sub End If If x < otv Then If x > Val(Label1.Text) Then Label1.Text = x MsgBox("Мало") Exit Sub End If End Sub End Class Практическая 5Тема: Выбор в программе Цель: Получить навыки использования оператора множественного выбора Рис 26 Запущенное окно задания №5 Перечень используемых объектов: Button, GroupBox, TextBox Код программы: Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim n, k As Integer Dim info As String n = Val(TextBox1.Text) If n >= 10 And n <= 20 Then TextBox2.Text = "лет" Else k = n Mod 10 Select Case k Case 1 info = "год" Case 2, 3, 4 info = "года" Case Else info = "лет" End Select End If Dim d As Integer d = TextBox1.Text If d >= 3 And d <= 7 Then TextBox3.Text = "Детский сад" End If If d >= 7 And d <= 16 Then TextBox3.Text = "Учеба в школе" End If If d >= 17 And d <= 21 Then TextBox3.Text = "Учеба в ВУЗе" End If If d >= 22 And d <= 55 Then TextBox3.Text = "Трудовая деятельность" End If If d > 65 Then TextBox3.Text = "Пенсионер" End If End Sub End Class Практическая 6Тема: Выбор в программе Цель: Закрепить навыки использования условного оператора и оператора множественного выбора Рис 27 Запущенное окно задания №6 Перечень используемых объектов: Button, GroupBox, RadioButton, PictureBox, Timer Код программы: Public Class Form1 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick PictureBox2.Left = PictureBox2.Left + 5 End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If PictureBox3.Visible = True Then PictureBox4.Visible = True PictureBox3.Visible = False ElseIf PictureBox4.Visible = True Then PictureBox5.Visible = True PictureBox4.Visible = False Timer1.Enabled = True Timer2.Enabled = False Else If PictureBox5.Visible = True Then PictureBox3.Visible = True PictureBox5.Visible = False Timer1.Enabled = False Timer2.Enabled = True End If End If End Sub Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick PictureBox6.Top = PictureBox6.Top - 5 End Sub End Class Самостоятельные работыСамостоятельная 1Цель: Ввести три числа. Вывести сообщение «да», если числа введены в порядке возрастания., в противном случае вывести «нет»; Найти среднее арифметическое min и max.; Найти разницу между min и max; Найти сумму двух из них, которые не являются min.  Рис 28 Запущенное окно самостоятельной работы №1 Перечень используемых объектов: Button, GroupBox, TextBox Код программы: Public Class Form1 “вычесляем написано ли по порядку, разницу максимум и минимум и по порядку ли Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim x1, x2, x3, sr, min, max As Integer x1 = TextBox1.Text x2 = TextBox2.Text x3 = TextBox3.Text sr = (x1 + x2 + x3) / 3 TextBox5.Text = sr If x1 > x2 And x1 > x3 Then max = x1 TextBox7.Text = x1 ElseIf x2 > x1 And x2 > x3 Then max = x2 TextBox7.Text = x2 Else max = x3 TextBox7.Text = x3 End If If x1 < x2 And x1 < x3 Then min = x1 TextBox6.Text = x1 ElseIf x2 < x1 And x2 < x3 Then min = x2 TextBox6.Text = x2 Else min = x3 TextBox6.Text = x3 End If TextBox8.Text = max - min If x1 < x2 And x1 < x3 Then TextBox9.Text = x2 + x3 ElseIf x2 < x1 And x2 < x3 Then TextBox9.Text = x1 + x3 Else min = x3 TextBox9.Text = x1 + x2 End If “вычисляем по порядку ли число If x2 = x1 + 1 And x3 = x2 + 1 Then TextBox4.Text = "Да" Else TextBox4.Text = "Нет" End If End Sub End Class Самостоятельная 5Ввести число N, определяющее номер месяца года Вывести название времени года Ввести число от 0 до 1000000. Определить количество цифр в числе. Ввести число, определяющее школьную оценку (2,3,4,5). Вывести текстовую запись оценки (неуд, удовлетворительно, хорошо, отлично).  Рис 29 Запущенное окно самостоятельной работы №5 Перечень используемых объектов: Button, GroupBox, TextBox Код программы: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim x As Integer x = TextBox1.Text If x >= 3 And x <= 5 Then TextBox2.Text = "Весна" ElseIf x >= 6 And x <= 8 Then TextBox2.Text = "Лето" ElseIf x >= 9 And x <= 11 Then TextBox2.Text = "Осень" ElseIf x = 1 Or x = 2 Or x = 12 Then TextBox2.Text = "Зима" Else TextBox2.Text = "Неверный номер месяца" End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox4.Text = Convert.ToString(Len(TextBox3.Text)) End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If TextBox6.Text = 2 Then TextBox5.Text = "Неудовлетворительно" ElseIf TextBox6.Text = 3 Then TextBox5.Text = "Удовлетворительно" ElseIf TextBox6.Text = 4 Then TextBox5.Text = "Хорошо" ElseIf TextBox6.Text = 5 Then TextBox5.Text = "Отлично" Else TextBox5.Text = "Такой оценки нет" End If End Sub |