![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Листинг примера 11
Private Sub CommandButton1_Click() Dim B(1 To 2, 1 To 2) As Integer Dim c(1 To 2, 1 To 2) As Integer Dim A(1 To 2, 1 To 2) As Integer B(1, 1) = 5 B(1, 2) = 4 B(2, 1) = 8 B(2, 2) = 10 c(1, 1) = 0 c(1, 2) = 1 c(2, 1) = 5 c(2, 2) = 10 For i = 1 To 2 For j = 1 To 2 A(i, j) = B(i, j) + c(i, j) Next j Next i Label1.CaptioN= «a(1, 1)=» & A(1, 1) & «a(1, 2)=» & A(1, 2)& «a(2, 1)=» & A(2, 1) & «a(2, 2)=» & A(2, 2) Label2.CaptioN= «b(1, 1)=» & B(1, 1) & «b(1, 2)=» & B(1, 2) & «b(2, 1)=» & B(2, 1) & «b(2, 2)=» & B(2, 2) Label3.CaptioN= «c(1, 1)=» & c(1, 1) & «c(1, 2)=» & c(1, 2) & «c(2, 1)=» & c(2, 1) & «c(2, 2)=» & c(2, 2) End Sub Рис. 24. Форма примера 11 в режиме конструктора и в рабочем состоянии
Пример 12. Создать программу, создающую два двумерных массива: один массив вводом числовых элементов в соответствующие текстовые поля формы, второй – вводом четырех произвольных фамилий в соответствующие текстовые поля формы (рис. 25, 26). В результате все элементы первого массива увеличиваются на 10 и выводятся в соответствующую метку на форме. Элементы же второго строкового массива организуют вывод предложений типа: работник фамилия Иванов, где Иванов (например) берется из строкового массива, введенного в соответствующие текстовые поля. Данные результаты получаются после нажатия на кнопку Вывод пользовательского диалогового окна.
Рис. 25. Форма примера 12 в режиме конструктора
Рис. 26. Форма примера 12 в рабочем режиме
|