3. Ответ

3.1 В начале Вам необходимо создать текстовый файл на диске, например, «floppy» диске, для этого необходимо щелкнуть мышью кнопку «Запись на диск», после чего появится окно ввода данных рис. 3.

Рис.3.

3.2 Вводим длину списка, например, пять, затем по очереди вводим: Фамилию, Имя, Год рождения (рис.4), и таких пять наборов. Таким образом, Вы создали текстовый файл на Floppy диске с именем «text1.Text».

Рис. 4.

3.2 Щелкните мышью кнопку «Считать с диска в окно списка» и в окнах ListBox появятся списки рис.5. Вы можете очистить окна списков щелкнув мышью кнопку «Удалить содержимое окон», т.д.

Рис.5.

Задача №19

Создать приложение: «Калькулятор»

Решение:

Эскиз экранной формы представлен на рис. 1.

Рис.1.

1. Расставим имена объектов на эскизе экранной формы рис.2.

Рис.2.

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

Public k As Integer

Public b As Double

Public c As Double

Public a As Double

Private Sub Command1_Click()

Text1.Text = Text1.Text + "1"

End Sub

Private Sub Command10_Click()

Text1.Text = Text1.Text + 0

End Sub

Private Sub Command11_Click()

k = 1

b = Val(Text1.Text)

Text1.Text = " "

End Sub

Private Sub Command12_Click()

k = 2

b = Val(Text1.Text)

Text1.Text = " "

End Sub

Private Sub Command13_Click()

k = 3

b = Val(Text1.Text)

Text1.Text = " "

End Sub

Private Sub Command14_Click()

k = 4

b = Val(Text1.Text)

Text1.Text = " "

End Sub

Private Sub Command15_Click()

c = Val(Text1.Text)

If k = 1 Then a = b + c

If k = 2 Then a = b - c

If k = 3 Then a = b * c

If k = 4 Then a = b / c

Text1.Text = Str(a)

End Sub

Private Sub Command16_Click()

Text1.Text = Text1.Text + "."

End Sub

Private Sub Command17_Click()

End

End Sub

Private Sub Command18_Click()

Text1.Text = " "

b = 0

c = 0

k = 0

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text + "2"

End Sub

Private Sub Command3_Click()

Text1.Text = Text1.Text + "3"

End Sub

Private Sub Command4_Click()

Text1.Text = Text1.Text + "4"

End Sub

Private Sub Command5_Click()

Text1.Text = Text1.Text + "5"

End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text + "6"

End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text + "7"

End Sub

Private Sub Command8_Click()

Text1.Text = Text1.Text + "8"

End Sub

Private Sub Command9_Click()

Text1.Text = Text1.Text + "9"

End Sub

3. Ответ:

Вывод:

Приведенное Windows-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи (см. следующую задачу).

Задача №20

Создать приложение: «Современный калькулятор»

Решение:

1 Экранная форма (см. Рис. 1).

Рис. 1

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

Public a, b, c As Double, k As Integer,

Private Sub Command1_Click()

Text1.Text = Text1.Text + "1"

End Sub

Private Sub Command10_Click()

Text1.Text = Text1.Text + "5"

End Sub

Private Sub Command11_Click()

Text1.Text = Text1.Text + "6"

End Sub

Private Sub Command12_Click()

Text1.Text = Text1.Text + "7"

End Sub

Private Sub Command13_Click()

Text1.Text = Text1.Text + "8"

End Sub

Private Sub Command14_Click()

Text1.Text = Text1.Text + "9"

End Sub

Private Sub Command15_Click()

Text1.Text = Text1.Text + "0"

End Sub

Private Sub Command16_Click()

Text1.Text = Text1.Text + "."

End Sub

Private Sub Command17_Click()

ctroka$ = Text1.Text

dlina = Len(ctroka$)

t = dlina - 1

Text1.Text = Left(ctroka$, t)

End Sub

Private Sub Command18_Click()

k = 4

b = Val(TextBox1.Text)

Text1.Text = ""

End Sub

Private Sub Command19_Click()

End

End Sub

Private Sub Command2_Click()

Text1.Text = Text1.Text + "2"

End Sub

Private Sub Command3_Click()

k = 1

b = Val(Text1.Text)

Text1.Text = ""

End Sub

Private Sub Command4_Click()

k = 3

b = Val(Text1.Text)

Text1.Text = ""

End Sub

Private Sub Command5_Click()

c = Val(Text1.Text)

If k = 1 Then a = b + c

If k = 2 Then a = b * c

If k = 3 Then a = b - c

If k = 4 Then a = b / c

Text1.Text = Str(a)

k = 0

End Sub

Private Sub Command6_Click()

Text1.Text = Text1.Text + "3"

End Sub

Private Sub Command7_Click()

Text1.Text = Text1.Text + "4"

End Sub

Private Sub Command8_Click()

k = 2

b = Val(Text1.Text)

Text1.Text = ""

End Sub

Private Sub Command9_Click()

Text1.Text = ""

End Sub

Задача №21

Создать приложение: «Решения некоторых финансовых операций».

Решение:

1. В языке VB есть встроенные функции:

Функция Pmt(rate, nper, pv) возвращает величину периодического взноса в банк, который должен выплатить клиент этого банка, чтобы в определенный срок вернуть банку взятые у него деньги (кредит).

Rate – банковская процентная ставка, относящаяся к периоду выплаты. (если, например, 12% - то значение rate равно 0,12/12=0,01.

Nper – это общее число периодов выплат, например, если взять кредит на 2 года, то значение nper будет равно 24.

Pv – это величина кредита в рублях (или других ед.), которую клиент взял в банке.

Функция Pv(rate, nper, pmt) возвращает величину приведенной стоимости (кредита) при заданной величине периодической выплаты pmt.

Функция Rate (nper, рmt, pv) возвращает величину банковской процентной ставки, относящейся к периоду выплаты.

2. Эскиз экранной формы представлен на рис. 1.

Рис.1.

3. Расставим имена объектов на эскизе экранной формы рис. 2.

В окне приложения должны располагаться три кнопки (Command Button) и одно текстовое поле (Textbox). Кроме того, в верхней части формы (Form1) должны выводится соответствующие пояснения к программам в компактном виде.

Рис.2.