Наращиваем результирующую строку на очередной

            Старый_символ = s.Chars(i)          'Выделяем очередной символ в исходной строке
            Новый_символ = ChrW(AscW(Старый_символ) + 1)
            s1 = s1 &  Новый_символ            ' Наращиваем результирующую строку на очередной символ
        Next
        Debug. WriteLine (s1)                       'Печатаем результат
End Sub
136.
'Для хранения информации об одном жителе организуем структуру:
Structure типЖитель
        Dim ФИО As String
        Dim Дата_рождения As DateTime
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Житель(5000) As типЖитель       'Массив структур в памяти для считанных из файла данных
        'СЧИТЫВАЕМ ИНФОРМАЦИЮ ИЗ ФАЙЛА:
        Dim Чтение As New System.IO.StreamReader("E:\VB\Список_жителей.txt")
        Dim i As Integer = 1                                                   'Счетчик жителей
        'Считываем все строки  файла в массив структур, пропустив двух уехавших:
        Do While Чтение.Peek() <> -1
            Житель(i).ФИО = Чтение.ReadLine
            Житель(i).Дата_рождения = Чтение.ReadLine
            If Житель(i).ФИО = "Янзаев Федор Карпович"  _
Or Житель(i).ФИО = "Кропоткин Владлен Фотиевич" Then i = i - 1
            i = i + 1
        Loop
        Чтение.Close()                                                          'Закрываем файл
        'ОБРАБАТЫВАЕМ ИНФОРМАЦИЮ В ОПЕРАТИВНОЙ ПАМЯТИ:
        Dim Число_жителей_в_городе As Integer = i - 1
        For i = 1 To Число_жителей_в_городе
            If Житель(i).ФИО = "Страшный Гектор Васильевич"  _
Then Житель(i).ФИО = "Благодатный Гектор Васильевич"
            If Недавний_именинник(Житель(i)) Then Debug.WriteLine(Житель(i).ФИО)
        Next
        'ЗАПОЛНЯЕМ ФАЙЛ ОБРАБОТАННОЙ ИНФОРМАЦИЕЙ:
        Dim Запись As New System.IO.StreamWriter("E:\VB\Список_жителей.txt")

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---