Нахождение среднего арифметического элементов массива - VB
Формулировка задачи:
Люди, помогите, пожалуйста... дело в том что я совсем не знаю Basic, а контрольную по информатике надо сдать.... Помоите
Две задачки
1. Ввести в память машины массив A(N), найти среднеарифметическое массива.
M=ƩA(I)N
2. Ввести в память машины двумерный массив A(M,N). Треб. поменять местами указанные столбцы матрицы
номера меняющихся столбцов обозначить K, I
Решение задачи: «Нахождение среднего арифметического элементов массива»
textual
Листинг программы
Private Sub Command1_Click()
Dim o As Integer, j As Integer
Dim K As Integer, i As Integer
Dim n As Integer, m As Integer
Dim A()
Dim temp
Me.Cls
1
m = Val(InputBox("Введитеть значение M (строк)"))
If m < 2 Then
MsgBox "некорректное значение M (столбцов)"
GoTo 1
End If
2
n = Val(InputBox("Введите значение N"))
If n < 2 Then
MsgBox "некорректное значение N"
GoTo 2
End If
ReDim A(m, n)
For o = 1 To m
For j = 1 To n
A(o, j) = Val(InputBox("Вводим значение A(" & o & "," & j & ")"))
Next j
Next o
3
K = Val(InputBox("Введите значение K"))
If K > n Or K < 1 Then
MsgBox "некорректное значение K"
GoTo 3
End If
4
i = Val(InputBox("Введите значение I"))
If i > n Or i < 1 Then
MsgBox "некорректное значение I"
GoTo 4
End If
For o = 1 To m
temp = A(o, i): A(o, i) = A(o, K): A(o, K) = temp
Next o
For o = 1 To m
For j = 1 To n
Form1.Print Tab(j * 10); A(o, j);
Next j
Form1.Print
Next o
End Sub