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

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

Наш партнер Genesis Hackspace
  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

    я не понимаю, в чем тут проблема, но он последние цифры не записывает нормально.. помогите. :)
     
Загрузка...

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