Угринович Н., Босова Л., Михайлова Н. Практикум по информатике и информационным технологиям

Подождите немного. Документ загружается.

340

Ответы

указания

по

выполнению

заданий

Case

Is =

lbll.Top

lbll.Left

Case

Is =

lbll.Left

lbll.Top

Case

Is =

lbll.Left

lbll.Top

Case

Is =

lbll.Left

lbll.Top

End Select

End Sub

"Левый

верхний"

= 0

"Правый

верхний

= frml.Width -

"Левый

нижний"

= 0

frml.Height

"Правый

нижний"

= frml.Width -

frml.Height

lbll.Width

lbll.Height

lbll.Width

lbll.Height

5.5. Проект «Перемещение формы на экране» хранится в пап-

ке

prjZ5_5.vbp.

углах

формы разместить четыре кнопки.

2 Присвоить свойству Name для каждой кнопки следующие

значения:

cmdUpLeft

cmdDownLeft

cmdUpRight

—

для левой верхней;

—

для левой нижней;

—

для правой верхней;

cmdDownRight — для правой нижней.

3 Использовать процедуру Form_Load() для установки

значений свойства Caption:

Private

Sub Form_Load()

cmdDownLeft.Caption = "Левый нижний

угол"

cmdDownRight.Caption = "Правый нижний

угол"

cmdUpRight.Caption = "Правый верхний

угол"

cmdUpLeft.Caption = "Левый верхний

угол"

End Sub

4 Создать процедуры обработки событий Click для переме-

щения

формы на экране монитора для каждой коман-

дной кнопки.

Так,

при щелчке по кнопке cmdDownLeft необходимо,

чтобы нижний край формы совместился с нижним краем

экрана.

Тогда свойство Тор формы

будет

равно высоте эк-

рана минус высота формы, то есть

frml.Top = Screen.Height - frml.Height

Свойство

Left

формы должно быть равно координате ле-

вого края экрана, то есть

frml.Left

= 0

5 Для вывода текста на метке необходимо присвоить свой-

ству

Caption соответствующее значение текста:

Ответы

указания

по

выполнению заданий

341

lblVar.Caption="OopMa перемещена

левый

нижний

угол"

Код

обработки события

Click

для

кнопки

cmdDownLef

будет

выглядеть следующим образом:

Private

Sub

cmdDownLeft_Click()

frml.Top

Screen.Height

frml.Height

frml.Left

= 0

lblVar.Caption="OopMa

перемещена

левый

нижний

угол"

End

Sub

Составьте коды обработки

события

Click

для

других

кнопок самостоятельно.

Левы*

верхний угол

]

Форма

перемещена

левый

нижний

угол

5.6.

Проект хранится

папке prjZ5_6.vbp.

Открыть проект prjZ5_5.vbp.

Для

этого ввести команду

[File-Open

Project...]

и с

помощью диалоговой панели

Open

Project

выбрать проект.

Изменить

код

событийных процедур

для

каждой коман-

дной кнопки.

Код

процедуры

для

кнопки

cmdDownLeft

будет

иметь следующий

вид:

Private

Sub

cmdDownLeft_Click

()

frml.Move 0,Screen.Height

frml.Height

End

Sub

5.7.

Проект «Видимость метки» хранится

папке prjZ5_7.vbp.

Поместить

на

форму метку

две

кнопки.

событийную процедуру

Click

для

первой кнопки

включить

строку:

lbll.Visible

True

событийную процедуру

Click

для

второй кнопки

включить

строку:

lbll.Visible

= False

342

Ответы

указания

по

выполнению

заданий

5.8. Проект

«Видимость

формы»

хранится в папке

prjZ5_8.vbp.

1 Добавить в проект

вторую

форму командой

[Project-Add

form].

2 В событийную

процедуру

щелчка по кнопке на первой

форме включить строки:

frml.Visible

False

frm2.Visible

True

3 В событийную

процедуру

щелчка по кнопке на второй

форме включить строки:

frml.Visible

True

frm2.Visible

False

5.9. Проект хранится в папке

prjZ5_9.vbp.

1 Открыть проект

prj2.vbp.

Разместить на каждой форме по

две кнопки и связать их с событийными процедурами пе-

рехода

на

другие

формы.

2 Программный код для тре-

тьей

формы:

Private

Sub

cmdl_Click()

frml.Visible = True

frm2.Visible = False

frm3.Visible = False

End Sub

Private Sub

cmd2_Click()

frml.Visible = False

frm2.Visible = True

frm3.Visible = False

End Sub

5.10. Проект хранится в папке prjZ5__10.vbp.

1 Открыть проект

prjZ5_9.vbp.

Разместить на второй форме

кнопку и ввести событийную процедуру для вывода изоб-

ражения:

Private Sub cmdScan_Click ()

imgl.Picture = LoadPicture ("E:\practicum\

VB\Projects\project2\scaner.jpg")

End Sub

2 Разместить на

третьей

форме кнопку и ввести событий-

ную

процедуру

для

вывода

изображения и изменения

надписи на метке:

Ответы

и указания по выполнению заданий

343

Private

Sub cradCam_Click()

picl.Picture = LoadPicture

("E:\practicum\VB\Projects\project2\camera.jpg")

lbll.Caption = "Цифровая камера"

End Sub

5.11.

Проект «Собери картинку» хранится в папке

prjZ5_11

.vbp.

С помощью графического редактора (например, StarOffice

Image)

изображение (например, компьютера) произволь-

но

разделить на несколько прямоугольников (например,

четыре) и сохранить в отдельных файлах.

Поместить на форму произвольным образом четыре эле-

мента

PictureBox

произвольного размера. Присвоить

значению свойства AutoSize значение True.

Создать событийную процедуру Load_Form, которая по-

мещает

фрагменты изображения в графические окна:

Private

Sub

Form__Load

()

picl.Picture

LoadPicture

("E:

\practicum\VB\Projects\Z5__ll\compl

.gif ")

pic2.Picture

LoadPicture

("E:\practicum\VB\Projects\Z5_ll\comp2.gif")

pic3.Picture

LoadPicture

("E:\practicum\VB\Projects\Z5_ll\comp3.gif")

pic4.Picture

LoadPicture

("E:\practicum\VB\Projects\Z5_ll\comp4.gif")

End Sub

Запустить проект на выполнение. Фрагменты изображе-

ния беспорядочно размещены на форме.

344

Ответы

указания

по

выполнению

заданий

элемент» хранится в папке

5 Поместить на форму

кнопку

и создать для нее

событийную процедуру,

которая

задает такие ко-

ординаты для каждого

графического окна, что-

бы получилась целое

первоначальное изобра-

жение.

Запустить проект на вы-

полнение

и щелкнуть по

кнопке

Собрать.

5.12. Проект «Максимальный

prjZ5_12.vbp.

Создать проект, в котором использовать для заполнения

массива событийную процедуру из проекта «Сортировка

числового массива».

2 Создать событийную процедуру поиска максимального

элемента в массиве:

Private

Sub cmdMax_Click()

bytMax =

bytA(l)

bytN = 1

For

bytl

= 2 To 10

bytA(bytl)

> bytMax

Then

bytMax = _

bytA(bytl):

bytN =

bytl

"Максимальный элемент "; bytMax; "

его индекс"; bytN

End Sub

3 Запустить проект.

Последовательно щелкнуть по кнопкам

Заполнить

мас-

сив и Макс,

элемент.

Процедуру можно повторить неско-

лько раз.

Ответы

указания

по

выполнению

заданий

345

5892923665

0076246784

Элементы массива

I2S4667891Q

8433130564

633130544

653130344

654130334

654430331

654433031

654433301

654433310

8260578866

5992507794

0433138564

5.13. Проект хранится в папке

prjZ5_13.vbp.

Открыть файл

prj3.vbp

изменить

его так, чтобы

производилась сортиров-

ка

не по возрастанию, а

по

убыванию. Использо-

вать в качестве общей

процедуры процедуру

поиска

максимального

элемента.

5.14. Проект «Пузырьковая сортировка» хранится в папке

prjZ5_14.vbp.

Поместить на форму две кнопки cmdDim и cmdSort и два

текстовых поля txtDim и txtSort.

2 Событийную процедуру заполнения массива случайными

числами и вывода значений элементов массива в тексто-

вое окно cmdDim взять из проекта 5.3.

3 «Пузырьковый» метод основан на последовательном пе-

ремещении

больших элементов к верхнему краю массива

(подобно

тому,

как всплывают пузырьки воздуха).

В массиве последовательно просматриваются элементы с

1-го до предпоследнего. При этом для каждого i-ro эле-

мента массив просматривается от (i+l)-ro элемента до по-

следнего. Если данный (£-й) элемент окажется больше од-

ного из следующих за ним, они меняются местами.

Вывод отсортированного массива осуществить в текстовое

окно

txtSort.

Программный

код событийной процедуры сортировки:

Private

Sub cmdS о г

t__C

I i с k ()

For

bytl

= 1 To 10

For

bytJ = bytl + 1 To 10

bytA(bytl) > bytA(bytJ) Then bytR =

bytA(bytl):

bytA(bytl) =

bytA(bytJ):

346

Ответы

указания

по

выполнению

заданий

txtSort.Text

5.15.

bytA(bytJ) = bytR

Next bytJ

txtSort.Text

Str(bytA(bytl) )

Next bytl

End Sub

Запустить проект. По-

следовательно щелк-

нуть

по

кнопкам

За-

полнить

массив

Сортировать.

Такую процедуру

вы-

полнить

несколько

раз.

Проект

хранится

папке prjZ5_15.vbp.

Открыть файл проекта

prj4.vbp.

Поместить

на

форму

кнопку

cmdSave

создать для нее событийную процеду-

ру сохранения отсортированного массива strC

файле

sort.txt. Для записи данных

файл, например на диск

А:,

использовать оператор

Write:

Private

Sub

cmdSave_Click()

Open

"A:

\sort.txt"

For

Output

As #3

For bytl

= 1 To 10

Write

#3,

strC (bytl)

Next bytl

Close #3

End

Sub

4449983826

01 62319222

6530165504

0404960908

3867953563

4473353392

2344468899

112222369

013455566

0000446899

3335566789

333344579

Запустить проект

на

выполнение

по-

следовательно щелкнуть

по

кнопкам:

Считать

алфавит,

Считать

терми-

ны,

Сортировать,

Показать,

Сохра-

нить

файле.

Будет создан текстовый файл, содер-

жащий значения элементов отсорти-

рованного строкового массива.

Замените оператор

Write

на

оператор

Print.

Сравните полученные файлы

данных между собой.

"алгоритм"

"байт"

"винчестер"

"дискета"

"информатика"

"компьютер"

"модем"

'объект

'процессор"

'тэг"

Ответы

указания

по

выполнению

заданий

347

5.16. Проект «Словарь компьютерных терминов» хранится в

папке

prjZ5_16.vbp.

Создать текстовые файлы, содержащие компьютерные

термины (term.txt) и их определения (description.txt).

Удоб-

но

в списках терминов и определений каждый элемент

данных начинать с новой строки (в этом

случае

в качестве

разделителя данных вместо запятой

будет

использовать-

ся

перевод строки). Порядки следования терминов и их

определений должны быть одинаковыми.

2 Поместить на форму кнопки cmdTerm, cmdDesc и

cmdVoc

и два текстовых поля txtTerm (для ввода терми-

нов)

и txtDesc (для вывода определений).

3 Создать событийные процедуры cmdTermClick () и

cmdDesc_Click (), которые обеспечивают считывание

данных из файлов в строковые массивы.

Создать событийную процедуру cmdVocClick (), кото-

рая

сравнивает в цикле введенный пользователем в поле

txtTerm термин с терминами, хранящимися в символь-

ном

массиве

strA.

случае

совпадения, в поле txtDesc выводится соответ-

ствующее термину определение, в противном

случае

окне

появляется текст сообщения об отсутствии данного

термина в словаре.

Private Sub cmdVoc_Click()

For

bytl

= 1 To 10

If txtTerm.Text =

strA(bytl)

Then

txtDesc.Text = strB(bytl):

bytl

= 11 _

Else

txtDesc.Text = "Такого термина

словаре нет"

bytl

End

Sub

4 Для того чтобы нельзя было изменить текст в окне выво-

да определений txtDesc, для свойства Locked устано-

вить значение

True.

5 Запустить проект и

щелкнуть по кнопкам:

Считать

термины,

Считать

определения.

Ввести в окно термина

термин и щелкнуть по

кнопке

Словарь.

Процедуру можно по-

вторять многократно.

5.17. Проект «Русско-английский и англо-русский словарь»

хранится в папке

prjZ5_17.vbp.

348

Ответы

и указания по выполнению

заданий

Модернизировать предыдущий проект 5.16 «Словарь

компьютерных терминов». Создать текстовые файлы рус-

ских слов (russian.txt) и английских слов (english.txt). По-

рядки

следования слов и их переводов должны быть оди-

наковыми.

2 Поместить на форму кнопки cmdRussian, cmdEnglish,

cmdRE

и cmdER и два текстовых поля txtRussian (для

ввода и вывода русских слов) и txtEnglish (для ввода и

вывода английских слов).

3 Создать событийные процедуры cmdRussianClick () и

cmdEnglishClick (), которые обеспечивают считыва-

ние

данных из файлов в строковые массивы.

4 Создать событийные процедуры cmdRE и cmdER, которые

обеспечивают перевод:

Private

Sub cmdRE_C1i с k()

For

bytl

= 1 To 10

If txtRussian.Text =

strA(bytl)

Then

txtEnglish.Text=strB (bytl) : bytl=ll _

Else

txtEnglish.Text = "Такого термина

словаре нет"

bytl

End Sub

5 Запустить проект. Щел-

кнуть по кнопкам Счи-

тать

русские

слова,

Считать

английские

слова.

Ввести слово в одно из

полей

и щелкнуть по со-

ответствующей кнопке

для получения перевода.

5.18. Проект «Контроль знаний» хранится в папке

prjZ5_18.vbp.

Для проверки знаний, например по информатике, со-

здать текстовые файлы, содержащие 10 вопросов (prob-

lem.txt) и 10 правильных ответов (answer.txt).

2 Поместить на форму кнопки cmdProbl и

cmdAnsw

и со-

здать для них событийные процедуры считывания вопро-

сов в строковый массив

strA

и правильных ответов в

строковый

массив strB.

3 Поместить на форму кнопку cmdCont и создать для нее

событийную процедуру проверки знаний. Вопросы выво-

дить в поле txtProbl, а их номера в поле txtNum.

Запрос

ответов осуществить с помощью функции Input-

Вох и сохранить их в строковом массиве strC.

Ответы

указания

по

выполнению

заданий

349

Правильные

ответы отображать в поле

txtAnswl,

а отве-

ты, введенные учащимися, в поле

txtAnsw2.

Последовательно в цикле сравнить с помощью условного

оператора ответы, введенные учащимися (значения мас-

сива strC), с правильными ответами, хранящимися в

строковом массиве strB.

Реализовать вывод соответствующих сообщений в поле

txtMsg

и подсчет количества ошибок с помощью пере-

менной

bytN и вывод ее значения в поле txtError.

помощью оператора Select

Case

осуществить выстав-

ление оценки и ее вывод в поле

txtBall.

Private

Sub cmdCont_Click()

For

bytK = 1 To 10~

txtProbl.Text

= strA(bytK)

txtNum.Text

= Str(bytK)

strC(bytK)=InputBox("Введите

ответ",

"Ответ")

strB(bytK) = strC(bytK)

Then

txtMsg.Text = "Правильно!" _

Else

txtMsg.Text = "Неправильно!": bytN =

bytN

+ 1

txtError.Text

= Str (bytN)

txtAnswl.Text

= strX

txtAnsw2.Text

= strB(bytK)

MsgBox

"Следующий

вопрос?"

Next bytK

Select

Case bytN

Case

txtBall.Text

= "Отлично"

Case

txtBall.Text

= "Хорошо"

Case

txtBall.Text

= "Удовлетворительно"

Case

Is > 2

txtBall.Text

"Неудовлетворительно"

End Select

End Sub

4 Поместить на форму кнопку cmdSave и создать для нее

событийную процедуру сохранения ответов учащихся

(строковый массив strC) в файле student.txt.

5 Запустить проект и щелкнуть по кнопкам:

Считать

во-

просы,

Считать

ответы

Начать

опрос.

В окне вопросов последовательно

будут

появляться во-

просы,

а ввод ответов

будет

осуществляться с помощью

окна

функции InputBox.