Линейные алгоритмы. Разветвляющиеся алгоритмы. Оператор выбора. Массивы. Процедуры и функции. Циклические алгоритмы. Курсовая работа (проект)

Задача 1. Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба. Разместить в окне приложения изображение куба.

Листинг программы

Private Sub Command1_Click()

Dim a As Integer

a = CInt(Text1.Text)

Задача 2. Даны 2 точки A(x1, y1) и B(x2, y2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат. Ответ сопроводить выводом изображения точек и системы координат.

Листинг программы

Private Sub Command1_Click()

Dim x1 As Double, y1 As Double

Dim x2 As Double, y2 As Double

Dim l1 As Double, l2 As Double

Задача 3. Приложение должно имитировать движение шарика «со шлейфом» внутри объекта класса PictureBox . Шарик движется за счёт изменения его координат и отражается от сторон PictureBox под углом 45°. Приложение должно иметь режим когда внутри объекта Picture1 появлялся бы прямоугольник представляющий собой дополнительное препятствие для движущегося шарика.

Листинг программы

Option Explicit

Private Const SIZE = 15

Private Const ITER = 100

Задача 4. Даны два массива, заполненные каждый десятью случайными целыми числами (от 1 до 9 включительно). Сложите массивы поэлементно, результаты запишите в третий массив. Выведите на экран все 3 массива.

Листинг программы

Private Sub Command1_Click()

Dim m1(1 To 10) As Integer

Dim m2(1 To 10) As Integer

Dim m3(1 To 10) As Integer

Задача 5. Даны 2 одномерных массива из 20 элементов каждый. Элементом является случайное целое число. Напишите программу (оформите ее в виде подпрограммы), которая изменяет исходный массив путем деления четных чисел на их индексы.

Листинг программы

Public Function task(index As Byte, number As Integer)

If (number Mod 2) Then

task = number

Else