Задания к работе

1. Выполните эстетичное оформление приложения.

2. К спискам слов добавьте еще по пять терминов.

3. Модернизируйте программный код так, чтобы сказуемое в данном предложении оставалось неизменным.

Дополнительно задание. В готовое приложение добавьте еще два элемента ComboBox для обстоятельства (отвечает на вопросы: Где? Когда?) и определения (отвечает на вопросы: Какой? Чей?)

Практическая работа № 6 Расписание занятий

Цель: научиться использовать в приложениях элемент управления ListBox.

Задание: разработать приложение, содержащее в качестве основного элемента управления – ListBox, позволяющее школьнику узнать его расписание занятий на определенный день.

Технология выполнения задания.

1. Запустите Visual Basic и создайте новый проект. Создайте форму, как показано на рисунке.

2. Создайте три объекта Label. Для элемента управления Label1 в свойстве Caption пишем "Расписание занятий", для Label2 – "Введите день недели", а свойство Caption для Label3 оставляем пустым.

3. Добавьте на форму элемент управления List1 и Command Button с надписью «Конец!».

4. Программный код для командной кнопки «Конец!» составьте самостоятельно.

5. Необходимо запустить окно кода и написать программный код для самой формы. Обратите внимание, что в строчках кода некоторые команды пропущены, восстановите их.

Private Sub Form_Load()

List1.AddItem "понедельник"

List1.AddItem "вторник"

List1._______ "среда"

____________________

____________________

____________________

List1.AddItem "воскресенье"

End Sub

6. Для элемента управления List1 напишите следующий программный код. Обратите внимание, что в строчках кода некоторые команды пропущены, восстановите их.

Private Sub List1_Click()

Label2.Caption = List1.Text

Select Case List1.ListIndex

Case 0

Label3.Caption = "математика, физика, информатика"

Case _

Label3.Caption = "история, ин.язык, физ-ра"

Case 2

Label3.________ = "химия, физика, менеджмент"

Case 3

______.Caption = "биология, экономика"

Case 4

Label3.Caption = "экология, геометрия"

Case _

Label3._______ = "военная кафедра"

Case 6

Label3.Caption = "отдых"

End Select

End Sub

7. Запустите программу, протестируйте ее. При выборе дня недели из списка внизу появится расписание на этот день.

Задания к работе

1. Эстетично оформите разработанное приложение.

2. Измените вымышленное расписание из приложения на расписание уроков вашего класса.

Дополнительное задание. Разработайте приложение аналогичное разработанному ранее приложению: в качестве элементов списка выберите все 12 месяцев, а в качестве отображающегося результата праздничные даты.

Практическая работа № 7 Решение квадратного уравнения

Цель: научиться использовать условный оператор, грамотно составлять условие; закрепить навыки по созданию простых приложений, использованию переменных и построению сложных алгебраических выражений в Visual Basic.

Задание: разработать приложение, позволяющее вычислять корни квадратного уравнения.

Технология выполнения задания.

1. Запустите Visual Basic.

2. На форму добавьте элементы Text Box – 3 штуки (в них будут вводиться коэффициенты квадратного уравнения), Command Button – 3 штуки, Label – 10 штук. Приложение должно выглядеть следующим образом.

3. Измените следующие свойства:

- для Text1, Text2, Text 3 очистить поле Text;

- для Command 1 свойство Caption на «Решить»;

- для Command 2 свойство Caption на «Очистить»;

- для Command3 свойство Caption на «Выход»;

- для Label 1 свойство Caption на «x^2+»;

- для Label 2 свойство Caption на «x+»;

- для Label 3 свойство Caption на «=0»;

- для Label 4 свойство Caption на «1 корень равен»;

- для Label 5 свойство Caption на «2 корень равен»;

- для Label 6 свойство Caption на «»;

- для Label 7 свойство Caption на «»;

- для Label 8 свойство Caption на «корень равен»;

- для Label 9 свойство Caption на «»;

- для Label 10 свойство Caption на «»;

- для Label 4-10 свойство visible изменить на false.

4. Для командной кнопки «Решить» представлен следующий код, но в некоторых местах оставлены пропуски. Восстановите программный код для данной кнопки.

Dim a, b, c, d, x1, x2 As Double

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(____________)

c = ___________________

d = ____________

If d > 0 Then

x1 = _______________

x2 = _______________

Label4.Visible = True

Label5._______________

Label6. _______________

Label7. _______________

Label6.Caption = _______________

Label7.Caption = x2

End If

If d = 0 Then

x1 = _______________

Label8. _______________

Label9. _______________

Label9.Caption _______________

End If

If _______________Then

Label10. _______________

Label10. _______________= "корней нет, потому что дискриминант равен нулю"

_______________

End Sub