Visual Basic for Application

Формирование матрицы и выполнение заданий: вычисление сумы четных элементов; максимума из нечетных элементов в строке; произведение элементов в нечетных столбцах; количество четных элементов выше главной диагонали. Создание программы в Visual Basic.

Рубрика Программирование, компьютеры и кибернетика
Вид контрольная работа
Язык русский
Дата добавления 07.10.2012

Сибирская Региональная школа бизнеса

Контрольная работа

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

Размещено на stud.wiki




Подобные документы

  • Создание программы, позволяющей вводить квадратную матрицу и заменять значения ненулевых элементов и значения элементов главной диагонали на другие. Программа выполнена с использованием языка проектирования программ 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.2011

  • Visual 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