Visual Basic for Application
Формирование матрицы и выполнение заданий: вычисление сумы четных элементов; максимума из нечетных элементов в строке; произведение элементов в нечетных столбцах; количество четных элементов выше главной диагонали. Создание программы в Visual Basic.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | контрольная работа |
| Язык | русский |
| Дата добавления | 07.10.2012 |
| Размер файла | 12,0 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Сибирская Региональная школа бизнеса
Контрольная работа
Visual Basic for Application
2005
1. Сформировать матрицу вида
|
1 |
3 |
3 |
3 |
1 |
|
|
2 |
1 |
3 |
1 |
2 |
|
|
2 |
2 |
1 |
2 |
2 |
|
|
2 |
1 |
3 |
1 |
2 |
|
|
1 |
3 |
3 |
3 |
1 |
Вычислить в этой матрице сумму четных элементов.
Вычислить максимум из нечетных элементов в каждой строке матрицы.
Вычислить произведение элементов в нечетных столбцах.
Вычислить количество четных элементов выше главной диагонали.
Решение
матрица программа visual basic
Option Explicit
Sub pr22()
Dim a(10, 10) As Integer
Dim n As Integer, i As Integer, j As Integer, s As Integer, max As Integer
Dim t As Integer, k As Integer, p As Integer
n = Val(InputBox("Введите N"))
Range(Cells(1, 1), Cells(100, 100)).Select
Selection.Clear
For i = 1 To n
For j = 1 To n
If i + j = n + 1 Then a(i, j) = 1
If i = j Then a(i, j) = 1
If i < j And i + j < n + 1 Then a(i, j) = 3
If i < j And i + j > n + 1 Then a(i, j) = 2
If i > j And i + j > n + 1 Then a(i, j) = 3
If i > j And i + j < n + 1 Then a(i, j) = 2
Next j
Next i
Cells(1, 1) = "Полученная матрица"
For i = 1 To n
For j = 1 To n
Cells(i + 1, j) = a(i, j)
Next j
Next i
s = 0
For i = 1 To n
For j = 1 To n
If a(i, j) Mod 2 = 0 Then
s = s + a(i, j)
End If
Next j
Next i
Cells(9, 1) = "Сумма четных элементов=": Cells(9, 4) = s
For i = 1 To n
max = -3200
If a(i, j) > max Then max = a(i, j)
For j = 1 To n
If a(i, j) Mod 2 <> 0 Then
If a(i, j) > max Then max = a(i, j)
Cells(11, 1) = "Максимум из нечетных элементов в каждой строке:": Cells(11, i + 5) = max
End If
Next j
Next i
k=0
For i = 1 To n
For j = 1 To n
If a(i, j) Mod 2 = 0 Then
k = k + 1
End If
Next j
Next i
t = k / 2
Cells(16, 1) = "Количество четных элементов выше главной диагонали =": Cells(16, 7) = t
For j = 1 To n
p = 1
For i = 1 To n
If a(i, j) > 0 Then p = p * a(i, j)
Next i
Cells(13, 1) = "Произведение элементов в нечетных столбцах:": Cells(14, j) = p
j = j + 1
Next j
End Sub
Размещено на Allbest.ru
Подобные документы
Создание программы, позволяющей вводить квадратную матрицу и заменять значения ненулевых элементов и значения элементов главной диагонали на другие. Программа выполнена с использованием языка проектирования программ Visual Basic for Application.
курсовая работа [405,3 K], добавлен 30.08.2010Программный проект Баз данных средствами Visual Basic 6.0. Проектирование структуры таблицы базы данных Visual Basic 6.0. Заполнение созданных таблиц БД исходными данными. Создание пользовательского меню. Вид формы и свойства элементов управления.
курсовая работа [3,0 M], добавлен 19.06.2010Программа обработки одномерного массива средствами Visual Basic for Application (VBA) на предмет преобразования, печати, удаления, сортировки, поиска сумм, положительных, чётных элементов, их кратности и дополнения другими элементами и значениями данных.
контрольная работа [12,3 K], добавлен 07.10.2012Решение экономических задач с помощью Microsoft Excel и инструментария Visual Basic For Application. Способы запуска редактора Visual Basic, правила его синтаксиса. Создание автоматических макросов по сортировке и выборке. Создание управляющих кнопок.
курсовая работа [852,0 K], добавлен 24.09.2010Характеристика мови програмування VBA (Visual Basic for Application): можливості й засоби. Використання редактора Visual Basic. Створення та виконання VBA-програм. Типи даних, змінні й константи, операції й вирази. Керуючі оператори, процедури й функції.
реферат [29,9 K], добавлен 28.06.2011Visual Basic for Application. Объекты и коллекции. Использование VBA в среде Access. Основы современной технологии проектирования АИС. Автоматизированное проектированиеCASE-технологий. Реинжиниринг бизнес-процессов и проектирование корпоративной ИС.
курсовая работа [2,1 M], добавлен 22.02.2008Написание тестирующей программы для проверки знаний учащихся с помощью языка программирования Visual Basic for Applications (VBA), встроенного в пакет Microsoft Office. Общие сведения о программе, условия ее выполнения, настройка, проверка, выполнение.
контрольная работа [25,2 K], добавлен 07.06.2010Язык программирования Visual Basic: краткая история возникновения, значение и общая характеристика. Изучение основных свойств Visual Basic, синтаксис языка. Обзор ключевых операторов Visual Basic, пользовательские процедуры и функции данного языка.
контрольная работа [36,4 K], добавлен 23.07.2014Принципы визуального программирования. Создание программы, генерирующей звук через определенные промежутки времени. Visual Basic как средство разработки прототипов программы, для разработки приложений баз данных и компонентного способа создания программ.
лабораторная работа [1,1 M], добавлен 10.12.2014Рождение и развитие Basic. Краткое описание Visual Basic for Applications. Новые возможности Visual Basic 5.0. Пример взаимодействия Excel и Visual Basic. Программирование табличных функций. Встраивание, применение функций. Формы, средства управления OLE.
реферат [20,7 K], добавлен 11.03.2010
