Алгоритми створення програмного проекту

1.Завантажити редактор Visual Basic з головного вікна Windows, який має можливість створювати макроси. Для цього подається команда: Сервіс → Макрос → Редактор Visual Basic;

2.У вікні редактора Visual Basic створити форму користувача (User Form) щоб у рядку заголовку був відповідний напис (курсова робота) потрібно задати цей напис у властивості Caption, яка встановлює текст, що висвітлюється на об’єкті;

3. Викликавши панель інструментів Toolbox, елементи керування на формі і надаємо їм властивості:

4. Розробити код VBA проекту.

VBA – код проекту

Dim Mas(12) As Integer

Dim i, S, Min, M As Integer

Dim z As String

Private Sub CommandButton1_Click()

For i = 1 To 12

Mas(i) = Val(InputBox("Введіть кількість опадів ", Str(i) + " -й місяць"))

ListBox1.AddItem Str(i) + " –ий - " + Str(Mas(i))

Next i

End Sub

Private Sub CommandButton2_Click()

S = 0

For i = 1 To 12

S = S + Mas(i)

Next i

ListBox1.AddItem "Сумарні " + Str(S)

Label9.Caption = Str(S)

End Sub

Private Sub CommandButton3_Click()

M = Mas(1)

n = 1

For i = 2 To 12

If M < Mas(i) Then

M = Mas(i)

n = i

End If

Next i

ListBox1.AddItem "Мінімальний елемент " + Str(M)

If n = 1 Then z = "січень"

If n = 2 Then z = "лютий"

If n = 3 Then z = "березень"

If n = 4 Then z = "квітень"

If n = 5 Then z = "травень"

If n = 6 Then z = "червень"

If n = 7 Then z = "липень"

If n = 8 Then z = "серпень"

If n = 9 Then z = "вересень"

If n = 10 Then z = "жовтень"

If n = 11 Then z = "листопад"

If n = 12 Then z = "грудень"

Label8.Caption = Str(n) + " - " + CStr(z)

End Sub

Private Sub CommandButton4_Click()

Max = Mas(1)

n = 1

For i = 2 To 12

If Max > Mas(i) Then

Max = Mas(i)

n = i

End If

Next i

ListBox1.AddItem "Максимальний елемент " + Str(Max)

If n = 1 Then z = "січень"

If n = 2 Then z = "лютий"

If n = 3 Then z = "березень"

If n = 4 Then z = "квітень"

If n = 5 Then z = "травень"

If n = 6 Then z = "червень"

If n = 7 Then z = "липень"

If n = 8 Then z = "серпень"

If n = 9 Then z = "вересень"

If n = 10 Then z = "жовтень"

If n = 11 Then z = "листопад"

If n = 12 Then z = "грудень

Label6.Caption = Str(n) + " - " + CStr(z)

End Sub

Private Sub CommandButton5_Click()

For i = 1 To 12

If Mas(i) < 40 Then

Oks = Mas(i)

ListBox1.AddItem "Місяць № " + Str(i) + " Кількість опадів - " + Str(Oks)

End If

Next i

End Sub

Private Sub CommandButton6_Click()

End

End Sub

Private Sub Label3_Click()

Label Caption = Str(Max)

End Sub

Private Sub Label6_Click()

Label Caption = Str(Oks)

End Sub

Не нашли, что искали? Воспользуйтесь поиском: