Напечатать числа от 1 до 55 в виде: в первой строке 10 чисел, в каждой следующей на одно число меньше. Результат вывести

@Nikita_B · Регистрация: 11.12.2020

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

Напечатать числа от 1 до 55 в виде: в первой строке 10 чисел, в каждой следующей на одно число меньше. Результат вывести в ListB

очень нужно для зачета

~~passedbyz~~ · 11.12.2020, 11:18

Visual Basic

Sub s55()
Set v = Sheets("ListB").Cells
For r = 1 To 10
  For c = 1 To 11 - r
    i = i + 1
    v(r, c) = i
  Next c
Next r
End Sub

@Nikita_B · 11.12.2020, 12:05 **[ТС]**

Результат в ListBox нужно вывести

~~passedbyz~~ · 11.12.2020, 12:08

Выводи, я не против!

@Nikita_B 0 / 0 / 0 Регистрация: 11.12.2020 Сообщений: 2
		1
	Напечатать числа от 1 до 55 в виде: в первой строке 10 чисел, в каждой следующей на одно число меньше. Результат вывести 11.12.2020, 11:04. Показов 561. Ответов 3 Метки нет (Все метки) Напечатать числа от 1 до 55 в виде: в первой строке 10 чисел, в каждой следующей на одно число меньше. Результат вывести в ListB очень нужно для зачета 0

@Nikita_B 0 / 0 / 0 Регистрация: 11.12.2020 Сообщений: 2
	11.12.2020, 12:05 [ТС]	3
	Результат в ListBox нужно вывести 0

~~passedbyz~~ Заблокирован
	11.12.2020, 12:08	4
	Выводи, я не против! 0