| Вопрос: Помогите пожалуйста решить школьную програмку | Добавлено: 08.01.06 19:18 |
Автор вопроса:  Krista | ICQ: 259-943-182 |
|
Условия: Переместить из строки первый и последний символы на вторую и третью позиции.
Народ, помогите пожалуйста, если не трудно! |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Wolfrt ICQ: 225421504 Вопросов: 8 Ответов: 60 |
Профиль | | #1 | Добавлено: 08.01.06 20:14 |
|
а что с символами на второй и третей позиции происходит?
думаю так: Private Sub Command1_Click() tn = "" t = Text1 d = Len(t) tn = Mid(t, 2, 1) tn = tn + Mid(t, 1, 1) tn = tn + Mid(t, d, 1) For i = 4 To d - 1 tn = tn + Mid(t, i, 1) Next i tn = tn + Mid(t, 3, 1) Label1.Caption = tn End Sub коментарии нужны? например на входе:123456789 на выходе:219456783 так? |
||
|
Номер ответа: 2 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #2 | Добавлено: 08.01.06 20:45 |
|
Sub mac1()
Dim exam As String exam = "a123456789b" SwapTwoByte exam, 1, 2 SwapTwoByte exam, Len(exam), 3 MsgBox exam End Sub Private Sub SwapTwoByte(ByRef str As String, pos1 As Long, pos2 As Long) Dim len_of_str As Long Dim buf As String len_of_str = Len(str) If pos1 > 0 And pos1 <= len_of_str And pos2 > 0 And pos2 <= len_of_str Then buf = Mid$(str, pos1, 1) Mid$(str, pos1, 1) = Mid$(str, pos2, 1) Mid$(str, pos2, 1) = buf End If End Sub |
||
Страница: 1 |