Определить максимальное значение массива размерностью 5х5

@ICEMAN5589977 · Регистрация: 24.07.2012

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

Подскажите пожалуйста!очень надо!в visual basic нужно определить максимальное значение массива размерностью 5х5,....у меня 25 текстбоксов куда пишутся значения,1 кнопка и 1 дайбл, после нажатия кнопки на лайбле должно показываться макс значение,я сумел сделать только сравнивая каждый текстобки получилась прог код на 26 сточек....а нужно сделать через циклы ,а как не могу понять помогите пожалуйста это оч оч нужно!!!!!заранее огромное Вам спасибо!!!

Комментарий модератора

массивы - очень плохое название для темы!
Читаем правила, пункты 4.3, 5.3 в частности!

@PAnT0P · 24.07.2012, 14:46

Visual Basic
1
2
3
4
5
6
7
8
9
N = A(0, 0)
For Y = 0 to 4
    For X = 0 to 4
        If N < A(Y, X) then
            N = A(Y, X)
        End If
    Next X
Next Y
Text1.Text = N

SoftIce · 24.07.2012, 14:59

у меня 25 текстбоксов куда пишутся

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Dim i As Integer
 
    For i = 0 To 24
         Text1(i).Text = Round(Rnd * 10, 2) 'Заполняем текстБоксы случайными значениями
    Next i
 
    Label1.Caption = CDbl(Text1(0).Text)
 
    For i = 0 To 24
         If CDbl(Label1.Caption) < CDbl(Text1(i).Text) Then Label1.Caption = CDbl(Text1(i).Text)
    Next i
 
End Sub

@ICEMAN5589977 · 24.07.2012, 15:12 **[ТС]**

что то не получается!у меня на форме 25 текстбоксов то есть матрица 5 на 5,ниже кнопка(определить)и еще ниже один лайбл...мне нужно чтобы после запуска программы человек мог сам произвольно в текстбоксы записывать числа и после нажатия кнопки в лайбле показывался максимум ....еще раз заранее спасибо!!!!!

SoftIce · 24.07.2012, 15:15

В моём коде убери 4,5 и 6 строки.
Посмотри файл, который я приложил.

@ICEMAN5589977 · 24.07.2012, 15:43 **[ТС]**

SoftIce ////// в visual studio 10 пишет ошибка.....а именно Ошибка 1-"Caption" не является членом "System.Windows.Forms.Label". Ошибка 2-"Text1" не объявлен. Может быть недоступен из-за своего уровня защиты.

@gaw · 24.07.2012, 15:46

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

SoftIce ////// в visual studio 10

что то рановато сообщил

@ICEMAN5589977 · 24.07.2012, 19:08 **[ТС]**

согласен ступил((

Добавлено через 3 часа 18 минут
ау народ помогите!!!!!!!!!!

@gaw · 24.07.2012, 21:01

ICEMAN5589977 Вам (я считаю) дали 99% ответа /PAnT0P,SoftIce/
осталось "адаптировать" код под VS
отсюда, покажите Ваши попытки /без обид/

@ICEMAN5589977 · 25.07.2012, 13:33 **[ТС]**

это нужно для моей сестры и я хочу ей помочь просто я не понимаю как сделать циклом, а только как каждый текстбокс сравнивать...поэтому и прошу помощь у всех вас надеюсь кто-нибудь поможет!!!

Добавлено через 12 часов 48 минут
в общем как я понял никто не поможет!((....но все равно спасибо за то что есть)))

@Valery__ · 25.07.2012, 13:48

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

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

В 3 посте показан цикл сравнения.

@ICEMAN5589977 · 25.07.2012, 17:14 **[ТС]**

Ребят я знаю только как так сделать!это работает но просто если матрица будет к примеру 20 на 20 то способ не очень а как через цикл не знаю....прошу помогите )))))

VB.NET
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim max As Integer
        max = Val(TextBox1.Text)
 
 
        If Val(TextBox1.Text) > max Then
            max = Val(TextBox1.Text)
        End If
 
        If Val(TextBox2.Text) > max Then
            max = Val(TextBox2.Text)
        End If
 
        If Val(TextBox3.Text) > max Then
            max = Val(TextBox3.Text)
        End If
        If Val(TextBox4.Text) > max Then
            max = Val(TextBox4.Text)
        End If
        If Val(TextBox5.Text) > max Then
            max = Val(TextBox5.Text)
        End If
        If Val(TextBox6.Text) > max Then
            max = Val(TextBox6.Text)
        End If
 
        If Val(TextBox7.Text) > max Then
            max = Val(TextBox7.Text)
        End If
 
        If Val(TextBox8.Text) > max Then
            max = Val(TextBox8.Text)
        End If
 
        If Val(TextBox9.Text) > max Then
            max = Val(TextBox9.Text)
        End If
 
        If Val(TextBox10.Text) > max Then
            max = Val(TextBox10.Text)
        End If
 
        If Val(TextBox11.Text) > max Then
            max = Val(TextBox11.Text)
        End If
        If Val(TextBox12.Text) > max Then
            max = Val(TextBox12.Text)
        End If
        If Val(TextBox13.Text) > max Then
            max = Val(TextBox13.Text)
        End If
        If Val(TextBox14.Text) > max Then
            max = Val(TextBox14.Text)
        End If
        If Val(TextBox15.Text) > max Then
            max = Val(TextBox15.Text)
        End If
        If Val(TextBox16.Text) > max Then
            max = Val(TextBox16.Text)
        End If
        If Val(TextBox17.Text) > max Then
            max = Val(TextBox17.Text)
        End If
        If Val(TextBox18.Text) > max Then
            max = Val(TextBox18.Text)
        End If
        If Val(TextBox19.Text) > max Then
            max = Val(TextBox19.Text)
        End If
        If Val(TextBox20.Text) > max Then
            max = Val(TextBox20.Text)
        End If
 
        If Val(TextBox21.Text) > max Then
            max = Val(TextBox21.Text)
        End If
        If Val(TextBox22.Text) > max Then
            max = Val(TextBox22.Text)
        End If
        If Val(TextBox23.Text) > max Then
            max = Val(TextBox23.Text)
        End If
        If Val(TextBox24.Text) > max Then
            max = Val(TextBox24.Text)
        End If
        If Val(TextBox25.Text) > max Then
            max = Val(TextBox25.Text)
        End If
        TextBox26.Text = max
    End Sub

@Valery__ · 26.07.2012, 00:17

Вот

VB.NET
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
28
29
30
31
32
33
34
35
36
37
38
39
40
'на форме Button1 и TextBoxMax
 
Public Class Form1
    Public txtArry(24) As TextBox 'массив TextBox'ов
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim x0, y0, k As Integer 'начальные координаты
        Dim n As Integer
        x0 = 10
        y0 = 50
        k = 0
        'расставляем 25 TextBox'ов
        For n = 0 To 24
            txtArry(n) = New TextBox
            With txtArry(n)
                Me.Controls.Add(txtArry(n)) ' разместить очередной TextBox на форме
                .Width = 70 : .Height = 20 ' задать длину и высоту этого TextBox'а
                .Font = New Font("Arial", 10) 'шрифт
                .Left = x0 + 80 * (n - k) 'координаты
                .Top = y0
            End With
            If n = 4 Or n = 9 Or n = 14 Or n = 19 Or n = 24 Then
                y0 = y0 + txtArry(n).Height + 5
                k += 5
            End If
 
        Next
        Me.Width = (txtArry(n - 1).Width + 10) * 5 + 20
        Me.Height = y0 + 50
 
    End Sub
    'поиск максимального в цикле
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
        TextBoxMax.Text = txtArry(0).Text
        For n = 0 To 24
            If Convert.ToSingle(txtArry(n).Text) > Convert.ToSingle(TextBoxMax.Text) Then TextBoxMax.Text = txtArry(n).Text
        Next
    End Sub
End Class

@ICEMAN5589977 · 26.07.2012, 10:49 **[ТС]**

Valery!это код в visual studio 10 вы делали?а то у меня код не работает!((((((

@Valery__ · 26.07.2012, 12:57

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

Valery!это код в visual studio 10 вы делали?а то у меня код не работает!((((((

@ICEMAN5589977 · 26.07.2012, 14:11 **[ТС]**

народ помогите перевести на бейсик 10

C#
1
2
3
4
5
Int32 Max = Int32.MinValue;
            this.Controls.Cast<Control>().Where(a => a is TextBox).ToList().ForEach(delegate(Control AControl)
            {
                Max = Math.Max(Max, Convert.ToInt32((AControl as TextBox).Text));
            });

заранее спасибо)))))))

@Valery__ · 26.07.2012, 14:41

C
1
2
3
4
5
Int32 Max = Int32.MinValue;
 this.Controls.Cast<Control>().Where(a => a is TextBox).ToList().ForEach(delegate(Control AControl)
 {
 Max = Math.Max(Max, Convert.ToInt32((AControl as TextBox).Text));
 });

VB.NET
1
2
3
4
Dim Max As Int32 = Int32.MinValue
Me.Controls.Cast(Of Control)().Where(Function(a) TypeOf a Is TextBox).ToList().ForEach(Function(AControl As Control) Do
    Max = Math.Max(Max, Convert.ToInt32(TryCast(AControl, TextBox).Text))
End Function)

Переписать с С# на VB.NET

@ICEMAN5589977 · 27.07.2012, 12:54 **[ТС]**

а есть ли еще какой нить способ ???если есть у кого нить киньте код)))спасибо

SoftIce · 27.07.2012, 14:15

У тебя текстбоксы должны быть не TextBox1 , TextBox2 и т.д., а TextBox1(0) , TextBox1(1) ,TextBox1(2) .......TextBox1(24)
То есть должен быть массив Текстбоксов.
Потом приравниваешь переменную max к значению в первом текстбоксе

VB.NET
1
max = TextBox1(0).Text

А дальше в цикле сравниваешь с остальными значениями:

VB.NET
1
2
3
For i=0 to 24
    If Val(TextBox1(i).Text) > max Then max = Val(TextBox1(i).Text)
Next i

ВСЁ!!!

Правда не уверен, что это сработает в VB.Net

@ICEMAN5589977 · 27.07.2012, 14:44 **[ТС]**

не прокатывает текстбоксы так подписать,но все равно спасибо тебе)))))))

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в конфигурации КА2. Данные берутся из регистра сведений, по. . .

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	24.07.2012, 15:12 [ТС]
	что то не получается!у меня на форме 25 текстбоксов то есть матрица 5 на 5,ниже кнопка(определить)и еще ниже один лайбл...мне нужно чтобы после запуска программы человек мог сам произвольно в текстбоксы записывать числа и после нажатия кнопки в лайбле показывался максимум ....еще раз заранее спасибо!!!!! 0

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	24.07.2012, 15:43 [ТС]
	SoftIce ////// в visual studio 10 пишет ошибка.....а именно Ошибка 1-"Caption" не является членом "System.Windows.Forms.Label". Ошибка 2-"Text1" не объявлен. Может быть недоступен из-за своего уровня защиты. 0

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	24.07.2012, 19:08 [ТС]
	согласен ступил(( Добавлено через 3 часа 18 минут ау народ помогите!!!!!!!!!! 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	24.07.2012, 21:01
	ICEMAN5589977 Вам (я считаю) дали 99% ответа /PAnT0P,SoftIce/ осталось "адаптировать" код под VS отсюда, покажите Ваши попытки /без обид/ 0

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	25.07.2012, 13:33 [ТС]
	это нужно для моей сестры и я хочу ей помочь просто я не понимаю как сделать циклом, а только как каждый текстбокс сравнивать...поэтому и прошу помощь у всех вас надеюсь кто-нибудь поможет!!! Добавлено через 12 часов 48 минут в общем как я понял никто не поможет!((....но все равно спасибо за то что есть))) 0

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	26.07.2012, 10:49 [ТС]
	Valery!это код в visual studio 10 вы делали?а то у меня код не работает!(((((( 0

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	27.07.2012, 12:54 [ТС]
	а есть ли еще какой нить способ ???если есть у кого нить киньте код)))спасибо 0

@ICEMAN5589977 0 / 0 / 0 Регистрация: 24.07.2012 Сообщений: 14
	27.07.2012, 14:44 [ТС]
	не прокатывает текстбоксы так подписать,но все равно спасибо тебе))))))) 0