Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
1) сумма положительных
Private Sub Command1_Click()
Dim x, sum, n, a() As Single
n = InputBox("введетн длину вектора")
ReDim a(1 To n)
sum = 0
For i = 1 To n
a(i) = InputBox(" введите элемент" & i)
If a(i) >= 0 Then
sum = sum + a(i)
End If
Print a(i);
Next
Print sum
End Sub
1 б)Произв положит
Private Sub Command1_Click()
Dim x, pr, n, a() As Single
n = InputBox("ââåäåòí äëèíó âåêòîðà")
ReDim a(1 To n)
pr = 1
For i = 1 To n
a(i) = InputBox(" ââåäèòå ýëåìåíò" & i)
If a(i) >= 0 Then
pr = pr * a(i)
End If
Print a(i);
Next
Print pr
End Sub
1в) вычислить кол-во положительных эл.
Private Sub Command1_Click()
Dim x, kol, n, a() As Single
n = InputBox("ââåäåòí äëèíó âåêòîðà")
ReDim a(1 To n)
kol = 0
For i = 1 To n
a(i) = InputBox(" ââåäèòå ýëåìåíò" & i)
If a(i) >= 0 Then
kol = kol + 1
End If
Print a(i);
Next
Print kol
End Sub
1 д) выч арифмет
Private Sub Command1_Click()
Dim x, kol, sum, otv, n, a() As Single
n = InputBox("ââåäåòí äëèíó âåêòîðà")
ReDim a(1 To n)
kol = 0
sum = 0
For i = 1 To n
a(i) = InputBox(" ââåäèòå ýëåìåíò" & i)
If a(i) >= 0 Then
sum = sum + a(i)
kol = kol + 1
End If
Print a(i);
Next
otv = sum / kol
Print sum
Print kol
Print otv
End Sub
1г) геометр
Private Sub Command1_Click()
Dim x, kol, pr, otv, n, a() As Single
n = InputBox("ââåäåòí äëèíó âåêòîðà")
ReDim a(1 To n)
kol = 0
pr = 1
For i = 1 To n
a(i) = InputBox(" ââåäèòå ýëåìåíò" & i)
If a(i) >= 0 Then
pr = pr * a(i)
kol = kol + 1
End If
Print a(i);
Next
otv = (pr) ^ (1 / kol)
Print pr
Print kol
Print otv
End Sub
2) а сумм пол. В чётных строках
Private Sub Command1_Click()
Dim x, sum, m, n, a() As Single
m = InputBox("ââåäèòå êîë-âî ñòðîê")
n = InputBox("ââåäèòå êîë-âî ñòîëáöîâ ")
ReDim a(1 To m, 1 To n)
sum = 0
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
If i Mod 2 = 0 Then 'â ÷¸òíûõ ñòðîêàõ
If a(i, j) >= 0 Then
sum = sum + a(i, j)
End If
End If
Print a(i, j);
Next
Next
Print sum
End Sub
2б) произ, пол, в чётных
Private Sub Command1_Click()
Dim x, pr, m, n, a() As Single
m = InputBox("ââåäèòå êîë-âî ñòðîê")
n = InputBox("ââåäèòå êîë-âî ñòîëáöîâ ")
ReDim a(1 To m, 1 To n)
pr = 1
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
If i Mod 2 = 0 Then 'â ÷¸òíûõ ñòðîêàõ
If a(i, j) >= 0 Then
pr = pr * a(i, j)
End If
End If
Print a(i, j);
Next
Next
Print pr
End Sub
2в) кол в чётн строках
Private Sub Command1_Click()
Dim x, pr, m, n, a() As Single
m = InputBox("ââåäèòå êîë-âî ñòðîê")
n = InputBox("ââåäèòå êîë-âî ñòîëáöîâ ")
ReDim a(1 To m, 1 To n)
kol = 0
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
If i Mod 2 = 0 Then 'â ÷¸òíûõ ñòðîêàõ
If a(i, j) >= 0 Then
kol = kol + 1
End If
End If
Print a(i, j);
Next
Next
Print kol
End Sub
2г) арифмет-саня делал
Private Sub Command1_Click()
Dim x, m, n, sum, otv, a() As Single
m = InputBox("ââåäèòå êîë-âî ñòðîê")
n = InputBox("ââåäèòå êîë-âî ñòîëáöîâ ")
ReDim a(1 To m, 1 To n)
kol = 0
sum = 0
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
If i Mod 2 = 0 Then 'â ÷¸òíûõ ñòðîêàõ
If a(i, j) >= 0 Then
kol = kol + 1
sum = sum + a(i, j)
otv = sum / kol
End If
End If
Print a(i, j);
Next
Next
Print kol
Print sum
Print otv
End Sub
2г) геометрич в строках чётных
Private Sub Command1_Click()
Dim x, m, n, pr, kol, otv, a() As Single
m = InputBox("ââåäèòå êîë-âî ñòðîê")
n = InputBox("ââåäèòå êîë-âî ñòîëáöîâ ")
ReDim a(1 To m, 1 To n)
kol = 0
pr = 1
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
If i Mod 2 = 0 Then 'â ÷¸òíûõ ñòðîêàõ
If a(i, j) >= 0 Then
kol = kol + 1
pr = pr * a(i, j)
End If
End If
Print a(i, j);
Next
Next
otv = pr ^ (1 / kol)
Print kol
Print pr
Print otv
End Sub
3) Private Sub Command1_Click()
Dim max, x, y, n, m, a() As Single
m = InputBox("ââåäèòå êîë-âî ñòðîê")
n = InputBox("ââåäèòå êîë-âî ñòîëáöîâ ")
ReDim a(1 To m, 1 To n)
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
Print a(i, j);
Next
Next
max = a(1, 1)
For i = 1 To m
For j = 1 To n
If i Mod 2 = 0 Then 'â ÷¸òíûõ ñòðîêàõ
If max < a(i, j) Then
max = a(i, j)
x = i
y = j
End If
End If
Next
Next
4 для суммы )
Private Sub Command1_Click()
Dim sum,n, m, a() As Single
m = InputBox("ââåäèòå äëèíó")
n = InputBox("ââåäèòå èíòåðâàë ")
ReDim a(1 To m)
For i = 1 To m
a(i) = InputBox(" ââåäèòå ýëåìåíò")
Print a(i);
Next
For i = 1 To n
sum = sum + a(i)
Next
Print sum
End Sub
4,) Private Sub Command1_Click()
Dim max, x, y, n, m, a() As Single
m = InputBox("ââåäèòå äëèíó")
n = InputBox("ââåäèòå äëèíó")
g = InputBox("ââåäèòå èíòåðâàë ")
p = InputBox("ââåäèòå èíòåðâàë ")
ReDim a(1 To m, 1 To n)
For i = 1 To m
For j = 1 To m
a(i, j) = InputBox(" ââåäèòå ýëåìåíò")
Print a(i, j);
Next
Next
For i = 1 To g
For j = 1 To p
sum = sum + a(i, j)
Next
Next
Print sum
End Sub