Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Апострофф
Заблокирован
27.03.2012, 08:57

Программа, которая заполняет массив по спирали - VB

27.03.2012, 08:57. Просмотров 1475. Ответов 6
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Надо ж было так тупануть

Цитата Сообщение от senjava Посмотреть сообщение
но он последние цифры не записывает нормально.. помогите.
А проблема для не квадратного массива осталась.
Попробуйте
Visual Basic
1
2
n = 3 'Application.InputBox("X")
m = 5 'Application.InputBox("Y")
Рабочий, кажется, вариант -
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Sub Spirale_m()
Dim I%, R%, C% 'счётчик и текущие координаты в массиве
Dim cR%, cC% 'к-во строк и столбцов массива
Dim dR%, dC% 'приращения по строкам и столбцам с учётом к-ва поворотов
Dim P% 'счётчик поворотов
 
cR = InputBox("Строк?") 'задаём размеры
cC = InputBox("Столбцов?") 'массива
R = 1: C = 1 'начальные координаты
dC = 1: dR = 0 'начальные приращения
Cells.ClearContents 'очистка поля
 
For I = 1 To cR * cC 'цикл по всем ячейкам массива
  Cells(R, C) = I
  If R + dR > cR Or R + dR < 1 Or C + dC > cC Or C + dC < 1 Then
    P = P + 1 'следующим ходом выпадаем из массива->поворачиваем
  ElseIf Cells(R + dR, C + dC) > 0 Then
    P = P + 1 'следующим ходом попадаем в занятую ячейку->поворачиваем
  End If
  dC = (2 - (P + 1) Mod 4) Mod 2 'пересчитываем приращения
  dR = (2 - P Mod 4) Mod 2 'с учётом к-ва поворотов
  C = C + dC 'новые
  R = R + dR 'координаты
Next I
End Sub

http://www.cyberforum.ru/visual-basic/thread550671.html
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2012, 08:57
Готовые ответы и решения для VB Программа, которая заполняет массив по спирали:

какая команда заполняет массив 30 случайными цифрами
какая команда заполняет массив 30 случайных цифров

создать массив в виде спирали
создать массив виде спирали? в VB 6.0

Заполнить массив последовательными натуральными числами, идущими по спирали
привет всем не могу написать программу, помогите пожалуйста можно просто...

Разработайте программу, которая заполняет двумерный массив натуральными числами по спирали
Помогите с заданием по лабораторной работе пожалуйста. Разработайте...

Программа, которая заполняет массив a[1.10] случайными целыми числами
Cоставьте программу, которая заполняет массив a случайными целыми числами в...

6
Программа, которая заполняет массив по спирали VB    
Другие темы раздела
VB Осуществить дозапись в TextBox с новой строки http://www.cyberforum.ru/visual-basic/thread528294.html
Суть в том, что нужно отправить текст с кнопки Form1.Text1.Text = "@echo off " & vbNewLine в TextBox и перейти на новую строку, чтобы повторить операцию с другой кнопкой. Но текст отправляемый...
VB Создать программу для вычисления площади и периметра треугольника по заданным длинам сторон Сабж... http://www.cyberforum.ru/visual-basic/thread528150.html
VB Привязать ScrollBar к двум TextBox
Доброй ночи! Есть проблема, надо привязать scrollbar(vscrollbar) ко двум TextBox'aм.
Разные графические эффекты одного приложения на разных компьютерах VB
Ребят, такой вопрос: почему, скомпилировав на одном компе экзешник, просмотрев его, убедившись, что нет косяков, перекидываешь на другой комп и "о чудо" - цвет на лейблах другой, шрифт другой и...
VB Как установить интервал таймера в 30 секунд http://www.cyberforum.ru/visual-basic/thread527702.html
Ребят помогите, очень нужно!!!!!!! Как сделать так, чтобы после запуска программы срабатывал таймер, затем он срабатывал через интервал в 30 секунд и выводил сообщение "Промежуток"
VB Столбец, в котором есть седловая точка матрицы переместить в конец матрицы Столбец, в котором есть седловая точка матрицы переместить в конец матрицы SOS подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru