Количество символов

 

Option Explicit

Private Sub cmdExit_Click()

End

End Sub

 

Private Sub txtSymbol_Change()

Dim k As Integer, Text As String, Symbol As String, KolSimv As Integer

Text = txtText.Text

Symbol = txtSymbol.Text

KolSimv = 0

For k = 1 To Len(Text)

If Mid(Text, k, 1) = Symbol Then KolSimv = KolSimv + 1

Next k

lblOtvet.Caption = “Количество символов = ” & KolSimv

End Sub

3 этап Составление программ

Самостоятельное составление программ и решение задач.

 

17.Методика введения понятия “Файлы”

1 этап Подготовительный

1.Файл – это поименованная область памяти на диске.

2.Visual Basic поддерживает 2 типа файлов: ASCII-файлы и двоичные файлы, и 2 способа доступа к файлам: последовательный и произвольный. Наиболее часто используются ASCII-файлы с последовательным доступом к файлу.

3.Открытие файла:

Open “files.txt” For Input As #1

Input – для чтения данных

Output – для записи данных

Append – для добавления данных в конец файла

Номер файла от 1 до 255 (можно использовать функцию FreeFile).

4.Чтение данных из файла:

Input #1, Per1, Per2 - чтение данных, разделенных запятыми или пробелами

Line Input #1, Text – чтение строки

5.Запись данных в файл:

Write #1, Per1, Per2 - запись данных, разделенных запятыми

Print #1, Per1, Per2 – запись данных в строки с позиционированием

6.Закрытие файла:

Close #1

 

 

2 этап Работа с готовыми программами

Пример программы: