|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.02.2011, 15:53 | #1 |
Новичок
Джуниор
Регистрация: 28.01.2011
Сообщений: 2
|
Работа со строками. Написал программній код, но где-то допустил ошибку.
я написал программній код, но прога не пашет. пожалуйста, помогите найти ошибку.
прога должна шифровать каждую букву в слове по одинаковому принципу. есть переменная 1<К<9, которая задается. пример: при К = 2, буква А станет В, Б - Г и так далее. Private Sub Command1_Click() Dim K As Integer Dim i As Integer Dim A As String Dim S As String 'osnovnay stroka Dim Ress As String S = InputBox("Vvedite slovo") For i = 1 To Len(S) S1 = Mid(S, i, 1) Ress = Ress & Code(K, S1) Next i S = Ress Print Ress End Sub Function Code(K As Integer, A As String) As String Code = Chr(K + Asc(A)) End Function Последний раз редактировалось NikitaNikita; 07.02.2011 в 16:32. |
07.02.2011, 16:01 | #2 |
Заблокирован
Регистрация: 27.05.2010
Сообщений: 1,099
|
> прога не пашет
Ну да. А задание при этом звучит так "написать прогу, неважно что делающую, но чтобы пахала". Угадал ?) |
07.02.2011, 16:32 | #3 |
Новичок
Джуниор
Регистрация: 28.01.2011
Сообщений: 2
|
точно, забыл написать зачем она нужна.
прога должна шифровать каждую букву в слове по одинаковому принципу. есть переменная 1<К<9, которая задается. пример: при К = 2, буква А станет В, Б - Г и так далее. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
написал программу, где то ошибка, не пойму где... | Kelevra91 | Общие вопросы C/C++ | 5 | 17.01.2011 16:38 |
написал инсталятор на masm в среде RadASM ошибку 2 недели понять не могу | Tan256 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 21.12.2010 21:54 |
Циклы! код написал....поправьте... | pashqa | Помощь студентам | 11 | 20.12.2010 15:58 |
Код написал код, но ответ постоянно один и тот же | SkuLLL | Помощь студентам | 4 | 14.12.2010 19:25 |
Написал прогу в паскаль в ответ после запуска выдает ошибку.Что не так? | sawel23 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 27.05.2010 15:37 |