Графика в Visual Basic

Контрольные вопросы

Варианты заданий

Практическая часть

· Постановка задачи.

Описать процедуру, которая формирует квадратную вещественную матрицу случайных чисел и случайного размера от 2 до 6 порядка и записывает ее на диск. Кроме этого необходимо определить сумму ее элементов по периметру и произведение элементов на главной диагонали.

· Код программы

Option Base 1

Dim a() As Single

Private Sub Command1_Click()

Dim m As Integer

Call AddMassivToFileAndText(m, a)

p! = 1

For i% = 1 To m

p = p * a(i, i)

Next

Sum! = 0

For i% = 1 To m

Sum = Sum + a(i, 1)

Next

For i% = 1 To m

Sum = Sum + a(m, i)

Next

For i% = 1 To m

Sum = Sum + a(i, m)

Next

For i% = 1 To m

Sum = Sum + a(1, i)

Next

Sum = Sum - a(1, 1) - a(1, m) - a(m, 1) - a(m, m)

Text2 = "Сумма = " & Sum

Text3 = "Произведение = " & p

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Text1 = "": Text2 = "": Text3 = ""

Randomize

End Sub

Private Sub AddMassivToFileAndText(n As Integer, b() As Single)

n% = Rnd * 4 + 2

ReDim b(n, n) As Single

On Error GoTo 100

Open "C:\4.txt" For Input As #1

Close

Kill "C:\4.txt"

100:

Open "C:\4.txt" For Random As #1 Len = 4

k% = 0

s$ = ""

For i% = 1 To n

For j% = 1 To n

b(i, j) = Rnd * 10 - 5

s = s & Format(a(i, j), "#0.00") & vbTab

k = k + 1

Put #1, k, b(i, j)

Next

s = s & vbCrLf

Next

Text1 = s

Close

End Sub

1. Создать процедуру для формирования прямоугольной случайной матрицы целых чисел размерности NxM (N<50, M<50) и записать ее в типизированный файл. Вывести матрицу в первое текстовое поле, а количество положительных и отрицательных элементов – во второе.

2 Написать процедуру для формирования и вывода в поле квадратной целочисленной матрицы размерности N (N<50), и записать ее в текстовый файл. Подсчитать сумму всех диагональных элементов и вывести ее в другое поле.

3. Написать процедуру для ввода с текстового поля элементов (отделены пробелами) прямоугольной целочисленной матрицы размерности NxM (N<=10, M<=10) и записать матрицу в типизированный файл, Подсчитать количество четных и нечетных членов и вывести результат.

4. Написать процедуру вычисления суммы элементов под побочной диагональю квадратной вещественной матрицы размерности NxN (N<10), введенной из текстового файла.

5. Написать функцию вычисления суммы элементов над главной диагональю квадратной вещественной матрицы размерности NxN (N<50), введенной из типизированного файла.

6. Написать функцию, определяющую максимальную по длины слово в строке текста. Слова разделены символами ":", " ", ",", ".",";". Вывести в поле номер строки, номер позиции слова в строке и максимальное по длине слово в тексте.

7. Написать процедуру, которая бы упорядочила слова в каждой строке текста и выводила строки в текстовое поле. Слова разделены пробелами.

8. Написать процедуру, выводящую только строчные русские буквы, входящие в текст.

9. Написать процедуру, меняющую местами 1 и последнее слово в каждой строке текста. Вывести в текстовые поля исходные и измененные строки.

10. Написать процедуру, меняющую местами непосредственно в текстовом файле 1-й и последний символы, 2-й и предпоследний и т.д. Вывести в текстовые поля исходный и измененный тексты.

11. Написать функцию, подсчитывающую количество знаков препинания ":"," ", ",", ".",";" в каждой строке текста. Вывести результат по каждой строке в текстовое поле.

12. Написать функцию, позволяющую определить, какие буквы латинского алфавита встречаются в каждой строке текста. Вывести результат по каждой строке в текстовое поле.

13. Написать функцию, позволяющую определить, какие строчные буквы русского алфавита не встречаются в тексте. Вывести результат в текстовое поле.

14. Написать процедуру, позволяющую определить, какие прописные русские буквы встречаются в каждой строке текста. Вывести результат по каждой строке в текстовое поле.

15. Написать функцию, подсчитывающую количество замененных в текстовом файле символов ' на ".

16. Написать процедуры шифровки и дешифровки текстового файла путем смещения каждого кода символа при шифровки на число -5, а при дешифровки на +5.

17. Написать функцию, преобразующую непосредственно в текстовом файле все строчные буквы русского алфавита в прописные и наоборот.

18. Написать процедуру, упорядочения всех символов исходного текста по возрастанию кодов ANSI.

19. Написать процедуру, заменяющую в каждой строке текста первый и последний символы.

20. Написать процедуру, меняющую местами строки текста на обратный (например, 1 строка становится последней, а последняя - первой, вторая строка - предпоследней, а предпоследняя - второй и т.д.). Создать новый файл.

21. Написать процедуру, формирующую массив символов из каждой строки текстового файла и подсчитывающую количество символов разделителей между словами.

22. Написать процедуру, заменяющую один символ на другой во всем текстовом файле. Символы вводятся с клавиатуры.

23. Написать процедуру, считывающую из текстового файла массив чисел размера N. Если сумма этих чисел окажется четной, то увеличить размер массива на одну строку, заполненную случайными числами из диапазона от 5 до 30. Вывести массив в текстовое поле.

24. Написать процедуру, считывающую из текстового файла массив чисел размера N. Если максимальный по модулю элемент массива окажется нечетным, то увеличить размер массива на один столбец и заполнить его элементами главной диагонали. Вывести массив в текстовое поле.

25. Написать процедуру, считывающую из текстового файла в массив символы. Если есть возможность, то представьте массив в виде квадратной матрицы, если нет - то количество строк должно быть больше на один количества столбцов. Вывести массив в текстовое поле.

26. Написать процедуру, считывающую из текстового файла в массив символы русского алфавита. Подсчитайте количество и выведите уникальные символы.

27. Написать процедуру, считывающую из текстового файла в массив символы латинского алфавита. Подсчитайте количество и выведите повторяющиеся символы.

1. Какие файлы включает в себя проект?

2. Что такое модуль? Какие бывают модули? Как создать модуль?

3. В чем особенность процедур обработки событий?

4. Для чего необходимы процедуры и функции общего назначения?

5. Назовите полный формат описания процедур и функций.

6. Что определяют ключевые слова Private, Public и Static при описании процедур и функций?

7. В чем отличие параметров - переменных от параметров - значений?

8. Позволяет ли Visual Basic создавать вложенные друг в друга процедуры и функции?

Цель работы

· Закрепление теоретических знаний по применению графических примитивов.

· Приобретение практических навыков использования расширенных графических возможностей системы Visual Basic.

Дата добавления: 2014-12-23