Прокрутка PictureBox для задания "матричные операции" - VB

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

Здравствуйте, помогите пожалуйста дописать программу тема "матричные операции" первую часть сделала,но на PictureBox прокрутка не работает и со вторым заданием уже запуталась
Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = ((2 * i + 3 * j) ^ 2) / ((i + j + 5) ^ (1 / 3))
Picture1.Print Format(A(i, j), "#0.##"),
Next j
Picture1.Print '
Next i
End Sub
 
Private Sub Command2_Click()
Dim A(1 To 100, 1 To 100) As Double
Dim i, j As Double
n = Val(Text1.Text)
For i = 1 To n
For j = 1 To n
A(i, j) = ((2 * i + 3 * j) ^ 2) / ((i + j + 5) ^ (1 / 3))
If Max < Sqr(A(i, j)) Then
Max = Sqr(A(i, j))
X(j) = Sqr(A(i, j)) / j
End If
Next j
End Sub
 
Private Sub HScroll1_Change()
Picture1.Top = -HScroll1.Value
End Sub
 
Private Sub Picture1_Click()
VScroll1.Value = Val(Picture1)
HScroll1.Value = Val(Picture1)
End Sub
 
Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value
End Sub

Код к задаче: «Прокрутка PictureBox для задания "матричные операции" - VB»

textual
Private Sub Command2_Click()
            Command1_Click
Dim tJ as Double
For i = 1 To n
Max = Sqr(A(i, 1)):Tj=1
For j = 2 To n
If Max < Sqr(A(i, j)) Then Max = Sqr(A(i, j)):Tj=j
Next j
X(j) = Max / Tj
Picture1.Print Format(X(i), "#0.##")
Next i
End Sub

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ