Нахождение среднего арифметического элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д