Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Готовые проекты хранятся в каталоге 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))
Дата публикования: 2014-10-30; Прочитано: 314 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!