4. Ответ
Вывод:
Приведенное Windows-приложение дает возможность пользователям ПК создавать свои аналогичные приложения, решающие подобные задачи, например, следующая задача.
Задача №9
Создать приложение «Работа с двумерными массивами», позволяющее вводить и выводить двумерные массивы любого типа, произвольной длины и производить различные вычисления с его элементами по указанию пользователя. В программе использовать текстовые файлы. Вывод результатов вычислений организовать в текстовом окне Text Box.
Решение:
Эскиз экранной формы представлен на рис. 1
Рис.1.
1. Расставим имена объектов на эскизе экранной формы.
Строим с помощью инструментов Toolbox объекты на экранной форме Form1 в соответствии с эскизом проекта и пишем программный код.
2. Программный код :
Dim n As Integer, m As Integer, s As Single, a(100, 100) As Double, t1 As String
Public Sub Command1_Click()
n = InputBox("Введите ко-во эле-тов по горизонтали", "Размерность матрицы")
m = InputBox("Введите ко-во эле-тов по вертикали", "Размерность матрицы")
Randomize Timer
Text1.Text = ""
Text1.Enabled = True ' Активизация текстового окна
Open "M.tmp" For Output As #1
Print #1, """";'Сохранение формата данных , перед добавлением матрицы в файл.
For i = 1 To m
For J = 1 To n
a(i, J) = Int(Rnd * (200)) - 100
Print #1, a(i, J); ' Для вывода в строке
Next
Print #1, ' Для перехода на другую строку
Next
Close #1
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = " "
Text2.Text = " "
End Sub
Private Sub Command4_Click()
Open "M.tmp" For Input As #3
Do While Not EOF(3)
Input #3, t1
Text1.Text = t1
Loop
Close #3
End Sub
Public Sub Command5_Click()
'Сумма элементов над главной диагональю
s = 0
For i = 1 To m
For J = 1 To n
If i = J Then s = s + a(i, J)
Next
Next
Text2.Text = "Сумма э-тов на гл. диагонали" + Str(s)
End Sub
Private Sub Command6_Click()
'Произведение элементов над главной диагональю
p = 1
For i = 1 To m
For J = 1 To n
If i < J Then p = p * a(i, J)
Next
Next
Text2.Text = "Произведение э-ов над гл. диагональю" + Str(p)
End Sub
Private Sub Command7_Click()
'Максимальный элемент матрицы
Max = a(1, 1)
For i = 1 To m
For J = 1 To n
If a(i, J) > Max Then Max = a(i, J)
Next
Next
Text2.Text = "Максимальный элемент равен" + Str(Max)
End Sub
Private Sub Command8_Click()
Min = a(1, m)
For i = 1 To m
For J = 1 To n
If i + J = m + 1 And a(i, J) < Min Then Min = a(i, J)
Next
Next
Text2.Text = "Мин.элемент равен на побочной диагонали равен" + Str(Min)
End Sub
Private Sub Command9_Click()
s = 0
For i = 1 To m
For J = 1 To n
If Abs(a(i, J)) = 1 Then s = s + 1
Next
Next
Text2.Text = "Ко-во элементов равных единице = " + Str(s)
End Sub
5. Ответ
В
начале щелкнем мышью на кнопке «Пуск»,
в результате появится окноввода
данных.
Вводим размерность матрицы и щелкаем одну из кнопок решения задачи, например, кнопку «Найти максимальный элемент матрицы». В окне «Результат» появится ответ.
Задача №10
Создать приложение «Построение геометрических фигур», позволяющее рисовать прямоугольник, окружность, квадрат различного цвета линий и заполнения, а так же сглаживать прямые углы.
Решение:
Эскиз экранной формы представлен на рис. 1
1. Расставим имена объектов на эскизе экранной формы.
Рис. 1. Эскиз проекта
При запуске программы вы имеете возможность нарисовать одну из представленных геометрических фигур, также вы можете выбрать цвет линий, фона и сгладить углы (см. рис 2):
Рис. 2
Строим с помощью инструментов Toolbox объекты на экранной форме Form1 в соответствии с эскизом проекта и пишем программный код.