InputVector(a, "a")
OutputVector(A, TextBox1)
PA = Proverka(A, h)
TextBox1.AppendText("Вектор B" & vbCrLf)
InputVector(b, "b")
OutputVector(B, TextBox1)
PB = Proverka(B, h)
If PA = n Then
TextBox1.AppendText("Все значения вектора А > h " & vbCrLf)
End If
If PB = m Then
TextBox1.AppendText("Все значения вектора B > h " & vbCrLf)
End If
If PA >= PB Then
TextBox1.AppendText("У вектора А элементов больше (или равно) заданной величины h ,больше чем у вектора В " & vbCrLf)
TextBox1.AppendText("PA = " & PA & vbCrLf)
TextBox1.AppendText("PB = " & PB & vbCrLf)
Else
TextBox1.AppendText("У вектора B элементов больше заданной величины h ,больше чем у вектора A " & vbCrLf)
TextBox1.AppendText("PB = " & PB & vbCrLf)
TextBox1.AppendText("PA = " & PA & vbCrLf)
End If
End Sub
_____________________________________________________________________________________
Function Proverka(ByVal x() As Single, ByVal h As Single) As Single
Dim i, K As Integer
K = 0
For i = 1 To x.GetUpperBound(0)
If x(i) > h Then
K = K + 1
End If
Next
Proverka = K
End Function
_____________________________________________________________________________________
Private Sub InputVector(ByRef x() As Single, Optional ByVal VectorName As String = "элемент")
Dim i As Integer
For i = 1 To x.GetUpperBound(0)
x(i) = InputBox(VectorName & "(" & i & ") = ?")
Next
End Sub
_____________________________________________________________________________________
Private Sub OutputVector(ByVal x() As Single, ByVal y As TextBox)
Dim i As Integer
For i = 1 To x.GetUpperBound(0)
y.AppendText(x(i) & vbTab)
Next
y.AppendText(vbCrLf)
End Sub
_____________________________________________________________________________________
End Class
4. Составьте функцию, вычисляющую количество элементов одномерного массива, значение которых больше заданной величины h1, но в тоже время меньше заданной величины h2. Используйте эту функцию для одномерных массивов А и В и выведите имя массива, у которого количество таких элементов окажется больше.
Public Class Form1
_____________________________________________________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, m As Integer
Dim h1, h2, A(), B(), KA, KB As Single
TextBox1.Clear()
n = InputBox("Задайте длину вектора А, n = ")
m = InputBox("Задайте длину вектора В, m = ")
h1 = InputBox("Задайте величину h1 = ")
h2 = InputBox("Задайте величину h2 = ")
ReDim A(n)
ReDim B(m)
TextBox1.AppendText("h1 = " & h1 & vbCrLf)
TextBox1.AppendText("h2 = " & h2 & vbCrLf)
TextBox1.AppendText("Вектор А" & vbCrLf)