| Вопрос: ПОМОГИТЕ | Добавлено: 08.12.05 19:27 |
Автор вопроса:  Shi3A
|
|
Люди надо написать прогу на VBA которая будет разбивать число на тетрады (4 символа) и переставлять в каждой тетраде символ вправо, если не хвататет символов то недастающие заполнить пробелами.
P.S. СРОЧНО НАДО ПОМОГИТЕ ПЛИЗ |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Shi3A Вопросов: 1 Ответов: 1 |
Профиль | | #1 | Добавлено: 08.12.05 20:35 |
|
ЛАДНО ВСЕМ СПАСИБО ЗА ПОМОЩЬ Я УЖЕ СДЕЛАЛ
КОМУ ИНТЕРЕСНО ПОЛУЧАЙТЕ Private Sub CommandButton1_Click() n = Len(TextBox1.Text) If n Mod 4 = 1 Then TextBox1.Text = TextBox1.Text + " " Else If n Mod 4 = 2 Then TextBox1.Text = TextBox1.Text + " " If n Mod 4 = 3 Then TextBox1.Text = TextBox1.Text + " " n = Len(TextBox1.Text) Dim a(50) For i = 1 To n a(i) = Mid$(TextBox1.Text, i, 1) Next i k = n \ 4 j = 1 For i = 1 To k x$ = a(j) a(j) = a(j + 3) a(j + 3) = a(j + 2) a(j + 2) = a(j + 1) a(j + 1) = x$ j = j + 4 Next i For i = 1 To n TextBox2.Text = TextBox2.Text + a(i) Next i End Sub ВОТ |
||
Страница: 1 |