![]() Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву ![]() Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Dim X As Integer, Y As Integer, B As IntegerСодержание книги
Поиск на нашем сайте
For X=1 To 5 MsgBox "введение слова по буквам ", 64 For Y=1 To 5 A(X, Y)=InputBox("введите букву") Print A(X, Y); Next Y Next X Text1.Text=A(1, 1)+A(2, 2)+A(3, 3)+A(4, 4)+A(5, 5) Text2.Text=A(1, 5)+A(2, 4)+A(3, 3)+A(4, 2)+A(5, 1) Text3.Text=A(1, 1)+A(2, 1)+A(3, 1)+A(4, 1)+A(5, 1) B=InputBox("введите номер столбца") Text4.Text=A(1, B)+A(2, B)+A(3, B)+A(4, B)+A(5, B) Text5.Text=A(1, 5)+A(2, 5)+A(3, 5)+A(4, 5)+A(5, 5) 3. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 6.5 1. Создать новый проект, заполняющий матрицу размером 4х4 случайными целыми числами в диапазоне от 0 до +20. Написать код для управляющей кнопки, определяющий из элементов, расположенных по главной диагонали максимальное или минимальное значение. Макет формы показан на рис. 64. 2. Установить на форме 16 текстовых полей с одинаковым свойством Name – Text1, но различными значениями свойства Index: от 0 до 15. Текстовые поля должны представлять собой контрольный массив. Нумерация полей – по строкам. 3. Программный код для кнопки начать: Dim a(3, 3), i, min, max, j As Integer Randomize For i=0 To 3 For j=0 To 3 a(i, j)=Int(21*Rnd) Text1(i*4+j)=a(i, j) Next: Next If Option1.Value Then min=a(0, 0) For i=1 To 3 If a(i, i)<min Then min=a(i, i) Next MsgBox "min=" & min End If If Option2.Value Then max=a(0, 0) For i=1 To 3 If a(i, i)>max Then max=a(i, i) Next MsgBox "max=" & max End If 4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 6.6
1. Создать новый проект – двумерный массив 7х7 и найти максимальный элемент каждого столбца. Макет формы показан на рис. 65.
2. Записать для объектов формы следующие программные коды: Раздел General Declarations: Dim M(7, 7) As Integer Private Function MAX(Y As Integer) As Integer Dim s As Integer s=M(0, Y) For i=0 To 6 If M(i, Y)>s Then s=M(i, Y) Next i MAX=s End Function 3. Программный код для кнопки очистить: For j=0 To 6 MSFlexGrid2.Col=j MSFlexGrid2.Text="" Next j 4. Процедура загрузки формы: With MSFlexGrid1 For i=0 To 6 For j=0 To 6 M(i, j)=Int(Sin(i)*3-Cos(j)*7) .Row=i:.Col=j:.Text=Str(M(i, j)) Next j Next i End With 5. Процедура для объекта MSFlexGrid1: Private Sub MSFlexGrid1_Click() Dim Y As Integer Y=MSFlexGrid1.Col MSFlexGrid2.Col=Y MSFlexGrid2.Text=MAX(Y) End Sub 4. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму.
Практическая работа № 6.7
2. Раздел General Declarations: Dim M(7, 7) As Integer Private Function MyProg() As Integer Dim P As Integer P=1 For i=0 To 6 For j=0 To 6 If i+j=6 And M(i, j)<>0 Then P=P*M(i, j) End If Next j Next i MyProg=P End Function 3. Процедура загрузки формы: With MSFlexGrid1 For i=0 To 6 For j=0 To 6 M(i, j)=Int(Sin(i)*3-Cos(j)*7) .Row=i:.Col=j:.Text=Str(M(i, j)) Next j Next i End With 4. Программный код для кнопки очистить: Label4.Caption="" 5. Программный код для кнопки вычислить: Label4.Caption=MyProg 6. Запустить программу и убедиться в правильности ее работы, при необходимости исправить ошибки, а затем сохранить на дискете проект и форму. Практическая работа № 6.8 1. Создать новый проект – двумерный массив 7х7 и среднее арифметическое положительных элементов каждой строки. Макет формы показан на рис. 67. Записать для объектов и формы следующие программные коды.
2. Раздел General Declarations: Dim M(7, 7) As Integer
|
|||||||||||
Последнее изменение этой страницы: 2016-12-10; просмотров: 486; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.143.214.78 (0.01 с.) |