Работа с массивом

@weteroc · Регистрация: 27.03.2013

Author24 — интернет-сервис помощи студентам

День добрый , подскажите пожалуйста , правильно ли я составил массив и присвоил ему значение, для проверки массив вывожу на Debug.Print , он выводится , но не уверен что я сделал это правильно, код прилагаю:

Visual Basic

'******************************************************************
'------------------Объявление переменных---------------------------
Dim A As Byte, B As Byte, C As Byte  ' Переменные для инкремента
Dim Massiv(0 To 2) As Integer ' Переменная для массива
Dim I As Integer, J As Integer, L As Integer ' Переменные для цикла
 
'******************************************************************
'------------------Объявление кнопки №1----------------------------
Private Sub Command1_Click()
Do 'Делать
      A = A + 1 ' Инкремент переменной "A"
Loop While N >= 255 'До тех пор пока выполнится условие
Text1.Text = A ' Выводим на табло значение переменной
For I = 0 To 2: Massiv(I) = I: Next
Massiv(0) = A 'Присваиваем массиву(0) значение "A"
Debug.Print Massiv(0) ' Выводим значение массива(0)

@proft · 12.09.2013, 13:41

Visual Basic

1	Dim N As Integer

@weteroc · 12.09.2013, 14:27 **[ТС]**

Не понял Вас Proft , поменять размер переменной ("A" с Byte на Integer)

@Catstail · 12.09.2013, 14:34

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

правильно ли я составил массив и присвоил ему значение,

- Вопрос "правильно/неправильно" имеет смысл только применительно к конкретному результату. Что должно быть в массиве?

@weteroc · 12.09.2013, 14:37 **[ТС]**

Я делаю при нажатии кнопки инкремент переменно "A"и присваиваю значение в Massiv(0) = A 'Присваиваем массиву(0) значение "A"

@proft · 12.09.2013, 14:49

Да нет weteroc) У Вас просто не объявлена переменная N. Видимо просто пропустили)
А так вроде всё работает)

@weteroc · 12.09.2013, 14:54 **[ТС]**

Простите не понял Вас Proft, у меня нет этой переменной "N"

morgann55 · 12.09.2013, 15:28

Visual Basic

1	Loop While N >= 255 'До тех пор пока выполнится условие

(а это что)

@proft · 12.09.2013, 15:54

Строка 12 =)

@weteroc · 12.09.2013, 15:58 **[ТС]**

morgann55, этот цикл для проверки условия , его можна записать и через
A = A + 1 ' Инкремент переменной "A"
If A >=255 Then A = 255:Endif

Добавлено через 3 минуты
Да , извиняюсь Proft чета я не обратил внимание на то что у меня в условии стоит не объявленная переменная, там на до изменить ее на
Loop While A >= 255 'До тех пор пока выполнится условие

@weteroc 4 / 4 / 0 Регистрация: 27.03.2013 Сообщений: 28
	12.09.2013, 15:58 [ТС]	10
	morgann55, этот цикл для проверки условия , его можна записать и через A = A + 1 ' Инкремент переменной "A" If A >=255 Then A = 255:Endif Добавлено через 3 минуты Да , извиняюсь Proft чета я не обратил внимание на то что у меня в условии стоит не объявленная переменная, там на до изменить ее на Loop While A >= 255 'До тех пор пока выполнится условие 0

@weteroc 4 / 4 / 0 Регистрация: 27.03.2013 Сообщений: 28
	12.09.2013, 14:27 [ТС]	3
	Не понял Вас Proft , поменять размер переменной ("A" с Byte на Integer) 0

@Catstail Модератор 36616 / 20340 / 4224 Регистрация: 12.02.2012 Сообщений: 33,677 Записей в блоге: 13
	12.09.2013, 14:34	4
	Сообщение от weteroc правильно ли я составил массив и присвоил ему значение, - Вопрос "правильно/неправильно" имеет смысл только применительно к конкретному результату. Что должно быть в массиве? 0

@weteroc 4 / 4 / 0 Регистрация: 27.03.2013 Сообщений: 28
	12.09.2013, 14:37 [ТС]	5
	Я делаю при нажатии кнопки инкремент переменно "A"и присваиваю значение в Massiv(0) = A 'Присваиваем массиву(0) значение "A" 0

@proft 320 / 288 / 104 Регистрация: 12.04.2011 Сообщений: 924
	12.09.2013, 14:49	6
	Да нет weteroc) У Вас просто не объявлена переменная N. Видимо просто пропустили) А так вроде всё работает) Миниатюры 0

@weteroc 4 / 4 / 0 Регистрация: 27.03.2013 Сообщений: 28
	12.09.2013, 14:54 [ТС]	7
	Простите не понял Вас Proft, у меня нет этой переменной "N" 0

@proft 320 / 288 / 104 Регистрация: 12.04.2011 Сообщений: 924
	12.09.2013, 15:54	9
	Строка 12 =) 0