Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
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 подробнее
Апострофф
Заблокирован
27.03.2012, 08:57 0

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

27.03.2012, 08:57. Просмотров 1505. Ответов 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


Вернуться к обсуждению:
Программа, которая заполняет массив по спирали
1
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.03.2012, 08:57
Готовые ответы и решения:

Создайте программу, которая по правому щелчку мыши заполняет массив
Создайте программу, которая по правому щелчку мыши заполняет массив А(10)...

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

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

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

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

6
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru