Задание программир. на Visual Basic

@adoyevtseva · Регистрация: 09.06.2010

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

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

@gaw · 09.06.2010, 13:15

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
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Const n = 5
Const m = 7
Dim a(1 To n, 1 To m), max
 
 
 
Me.Cls
 
Randomize
 
For i = 1 To n
max = a(i, 1)
For j = 2 To m
  a(i, j) = Int(Rnd * 70)
  Me.Print a(i, j);
 If max < a(i, j) Then max = a(i, j)
Next j
 
 Me.Print Tab(m * 4); " max = "; max
Me.Print
Next i
End Sub

@adoyevtseva · 09.06.2010, 16:43 **[ТС]**

Спасибо,за помощь!
Но у меня идет сбой на 9,17,21,22 строке,т.к. Вы написали в- Код QBasic/QuickBASIC,а мне надо приложение к офису(для excel)...

@Vlanib · 09.06.2010, 17:11

Так вам нужно было и постить в ветке по VBA.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Макрос1()
    Dim i As Integer, j As Integer
    With Selection
        For i = 1 To .Rows.Count
            max = .Cells(i, 1)
            For j = 2 To .Columns.Count
                If max < .Cells(i, j) Then max = .Cells(i, j)
            Next j
            Cells(i, .Columns.Count + 2) = max
        Next i
    End With
End Sub

Матрица в выделенном диапазоне.

@adoyevtseva · 10.06.2010, 16:00 **[ТС]**

Спасибо!получилось!

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@adoyevtseva 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 4

	Задание программир. на Visual Basic 09.06.2010, 12:08. Показов 827. Ответов 4 Метки нет (Все метки) Помогите,пожалуйста,нужно найти и напечатать максимальные по значению елементы в каждом ряде заданной матрицы.Заранее благодарна. 0

@adoyevtseva 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 4
	09.06.2010, 16:43 [ТС]
	Спасибо,за помощь! Но у меня идет сбой на 9,17,21,22 строке,т.к. Вы написали в- Код QBasic/QuickBASIC,а мне надо приложение к офису(для excel)... 0

@adoyevtseva 0 / 0 / 0 Регистрация: 09.06.2010 Сообщений: 4
	10.06.2010, 16:00 [ТС]
	Спасибо!получилось! 0