Замена содержимого строк на содержимое столбцов матрицы - VB

Формулировка задачи:

Помгите пожалуйста с решением задач, завтра здавать, а я не бум-бум.... 1)Дан двухмерный массив A(N,M). Составить программу по замене содержимого строк на содержимое столбцов. 2)Найти среднее значение y Y=lnx+lnz lnz для x изменяющегося от 0 до 5 с шагом 1 Z=arctgb (при b>=0) Z=b^2 (b<0),b-по вводу

Код к задаче: «Замена содержимого строк на содержимое столбцов матрицы - VB»

textual
Private Sub Command1_Click()
Dim b, z, s, n, y
 
b = Val(InputBox("вводим b"))
If b >= 0 Then
z = Atn(b)
Else
z = b ^ 2
End If
List1.Clear
List1.AddItem "Y=lnx+lnz*lnz" 'исправьте!!!
List1.AddItem "============="
List1.AddItem ""
x = 1
s = 0
n = 0
Do While x <= 5
y = Log(x) + Log(z) * Log(z) 'исправьте!!!
n = n + 1
s = s + y
List1.AddItem "x = " & x & "            " & "y = " & y
x = x + 1
Loop
List1.AddItem ""
List1.AddItem "crednee   " & s / n
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 4.455 из 5


СДЕЛАЙТЕ РЕПОСТ