Определить количество элементов массива, отличных от последнего элемента

@AnnaRED · Регистрация: 13.12.2014

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

Visual Basic

Sub one()
 
Dim B(20) As Integer
Dim i, k As Integer
k = 0
 
For i = 0 To 19
B(i) = Rnd * 20
ThisWorkbook.Sheets(1).Cells(i + 1, 1) = B(i)
 
  If B(i) <> B(20) Then
  k = k + 1
  End If
  Next i
  ThisWorkbook.Sheets(1).Cells(1, 2) = k
End Sub

@Казанский · 16.05.2015, 15:35

Ошибки собсно нет. В цикле идет сравнение с В(20), а этот элемент =0 и ему не присваивается другое значение.

@AnnaRED · 16.05.2015, 18:22 **[ТС]**

Спасибо. Но я не понимаю, что надо поменять, "туго доходит".

@Казанский · 16.05.2015, 18:26

Имеет смысл запустить цикл в обратную сторону.

@AnnaRED · 16.05.2015, 18:27 **[ТС]**

Я не понимаю, как это сделать.

@Казанский 15137 / 6411 / 1730 Регистрация: 24.09.2011 Сообщений: 9,999
	16.05.2015, 15:35	2
	Ошибки собсно нет. В цикле идет сравнение с В(20), а этот элемент =0 и ему не присваивается другое значение. 1

@AnnaRED 0 / 0 / 0 Регистрация: 13.12.2014 Сообщений: 14
	16.05.2015, 18:22 [ТС]	3
	Спасибо. Но я не понимаю, что надо поменять, "туго доходит". 0

@Казанский 15137 / 6411 / 1730 Регистрация: 24.09.2011 Сообщений: 9,999
	16.05.2015, 18:26	4
	Имеет смысл запустить цикл в обратную сторону. 1

@AnnaRED 0 / 0 / 0 Регистрация: 13.12.2014 Сообщений: 14
	16.05.2015, 18:27 [ТС]	5
	Я не понимаю, как это сделать. 0

Опции темы