Моя задача

Imports System.Math

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnПуск.Click

Dim ma, mb, n, m, j As Integer

Dim a() As Single, b() As Single

Dim sa, sb As Single

txtЖурнал.Clear()

ma = InputBox _

("Задайте количество а")

mb = InputBox _

("Задайте количество b")

txtЖурнал.AppendText("ma = " & ma & _

vbCrLf)

txtЖурнал.AppendText("mb = " & mb & _

VbCrLf)

ReDim a(ma)

ReDim b(mb)

InputVector(a, "a")

txtЖурнал.AppendText("вектор a" & vbCrLf)

OutputVector(a, txtЖурнал)

InputVector(b, "b")

txtЖурнал.AppendText("вектор b" & vbCrLf)

OutputVector(b, txtЖурнал)

n = F1(a)

txtЖурнал.AppendText("индекс аксимального элемента вектора a = " & F1(a) & vbCrLf)

m = F1(b)

txtЖурнал.AppendText("максимальный индекс вектора b = " & F1(b) & vbCrLf)

If n = m Then

txtЖурнал.AppendText("вывод вектора а " & vbCrLf)

OutputVector(a, txtЖурнал)

Else : txtЖурнал.AppendText("вектор b" & vbCrLf)

OutputVector(b, txtЖурнал)

End If

End Sub

Function F1(ByVal x() As Single) As Integer

Dim i, j As Integer

Dim z, m As Single

z = 0

For i = 1 To x.GetUpperBound(0)

If Abs(x(i)) > z Then

z = Abs(x(i))

j = i

End If

Next

Return (j)

End Function

Private Sub InputVector(ByRef x() As Single, _

Optional ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

x(i) = InputBox(ArrayName & _

"(" & i & ") = ?")

Next

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Label1.Click

End

End Sub

Private Sub OutputVector(ByRef x() _

As Single, ByVal txtBx As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

txtBx.AppendText(" " & x(i))

Next

txtBx.AppendText(vbCrLf)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

Задача 15

Imports System.Math

Public Class Form1

Private Sub btnПуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnПуск.Click

Dim T1(,), T2(,) As Single

Dim m2, m1, n1, n2, g1, g2, g As Integer

txtЖурнал.Clear()

n1 = InputBox("Введите n1")

n2 = InputBox("Введите n2")

m1 = InputBox("Введите m2")

m2 = InputBox("Введите m2")

ReDim T1(n1, m1), T2(n2, m1)

InputMatrix(T1, "t1")

txtЖурнал.AppendText("Матрица t1" & vbCrLf)

OutputMatrix(T1, txtЖурнал)

txtЖурнал.AppendText(vbCrLf)

InputMatrix(T2, "T2")

txtЖурнал.AppendText("Матрица T2" & vbCrLf)

OutputMatrix(T2, txtЖурнал)

txtЖурнал.AppendText(vbCrLf)

matrix(T1, g1)

txtЖурнал.AppendText(" Число замен g1 = " & g1 & vbCrLf)

txtЖурнал.AppendText(vbCrLf)

matrix(T2, g2)

txtЖурнал.AppendText("Число замен g2 = " & g2 & vbCrLf)

txtЖурнал.AppendText(vbCrLf)

If g1 = n1 * m1 Then

txtЖурнал.AppendText("число замен совпадает с общим числом элементов в матрице T1 " & vbCrLf)

txtЖурнал.AppendText(vbCrLf)

Else

txtЖурнал.AppendText("общее число выполненных замен в матрице= T1 " & g1 & vbCrLf)

txtЖурнал.AppendText(vbCrLf)

End If

If g2 = n2 * m2 Then

txtЖурнал.AppendText("число замен совпадает с общим числом элементов в матрице T2" & vbCrLf)

txtЖурнал.AppendText(vbCrLf)

Else

txtЖурнал.AppendText("общее число выполненных замен в матрице T2 = " & g2 & vbCrLf)

txtЖурнал.AppendText(vbCrLf)

End If

End Sub

Private Sub OutputMatrix(ByVal x(,) As Single, ByVal y As TextBox)

Dim i, j As Integer

For i = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1)

y.AppendText(x(i, j) & vbTab)

Next

y.AppendText(vbCrLf)

Next

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Sub matrix(ByVal x(,) As Single, ByRef g As Integer)

g = 0

For i = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1)

If x(i, j) < 0 Then

x(i, j) = Abs(x(i, j))

g = g + 1

End If

Next

Next

End Sub

Private Sub InputMatrix(ByRef x(,) As Single, Optional ByVal ArrayName As String = "элемент")

Dim i, j As Integer

For i = 1 To x.GetUpperBound(0)

For j = 1 To x.GetUpperBound(1)

x(i, j) = InputBox(ArrayName & "(" & i & "," & j & ") = ?")

Next

Next

End Sub

End Class

9 задача

Public Class Form1

Private Sub btnПуск_Click(sender As System.Object, e As System.EventArgs) Handles btnПуск.Click

Dim CT(), DT(), Sum41, Sum42 As Single

Dim n1, n2, i As Integer

Dim P, L As Integer

txtЖурнал.Clear()

n1 = InputBox("Введите n1")

n2 = InputBox("Введите n2")

ReDim CT(n1), DT(n2)

InputVector(CT, "CT")

txtЖурнал.AppendText("Вектор CT" & vbCrLf)

OutputVector(CT, txtЖурнал)

InputVector(DT, "DT")

txtЖурнал.AppendText("Вектор DT" & vbCrLf)

OutputVector(DT, txtЖурнал)

P = F1(CT)

L = F1(DT)

If P < L Then

For i = 1 To n1

Sum41 = Sum41 + CT(i)

Next

txtЖурнал.AppendText("Сумма элементов массива CT = " & Sum41 & vbCrLf)

End If

If P > L Then

For i = 1 To n1

Sum42 = Sum42 + DT(i)

Next

txtЖурнал.AppendText("Сумма элементов массива DT = " & Sum42 & vbCrLf)

End If

If P = L Then

txtЖурнал.AppendText("Колличество нулевых элементов = " & P & vbCrLf)

End If

End Sub

Function F1(ByVal x() As Single) As Integer

Dim sum As Integer

For i = 1 To x.GetUpperBound(0)

If x(i) = 0 Then

sum = sum + 1

Else : i = i + 1

End If

Next

Return (sum)

End Function

Private Sub Label1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Label1.Click

End

End Sub

Private Sub InputVector(ByRef x() As Single, _

Optional ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

x(i) = InputBox(ArrayName & _

"(" & i & ") = ?")

Next

End Sub

Private Sub OutputVector(ByRef x() _

As Single, ByVal txtBx As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

txtBx.AppendText(" " & x(i))

Next

txtBx.AppendText(vbCrLf)

End Sub

End Class

______________________________________________________________________________________

12 задача

Public Class Form1

Private Sub btnПуск_Click(sender As System.Object, e As System.EventArgs) Handles btnПуск.Click

Dim CT(), DT(), pr1, pr2, z1, z2 As Single

Dim n1, n2, i As Integer

Dim P, L As Boolean

txtЖурнал.Clear()

n1 = InputBox("Введите n1")

n2 = InputBox("Введите n2")

ReDim CT(n1), DT(n2)

InputVector(CT, "CT")

txtЖурнал.AppendText("Вектор CT" & vbCrLf)

OutputVector(CT, txtЖурнал)

InputVector(DT, "DT")

txtЖурнал.AppendText("Вектор DT" & vbCrLf)

OutputVector(DT, txtЖурнал)

P = F1(CT)

L = F1(DT)

pr1 = 1

pr2 = 1

If P Then

For i = 1 To n1

If CT(i) < 0 Then

pr1 = CT(i) * pr1

End If

Next

txtЖурнал.AppendText("Произведение отрицательных элементов массива CT = " & pr1 & vbCrLf)

End If

If L Then

For i = 1 To n2

If DT(i) < 0 Then

pr2 = DT(i) * pr2

End If

Next

txtЖурнал.AppendText("Произведение отрицательных элементов массива DT = " & pr2 & vbCrLf)

End If

If L = False Then

For i = 1 To n2

If DT(i) < 0 Then

z1 = i + z1

End If

Next

txtЖурнал.AppendText("Сумма индексов отрицательных элементов DT = " & z1 & vbCrLf)

End If

If P = False Then

For i = 1 To n2

If CT(i) < 0 Then

z2 = i + z2

End If

Next

txtЖурнал.AppendText("Сумма индексов отрицательных элементов CT = " & z2 & vbCrLf)

End If

End Sub

Function F1(ByVal x() As Single) As Boolean

Dim h As Boolean

Dim u, k As Integer

For i = 1 To x.GetUpperBound(0)

If x(i) = 0 Then

u = u + 1

Else : i = i + 1

End If

Next

For i = 1 To x.GetUpperBound(0)

If x(i) < 0 Then

k = k + 1

Else : i = i + 1

End If

Next

If k > u Then h = True Else h = False

Return (h)

End Function

Private Sub Label1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Label1.Click

End

End Sub

Private Sub InputVector(ByRef x() As Single, _

Optional ByVal ArrayName As String = "элемент")

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

x(i) = InputBox(ArrayName & _

"(" & i & ") = ?")

Next

End Sub

Private Sub OutputVector(ByRef x() _

As Single, ByVal txtBx As TextBox)

Dim i As Integer

For i = 1 To x.GetUpperBound(0)

txtBx.AppendText(" " & x(i))

Next

txtBx.AppendText(vbCrLf)

End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

_____________________________________________________________________________________

Пример Экз 5