Нахождение среднего арифметического элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы