АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. Private Sub Клиенты_Click()
  2. Private Sub Кнопка0_Click()
  3. Private Sub Кнопка0_Click()
  4. Private Sub Кнопка4_Click()
  5. Private Sub Кнопка4_Click()
  6. Private Sub Кнопка8_Click()
  7. Private Sub Кнопка8_Click()
  8. Наследование. Понятие наследования. Спецификаторы доступа к данным: private, public, protected.

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 текстовыми полями для вывода матриц А, А , А *А и кнопкой, по нажатию которой запишем следующий программный код:

 


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 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)