1.Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
Max = Val(Text4.Text)
If (a >= b) And (a >= c) Then Text4.Text = "А-має найбільший прибуток=" + Str(a)
If (b >= a) And (b >= c) Then Text4.Text = "B-має найбільший прибуток=" + Str(b)
If (c >= a) And (c >= b) Then Text4.Text = "C-має найбільший прибуток=" + Str(c)
End Sub
2. Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
Text5.Text = Str(a + b)
Text6.Text = Str(c + d)
If (a + b) > (c + b) Then Text7.Text = "Перших двох значень більша"
If (a + b) < (c + b) Then Text7.Text = "Останніх двох значень більша"
If (a + b) = (c + b) Then Text7.Text = "значення рівні"
End Sub
3. Private Sub Command1_Click()
t = Val(Text1.Text)
G = Val(Text2.Text)
A = Val(Text3.Text)
If t * G <= A Then
t = 0
Else
t = t * G - A
End If
Text4.Text = Str(t)
End Sub
4. Private Sub Command1_Click()
W1 = Val(Text1.Text)
W2 = Val(Text2.Text)
W3 = Val(Text3.Text)
Dim W4 As Integer
If (W1 > W2) Then
W4 = W1
Else
W4 = W2
End If
If (W3 > W4) Then
Text4.Text = "Найбiльша сума" + Str(W3)
Else
Text4.Text = "Найбiльша сума" + Str(W4)
End If
End Sub
5. Private Sub Command1_Click()
Const m% = 10
Dim S(1 To m%) As Single
Debug.Print "Масив S"
For i% = 1 To m%
Title$ = "Введіть значення елементів масиву S"
Prt$ = "елемент S(" & i% & ")"
S(i%) = Val(InputBox(Prt$, Title$))
Debug.Print S(i%); " ":
Next i%
Debug.Print
Debug.Print "Кредитові сальдо масиву S="
For i% = 1 To m%
If S(i%) < 0 Then
Debug.Print S(i%); " ";
End If
Next i%
Debug.Print
End Sub
6. Private Sub Command1_Click()
Const m% = 10
Dim S(1 To m%) As Single
Debug.Print "Масив S"
For i% = 1 To m%
Title$ = "Введіть значення елементів масиву S"
Prt$ = "елемент S(" & i% & ")"
S(i%) = Val(InputBox(Prt$, Title$))
Debug.Print S(i%); " ":
Next i%
Debug.Print
Sum = 0
For i% = 1 To m%
If S(i%) > 0 Then
Sum = Sum + S(i%)
End If
Next i%
Debug.Print "Сума дебетових сальдо="; Format(Sum, "###.000")
Debug.Print
End Sub
7. Private Sub Command1_Click()
Const m% = 10
Dim S(1 To m%) As Single
Debug.Print "Масив S"
For i% = 1 To m%
Title$ = "Введіть значення елементів масиву S"
Prt$ = "елемент S(" & i% & ")"
S(i%) = Val(InputBox(Prt$, Title$))
Debug.Print S(i%); " ":
Next i%
Debug.Print
Kil% = 0
For i% = 1 To m%
If S(i%) < 0 Then
Kil% = Kil% + 1
End If
Next i%
Debug.Print "Кількість кредитових сальдо="; Format(Kil%, "###")
End Sub