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

Готовые проекты хранятся в каталоге 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" _

Then Selection.Characters (i).Bold = True _

Else Selection.Characters (l).Italic = True

Next l

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 — красный и так далее). Программный код для первой строки текста:

With Font

.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:

Dim bytl As Byte, mfN As Integer, IngF As

Long

Private Sub cmdStart_Click()

infN = txtNum.Text

IngF = 1
Forbytl = 1 To infN
IngF = IngF * bytl
PrintIngF;
txtF.Text = txtF.Text +	Str(IngF)
Nextbytl
End Sub

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

г, _тт, 1 2 6 24 120 720 5040 40320 362880

Введите число 9

I 12 624 120 720 5040 40320 36?880

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

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. Программный код:

Dim blnA As Boolean Private Sub cmdl_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. Создать событийную процедуру сложения чисел:

Sub cmdPlus_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. Создать событийную процедуру вычисления гипотенузы и площади:

Sub cmdl_Click()

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

Катет 1 |
Катет 2 |
Гипотенуза
Площадь |
|i Вычислить J

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

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

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

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

Sub cmdLeft_Click()

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