Private Sub Кнопка2_Click()

Dim s As String, n, k As Integer, i, j As Integer, b, c As String

Dim a() As Integer, y As Integer

s = Поле0.Value

s = Trim(s) & " "

i = 1: j = 1

Do While i <= Len(s) - 1 'Пока не достигнут конец строки

k = InStr(i, s, " ") 'Ищем позицию пробела,начиная с i

b = Mid(s, i, k - i) 'Выделяем слово

ReDim Preserve a(1 To j) 'Объявляем динамический массив с

a(j) = Val(b) 'сохранением предыдущих значений

j = j + 1

s = Mid(s, k + 1) 'Выделяем из строки оставшуюся часть

'после первого пробела

s = LTrim(s) ' Удаляем пробелы слева

Loop

y = максимум(a) 'Вызов функции максимум

Поле3.Value = Str(y) ' Вывод максимального значения

' в текстовое поле

End Sub

Private Function максимум(b() As Integer) As Integer

max = b(1)

For i = 1 To UBound(b)

If b(i) > max Then

max = b(i)

End If

Next i

максимум = max

End Function

Результат работы программы будет выглядеть:

В программе использовано свойство Value элемента управления. Оно означает, что текст содержится в поле или в текстовой части поля со списком. В данном случае текст содержится в поле.

Пример

Дан двумерный массив А(3,3), заполненный случайными числами.

Получить А *А, где А - транспонированная матрица.

Алгоритм

В конструкторе форм создадим форму с 3 текстовыми полями для вывода матриц А, А , А *А и кнопкой, по нажатию которой запишем следующий программный код:

Поиск по сайту: