|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.12.2010, 22:35 | #1 |
Новичок
Джуниор
Регистрация: 05.12.2010
Сообщений: 1
|
Абстракция. Обработка символьных и строковых переменных.
Дана строка, состоящая из символов, коды которых имеют значения между 48 и 159(код 48 соответствует цифре "0" в стандарте ASCII а код 175 соответствует заглавной букве «Я»). Зашифровать строку так, чтобы каждый её символ находящийся на чётном месте заменялся на символ, код которого на единицу больше кода исходного символа, а код символа на нечётном месте заменялся на символ, код которого больше на 2. Буквы «Ю» и «Я» оставить без изменения.
пробовал: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim T As New Class1 Dim r As String Dim st As String Dim k As Integer = 0 Dim d As String = "" Dim a As Char r = T.Text Do While k < r.Length a = CChar(r.Substring(k, 1)) If Char.IsLower(a) Then d = d + a.ToString.ToUpper Else If Char.IsUpper(a) Then d = d + a.ToString.ToLower st = d End If End If If Char.IsWhiteSpace(a) Then d = d + a.ToString End If k += 1 Loop TextBox1.Text = st End Sub но всё бесполезно, может вы подскажете? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обработка строковых данных | ChelseaFan | Помощь студентам | 3 | 03.12.2010 18:59 |
Обработка строковых данных | >>arty<< | Помощь студентам | 4 | 15.01.2010 23:07 |
Обработка символьных данных | Normand | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 13.04.2009 17:32 |