Лекция: И объектно-ориентированного программирования

Готовые проекты хранятся в каталоге CD-ROMГ'Зг*
\textbook\VB\ в отдельных папках________ " *^&

4.4. Программный код:

'Открытие документа

Documents().Open FileName:=

«С:\Документы\Проба.doc»

'Печать документа

Documents («Ilpo6a.doc»). Printout

Range:=wdPrintFromTo, From:=«l»,To:=«3»

'Сохранение документа

Documents(«Проба.doc»).Save

4.5. Программный код:

For l = 1 To 10

If Selection.Characters(i) = «a» _

ThenSelection.Characters (i) .Bold = True _

ElseSelection.Characters (l) .Italic = True

Nextl

4.6. Form (Форма), CommandButton (Командная кнопка),

TextBox (Текстовое поле), Label (Метка) и др.

4.7. Проект «Вывод сообщения» хранится в папке prjZ4-7.

4.8. Проект «Вывод сообщений» хранится в папке prjZ4-8.

4.9. Проект «Печать на форме» хранится в папке prjZ4-9.

1. Поместить на форму две кнопки. Для первой кнопки создать событийную процедуру, выводящую текст на форму с помо­щью метода Print.

Для каждой строки в событийной процедуре необходимо за­дать параметры шрифта и цвет шрифта. Перед печатью каж­дой строки текста можно присвоить значения сразу нескольким свойствам шрифта с помощью инструкции With... End With.

Цвет текста зададим, присвоив свойству ForeColor (цвет надписи) значение (цвет) с помощью функции QBColor (). Аргументом функции являются числа, каждому числу соот­ветствует свой цвет (например, 2 — зеленый, 9 — синий, 12 — красный и так далее). Программный код для первой строки текста:

WithFont

.Name = «Times New Roman» .Size = 18 .Italic = True

Ответы и указания к решению

End With

frml.ForeColor = QBColor(12)

frml.Print«Times New Roman, 18, курсив, крас­ный»

Программный код для печати других строк создается анало­гично. 2. Для очистки формы созда- i «щши»....' ^^штштшшмммшхг.ы «i

ДИМ событийную процедуру Гш^ ^w Roman, IS. курсив, ьрааши

„ Anal. 14. подчеркнутый, синий

ДЛЯ ВТОРОЙ КНОПКИ С ИСПОЛЬ-соип.г кеч. 12, nonv™PM>.k, =«л«яый

зованием метода 1Г~п^>-|
Cls:frml.Cls --------------

4.10.От -2 147 483 648 до 2 147 483 647.

4.11.3 и 11 ячеек.

4.12.Проект «Факториал числа» хранится в папке prjZ4-12.

1. Поместить на форму два текстовых окна txtNum (для ввода числа) и txtF (для визуализации процесса вычисления факториала), метку lblNum и кнопку cmdstart.

2. Объявить переменные и создать событийную процедуру вычисления факториала cmdStart_Click (). Для визуали­зации процесса вычисления факториала использовать ме­тод Printи текстовое поле txtF:

Dimbytl As Byte,mfN As Integer,IngF As

Long

Private SubcmdStart_Click()

infN = txtNum.Text

Запустить проект и щелкнуть Hi,'МШУУ'.ШИМИ»' -'пи

г, тт, 1 2 6 24120 720 5040 40320362880

по кнопке Вычислить. На фор­ме и в текстовом поле будут на­печатаны результаты процесса вычисления факториала.

4.13. Проект «Сложение и конкатенация» хранится в папке prjZ4-13.

Ответы и указания к решению

Программный код: ПВЭЯШ§5Ш£Ш'-|д|«1

Сложение чисел 5 + 5=10
Private Sub Cmdl_Cllck () Конкатенация символов 5 + 5-55

bytA = 5 + 5 Гс^-1

strB = «5» + «5» ________ |ггтгт""А__________

Print «Сложение чисел: 5 +

5 =»; bytA

Print «Конкатенация символов: 5+5 =»; strB

End Sub

4.14.Проект «Истинность высказывания» хранится в папке
prjZ4-14. Программный код:

DimblnA As Boolean Private Subcmdl_Click()

blnA = ((2*2 = 4) And(3 * 3 = 10) ) Or((2 * 2 = 5) And(3 * 3 = 9)) Print«Высказывание 2*2=4 и 3*3=10 или 2*2=5 и 3*3=9 »; blnA End Sub

4.15.16 байтов • 11= 176 байтов, 176 ячеек.

4.16.Проект «Мультисистемныи калькулятор» хранится в пап­ке prjZ4-16.

1. Разместить на форме девять текстовых полей (txtlDec, txt2Dec,txt3Dec,txtlOct,txt20ct,txt30ct,txtlHex, txt2Hex, txt3Hex) для ввода и вывода чисел, четыре кноп­ки (cmdPlus, cmdMinus, cmdUmn, cmdDelen)для создания событийных процедур, реализующих арифметические опе­рации, и три метки (lblDec, lblOct, lblHex) для вывода поясняющих надписей над текстовыми полями.

2. Создать событийную процедуру сложения чисел:

SubcmdPlus_Click()

txt3Dec.Text = Val(txtlDec.Text) +

Val(txt2Dec.Text)

txt30ct.Text = Oct(Val(txtlOct.Text) +

Val(txt20ct.Text))

txt3Hex.Text = Hex(Val(txtlHex.Text) +

Val(txt2Hex.Text))

End Sub

3. Аналогично создать событийные
процедуры вычитания, деления и

множения чисел.

4. Запустить проект. Ввести числа в
поля аргументов арифметических
операций и щелкнуть по кнопке
арифметической операции.

Ответы и указания к решению

4.17.Проект «Треугольник» хранится в папке prjZ4-17.

1. Разместить на форме четыре текстовых поля (txtKl и txtK2 — для ввода значений катетов, txtH и txtS — для вывода вычисленных значений гипотенузы и площади), кнопку cmdl для создания событийной процедуры, реали­зующей вычисления, и четыре метки (1ЫК1, 1ЫК2, 1ЫН, lblS) для вывода поясняющих надписей рядом с текстовы­ми полями.

2. Создать событийную процедуру вычисления гипотенузы и площади:

Subcmdl_Click()

txtH = Sqr(Val(txtKl.Text)A2+Val(txtK2.Text)Л2) txtS = (Val(txtKl.Text) * Val(txtK2.Text))/2 End Sub

3. Запустить проект на выполнение, ввести имшмашг'-inixf
значения катетов и щелкнуть по кнопке
Вычислить.

В текстовых полях появятся результаты процесса вычисления гипотенузы и пло­щади треугольника.

4.18.Проект «Усовершенствованный строковый калькулятор» хранится в папке prjZ4-18.

1. Открыть файл проекта prjVB7.vbp. Добавить кнопку
cmdLeft и текстовое поле txtLeft. Создать событийную
процедуру вырезания левой подстроки из строки с исполь­
зованием функции Left$(cTpoKa$,bytN):

SubcmdLeft_Click()

txt3.Text = Left$(txtl.Text, Val(txtLeft.Text))