Цикл в Бейсике

[Romka12345]

помогите написать цикил
он поля теряет усталость что четы раза идем последовательно
например
1 + и и так четы раза а после четырех надо шоб цикил был уже на 9 девять больший но тоже последовательно и через четыре перестановки все время цикл должен увеличиваться на 9
как это меня правильно написать в Бейсике

[Пименов Александр]

А на 9 сколько раз должен увеличиваться?

[Ципихович Эндрю]

Сообщение от Romka12345

помогите написать цикил
он поля теряет усталость что четы раза идем последовательно
например
1 + и и так четы раза а после четырех надо шоб цикил был уже на 9 девять больший но тоже последовательно и через четыре перестановки все время цикл должен увеличиваться на 9
как это меня правильно написать в Бейсике

Юстас - Алексу???

[Romka12345]

атакво я просто могу показать код но не поймешь
я троблю четы последовательные перестановки а потом надо шоб перестановка последовательная начиналась с 9 и т.д. сделал четыре перестановки из 18

[Пименов Александр]

For i=1 to 90 Step 9
For j=1 to 4
............
Next j
Next i

Это шаблон

[Romka12345]

можподивитися в код

[Romka12345]

For i = 0 To 4

 билет 1
 Selection.Find.ClearFormatting
    
    With Selection.Find
        .Text = Val(5 + i)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
      
         End With
   
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Cut
    
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "1."
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
      
        
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdPasteDefault)
    
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = Val(9 + i)
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
         
  
        
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "1."
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
      
        
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
   Selection.PasteAndFormat (wdPasteDefault)
   
   Selection.Find.ClearFormatting
    With Selection.Find
        .Text = i + 1
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
         
  
        
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "1."
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
      
        
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
   Selection.PasteAndFormat (wdPasteDefault)

это я как бы делаю билеты
он делается до 12 четырьмя перестановками том
поэтому там где мы вставляем в 1 там должно быть уже 13 там где 5 17 и где 9 там 21 и так четы перестановки
и там где 13 уже буде25 где 17 будет 29 и где 21 будет 33 и т.д.

[Пименов Александр]

Вместо многоточия поставьте i = i + j, тогда при первом прохождении i увеличится 4 раза на 1, потом к этой i прибавиться 9, и заново i увеличится на 1 4 раза

[Пименов Александр]

Что то сложный у Вас код, пришлите файл оригинал, тогда разберемся.....

[Romka12345]

ЦК и есть весь код сутьб моей программы что у меня есть список вопросов и из них должен сделать билеты
в данном случае я делаю в билете по 3 вопроса я ищу вопросы 5 и вставляю у 1 и т.д. пятый билетник уже миститеме в себе 13 17 и 21 ппитаня Посему этот цикил твой подойдет?