ПОНЯТНО О Visual Basic NET (том 3)
Здесь мы сначала вставляем последнее
133.
Я
134.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Шифруем слово из 6 букв
Dim s As String = "Корова"
Debug.WriteLine(Mid(s, 1, 2) + "быр" + Mid(s, 3, 2) + "быр" + Mid(s, 5, 2) + "быр") '1 вариант
Debug.WriteLine(s.Insert(6, "быр").Insert(4, "быр").Insert(2, "быр")) '2 вариант
' Здесь мы сначала вставляем последнее быр. Получившаяся строка имеет тип String,
'поэтому можно после нее ставить точку и снова писать Insert. И так далее.
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Шифруем произвольное слово
Dim s As String = "Консенсус"
Dim Результат As String = "" 'Результат пока пустой
Dim i As Integer
For i = 0 To s.Length \ 2 - 1 'Len(s) \ 2 - это число полных пар букв в слове
'Наращиваем Результат на очередную пару букв и "быр":
Результат = Результат + s.Substring(2 * i, 2) + "быр"
Next
'Наращиваем Результат на последнюю нечетную букву, если она есть:
If Len(s) Mod 2 = 1 Then Результат = Результат + Strings.Right(s, 1)
Debug.WriteLine(Результат)
End Sub
135.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim s, s1 As String 'Исходная и результирующая строки
Dim Старый_символ, Новый_символ As Char
s = "Взирая на солнце, прищурь глаза свои, и ты смело разглядишь в нем пятна."
s1 = "" 'Результирующую строку строим с нуля
Dim i As Integer
For i = 0 To Len(s) - 1 'Просматриваем исходную строку слева направо
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий