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

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

350

Ответы

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

В соответствующих окнах

будут

появляться введенный и

правильный

ответы, сообщения и количество ошибок.

После

ответа на последний вопрос в окне

Оценка

появит-

ся

результирующая отметка.

Для сохранения ответов учащихся в файле щелкнуть по

кнопке

Сохранить

ответы.

5.19. Проект «Игра Баше-2» хранится в папке prjZ5_19.vbp.

Поместить на форму текстовое поле txtl. Заменить вы-

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

Print,

на

вывод определенного количества символов в текстовое

поле с помощью цикла со счетчиком:

For bytL = 1 То bytN

txtl.Text = txtl.Text

" 1"

Next bytL

Illlllllllllll

Начать

игру

5.20. Проект «Игра Баше-3» хранится в папке prjZ5_20.vbp.

Поместить после цикла со счетчиком строки:

If bytN = 1

Then

MsgBox

"После

хода

компьютера

остался

1 предмет.

Вы проиграли!", , "Игра Баше": End

strX

InputBox("Какое количество предметов

Вы забираете?",

"Ваш

ход!")

bytN

Val(strX)

If bytN

= 1

Then MsgBox "После Вашего хода

остался

предмет.

"Игра Баше":

End

Компьютер проиграл!

Ответы

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

5.21.

Проект «Усовершенствованный мультисистемный каль-

кулятор» хранится в папке prjZ5_21.

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

prj6.vbp.

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

текстовых

поля

txtlHex, txt2Hex, txt3Hex,

две кнопки

cmdDecHex

cmdHexDec

и метку

lblHex

с надписью

Шестнадцатеричная

система.

Ввести программный код событийной процедуры

cmdDecHex_Click

() перевода десятичных чисел в шест-

над

цатеричные:

Private

Sub cmdDecHex_Click()

txtlHex.Text = Hex(Val(txtlDec.Text))

txt2Hex.Text = Hex(Val(txt2Dec.Text))

txt3Hex.Text = Hex(Val(txt3Dec.Text))

End Sub

Ввести программный код событийной процедуры

cmdHexDec_Click()

перевода шестнадцатеричных чи-

сел

в десятичные:

Private

Sub cmdHexDec_Click()

txtlDec.Text =

Val("&H"

+ txtlHex.Text)

txt2Dec.Text =

Val("&H"

+ txt2Hex.Text)

txt3Dec.Text =

Val("&H"

+ txt3Hex.Text)

End Sub

Ввести десятичные числа и

умножить их.

Перевести

числа в шестнад-

цатеричную систему, щелк-

нув по кнопке

Dec-Hex.

Ввести

шестнадцатеричные

числа и перевести их в де-

сятичную систему, щелк-

нув по кнопке

Hex-Dec.

5.22.

Проект «Инженерный калькулятор» хранится в папке

prjZ5_22.

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

prj6.vbp.

Удалить с формы три текстовых

поляЬйЮсЛ,

txt2Oct, txt3Oct,

две кнопки

cmdDecOct

cmdOctDec,

две метки

lblDec

lblOct.

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

cmdDecOct__Click

() и

cmdOctDec_Click

() .

Добавить на форму девять кнопок

cmdSin, cmdCos,

cmdTan, cmdAtn, cmdSt, cmdSqr, cmdRnd, cmdLog

cmdExp.

Для каждой из

этих

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

ры, реализующие вычисление соответствующих функ-

352

Ответы

указания

по

выполнению

заданий

ций:

синус, косинус, тангенс, арктангенс, возведение в

степень, квадратный корень, случайное число, натураль-

ный

логарифм и показательная функция.

Например,

для получения случайного числа событийная

процедура cmdRnd_Click () примет вид:

Private

Sub cmdS t_C1i с k()

txt3Dec.Text = Rnd

End Sub

5 Ввести самостоятельно программный код

других

собы-

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

языка

Visual

Basic:

Sin(x), Cos(x), Tan(x), ATn(x),

У, Sqr(x),

Log(x)

и Ехр(х).

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

полнение.

Например,

для получения

случайного числа щелк-

нуть по кнопке Rnd.

5.23. Проект «Подсчет цифр в

числе»

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

prjZ5_23.

Поместить на форму кнопку cmdl и создать для нее собы-

тийную процедуру.

Ввод

чисел осуществить с использованием функции вво-

да данных InputBox. Для преобразования строкового

значения

функции в десятичное число использовать фун-

кцию

Val.

3 Количество цифр в числе равно количеству выполнения

тела цикла, в котором десятичное число делится на 10 и

выделяется целая часть частного от деления. Для выделе-

ния

целой части воспользоваться встроенной функцией

Int

(x), которая возвращает целую часть числа:

Dim intDec,

intD,

intA As

Integer,

bytK As

Byte

Private

Sub cmdl_Click()

intDec

= Val(InputBox("Введите натуральное

десятичное

число",

"Ввод десятичного

натурального

числа",

1))

intD

= intDec

bytK

= О

While intD > 0

intD

= Int (intD / 10)

bytK

= bytK + 1

Ответы

указания

по

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

353

Loop

"Количество

цифр

натуральном

числе";

intDec;

"равно";

bytK

End

Sub

Запустить

проект

шел-

.НЕмш^^^^^^^ИИИИИИЕ

" ^

Количество цифр

натуральном числе

123

равно

КНУТЬ ПО КНОПКе

IJUCK.

Количество цифр

натуральном числе

123456

равно

Количество цифр

натуральном числе

123456789

равно

5.24.

Проект

хранится

папке

prjZ5_24.

Открыть

проект

prjZ5_23.vbp

внести

дополнения

со-

бытийную

процедуру.

Применить

фунцию

Abs

(х)

для

выделения

модуля

числа:

intD

Abs(intD)

Запустить

проект

на

вы-

ХЗЕШШШШШШШШШШШШШШШ&

ПОЛНеНИе

ЩеЛКНуТЬ

ПО

Количество

цифр

целом

числе

-123456

равно

у-т

т-^

Количество

цифр

целом

числе

123456

равно

кнопке

Пуск.

появив-

шемся

окне функции

ввода

InputBox ввести

число.

5.25. Проект «Печать цифр числа» хранится

папке prjZ5_25.

Модернизировать проект

prjZ5_24.vbp. В

событийной про-

цедуре

для

выделения остатка

от

деления числа

на

чис-

ло

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

X Mod

Для печати

по

зонам

качестве разделителя списка печа-

ти использовать запятую:

While intD

> О

bytB

intD

Mod 10

ИСЛ0

^состоигкищфр

bytB,

intD

=Int(intD/10)

Loop

;

[p^

5.26. Проект «Сумма цифр числа» хранится

папке prjZ5_26.

Модернизировать проект

prjZ5_25.vbp.

программном

коде цикла значениями переменной bytB являются циф-

ры

числа,

а их

сумма накапливается

переменной bytS:

While

intD

> 0

bytB

intD

Mod 10

bytS

bytB

intD

(intD

bytB)

/ 10

Loop

354

Ответы

указания

по

выполнению

заданий

«Сумма

цифр

числа

12345

равна 15

{Сумма

цифр

числа

33333

равна 15

Юумма

цифр

числа

-33333

равна 15

5.27. Проект «Числа

без

одинаковых цифр» хранится

папке

prjZ5_27.

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

неполное

ветвление, которое обеспечивает

случае совпа-

дения

цифр переход

следующей цифре:

Dim intl, intJ As

Byte

Private

Sub cmdl_Click()

For intl = 1 To 9

For intJ = 0 To 9

If intJ = intl

Then

intJ = intJ + 1

intl * 10 + intJ;

intJ

intl

End

Sub

j10

12 13 14

15 16 17 18

19 20 21 23 24 25 26 27 28 29 30 31 32 34 35 Э6 37 38 39 40 41 «2

45 4« 47 48 49 30 31 32 53 54 36 57 S8 S9 60 61 «2

64 65 S7 68 69

5.28. Проект «Перевертыш чисел» хранится

папке prjZ5__28.

первом цикле

предусловием заполнить массив цифра-

ми

числа,

а во

втором цикле

со

счетчиком обеспечить об-

ратный порядок

их

следования

числе. Программный

код проекта

будет

Dim

intN,

intNl,

intN2

Integer,

bytl,

bytJ As Byte, sngA(l To 10) As Single

Private

Sub

cmdl__Click

()

intN

Val(InputBox("Введите целое

десятичное число", "Ввод числа",

1))

intN2

intN

bytl

= 0

While

intN

> 0

bytl

+ 1

sngA(bytl)

= intN Mod 10

intN

= Int(intN / 10)

Loop

intNl

sngA(l)

For

bytJ

= 2 To

bytl

intNl

* 10 +

sngA(bytJ)

bytJ

Ответы

указания

по

выполнению

заданий

355

"Исходное

число";

intN2;

"Перевертыш";

intNl

End

Sub

Запустить проект, щелк-

нуть

по

кнопке Пуск

ввес-

ти число.

Число

1234

Число перевертыш

4321

Число

654321

Число перевертыш

123456

5.29. Проект «Перевод десятичного числа

двоичную систему

счисления» хранится

папке prjZ5_29.

Реализовать перевод натурального десятичного числа

двоичное число

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

последовательного деления числа

на

основание новой

си-

стемы счисления.

Реализовать последовательное деление введенного числа

на

2 в

цикле

предусловием

intD

> 0,

который

будет

вы-

полняться

до

тех

пор, пока частное

от

деления

не

станет

дробным числом.

В переменной intA хранить остатки деления. С помощью

оператора ветвления преобразовать числовое значение

остатка (переменная

intA)

строковую переменную

strBin, хранящую двоичное число.

Программный

код

проекта

будет

Dim intDec,

intD,

intA

Integer,

strBin

As String

Private

Sub

cmdl__Click

()

intDec

Val(InputBox("Введите натуральное

десятичное

strBin

= " "

intD

intDec

Do While intD

> 0

intA

intD

Mod 2

If intA

= 1

Then strBin

= "1"

Else strBin

= "0

число",

"Десятичное число

Int(intD

strBin

intD

Loop

"Десятичное

число";

strBin

End

Sub

Запустить проект, щелк-

нуть

по

кнопке Пуск

вве-

сти

число.

число";

intDec,

"Двоичное

Десятичное

число

Десятичное

число

Десятичное

число

Десятичное

число

Десятичное

число

•1

100

шшшшшт

Двоичное

число

Двоичное

число

Двоичное

число

Двоичное

число

Двоичное

число

Ц„,[о|х|

101

1010

110010

1100100

356

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

5.30. Проект «Усовершенствованный строковый калькулятор»

хранится

папке prjZ5__30.

5.31. Проект «Подсчет количества экземпляров символа

в тек-

сте»

хранится

папке prjZ5__31.

На

форме разместить кнопку cmdl

создать

для

нее собы-

тийную процедуру подсчета символов

тексте.

Ввод

текста

искомого символа производится

помощью

функции

ввода

MsgBox.

и ее

значения присваиваются

пе-

ременным

strA

strB.

В цикле

со

счетчиком, выполнение которого производит-

ся

столько раз, сколько символов

тексте (значение фун-

кции

Len

(strA)

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

лы

из

введенного текста

и с

помощью неполного

условного оператора сравниваются

введенным искомым

символом.

случае

выполнения условия значение счет-

чика

(переменной bytN) увеличивается

на

единицу:

Dim

strA,

strB,

strX

As String,

bytl,

bytN

Byte

Private Sub cmdl_Click()

strA = InputBox("Введите текст",

"Ввод текста")

strX = InputBox("Введите искомый символ",

"Ввод символа")

bytN = О

For bytl = 1 То Len (strA)

strB = Mid$(strA, bytl, 1)

If strB = strX

Then

bytN = bytN + 1

Next bytl

"Количество символов <";

strX;

в тексте <";

strA;

"> равно"; bytN

End Sub

2 После запуска проекта

щелчка

по

кнопке Пуск ввести

текст

искомый символ.

^Количество

символов

<а>

тексте

L—,~~. »~-

<инсрорматика>

равно

5.32. Проект «Подсчет количества экземпляров символа

в тек-

сте-2»

хранится

папке prjZ5__32.

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

prjZ5_31.vbp

и на

форме разместить

три

текстовых поля:

для

ввода текста txtText,

для

ввода

символа txtSim

и для

вывода количества символов

в тек-

сте txtNum.

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

На Щ2

•9И

ill

Ответы

указания

по

выполнению

заданий

357

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

текстовых полей txtText .Text, txtSim.Text,

txtNum.Text:

Dim

strB

String,

bytl,

bytN As

Byte

Private

Sub cmdl_Click ()

bytN = 0

For

bytl = 1 To Len

(txtText.

Text)

strB

= Mid$(txtText.Text,

bytl,

If strB = txtSim.Text Then bytN = bytN + 1

Next bytl

txtNum.Text

= bytN

End Sub

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

сти в первое текстовое

поле текст, а во второе

—

символ. Щелкнуть

по

кнопке Пуск.

5.33. Проект «Замена символов в

тексте»

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

prjZ5_33.

На форме разместить кнопку cmdl и создать для нее собы-

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

другой.

Ввод

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

помощью функции ввода

MsgBox

и ее значения присваи-

ваются переменным

strA,

strX

strY.

В цикле со счетчиком, количество выполнения которого

равно количеству символов в тексте (значение функции

Len (strA)), последовательно вырезаются символы из

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

ратора сравниваются с введенным искомым символом. В

случае

выполнения условия символы заменяются с испо-

льзованием функции Mid$:

Dim

strA,

strB,

strX,

strY

String,

bytl

Byte

Private

Sub cmdl_Click()

strA

= InputBox("Введите текст",

"Ввод

текста")

strX

= InputBox("Введите символ, который

необходимо

заменить","Ввод первого символа")

strY

= InputBox("Введите символ, который

необходимо

вставить","Ввод второго символа")

Print "Старый текст: "; strA

For

bytl = 1 То Len (strA)

strB

= Mid$(strA,

bytl,

If strB = strX Then Mid$

(strA,bytl,

=strY

358

Ответы

указания

по

выполнению

заданий

strA

Старый

текст:

аааабббб

Новый

текст:

ооообббб

bytl

"Новый текст:

End

Sub

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

вве-

сти

первое поле текст,

во второе заменяемый

символ,

а в

третье

—

но-

вый

символ. Щелкнуть

по

кнопке Пуск.

5.34. Проект «Замена символов

тексте-2»

хранится

папке

prjZ5_34.

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

prjZ5__33.vbp

и на

форме разместить

три

текстовых поля:

для

ввода текста txtText,

для

ввода

первого символа txtSiml

и для

ввода второго символа

txtSim2.

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

текстовых полей txtText.Text, txtSiml.Text,

txtSim2.Text:

Dim strA, strB As

String,

bytl As Byte

Private

Sub cmdl_Click()

strA

txtText.Text

For

bytl

= 1 To

Len(

txtText.

Text)

strB

Mid$(txtText.Text,

bytl,

strB

txtSiml.

Text Then

Mid$(strA,

bytl,

1)=

txtSim2.Text

Next bytl

txtText.Text

strA

End

Sub

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

ввес-

ти

первое окно текст,

во

второе окно заменяемый

символ

и в

третье окно

—

новый

символ.

После

щелчка

по

кнопке

Пуск

первом окне появится измененный текст.

5.35. Проект «Слово-перевертыш» хранится

папке prjZ5_35.

На форме разместить кнопку cmdl

создать для нее собы-

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

слово

обратной последовательностью следования

со-

ставляющих его символов.

Ввод

слова производится

помощью функции ввода

MsgBox,

и ее

значение присваивается переменной

strA.

В цикле

со

счетчиком, количество выполнения которого

равно количеству символов

слове, последовательно вы-

резаются

прямой последовательности (слева направо)

Ответы

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

символы из введенного слова и в обратной последователь-

ности

(справа налево) присваиваются переменной

strX,

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

во-перевертыш:

Dim

strA,

strB,

strX

String,

bytl

Byte

Private

Sub cmdl_Click()

strA

= InputBox("Введите слово",

"Ввод

слова")

"Введенное слово: ";

strA

strX

= " "

For

bytl

= 1 To Len(strA)

strB

= Mid$(strA,

bytl,

strX

strB

strX

bytl

"Слово перевертыш: ";

strX

End Sub

ЗапуСТИТЬ

Проект И щелк-

[Введенное слово: топор

У-Г

Слово

перевертыш: ропот

нуть

по

кнопке Пуск. Ввес-

ти

появившемся диалого-

lllSltl

вом окне слово.

5.36. Проект «Слово-перевертыш-2» хранится

папке

prjZ5_36.

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

prjZ5__35.vbp

и на

форме разместить

два

текстовых поля:

для

ввода слова txtl,

для

вывода

сло-

ва-перевертыша txt2.

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

текстовых полей txtl.

Text

и tx2 .

Text:

Dim

strB

String,

bytl

Byte

Private

Sub cmdl_Click()

txt2.Text

= " "

For

bytl

= 1 To Len (txtl. Text)

strB

= Mid$(txtl.Text,

bytl,

txt2.Text

strB

txt2.Text

bytl

End Sub

Запустить проект и ввести в первое поле слово. Щелкнуть

по

кнопке

Пуск,

слово-перевертыш появится во втором

окне.

5.37.

Проект «Шифровка и дешифровка-2» хранится в папке

prjZ5_37.

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

prj8.vbp

и в программном коде заменить

циклы со счетчиком, которые обеспечивают последова-

тельное

вырезание символов из секретного текста, на

циклы с послеусловием: