Помогите! Проверьте Срочно Задачу. Что В Ней Не Так(

Тема в разделе "Visual Basic", создана пользователем senjava, 26 мар 2012.

  1. senjava

    senjava Гость

    Public Sub Spirale()
    Dim n As Integer, m As Integer
    n = Application.InputBox("X")
    m = Application.InputBox("Y")
    l = 1
    i1 = 1
    j1 = 1
    Do While (i1 <= n) And (j1 <= m)
    For j = j1 To m
    Cells(i1, j) = l
    l = l + 1
    Next j
    If i1 < n Then
    For i = i1 + 1 To n
    Cells(i, m) = l
    l = l + 1
    Next i
    End If
    If j1 < m Then
    For j = m - 1 To j1 Step -1
    Cells(n, j) = l
    l = l + 1
    Next j
    End If
    If n - i1 > 1 Then
    For i = n - 1 To i1 + 1 Step -1
    Cells(i, j1) = l
    l = l + 1
    Next i
    End If
    i1 = i1 + 1
    j1 = j1 + 1
    n = n - 1
    m = m - 1
    Loop
    End Sub

    я не понимаю, в чем тут проблема, но он последние цифры не записывает нормально.. помогите. :)
     
Загрузка...
Похожие Темы - Помогите Проверьте Срочно
  1. limbra
    Ответов:
    3
    Просмотров:
    45
  2. NylevoiChelovek
    Ответов:
    4
    Просмотров:
    102
  3. Ruska132
    Ответов:
    37
    Просмотров:
    313
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    147
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    64

Поделиться этой страницей