Программирование матричных операций - VB (170578)

Узнай цену своей работы

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

Помогите ,пожалуйста, второе и третье задание не работает,ошибку выдает, в цикле For..Next

Решение задачи: «Программирование матричных операций»

textual
Листинг программы
Option Explicit
Dim A(1 To 100, 1 To 100) As Double
Dim i As Integer, j As Integer, n As Integer, z As Double, y As Double
Dim Max As Double, X(1 To 100) As Double
 
Private Sub Command1_Click()
    Call Matrix
End Sub
 
 Private Sub Command2_Click()
    Call Matrix
    Call MaxValueSqr
End Sub
 
Private Sub Command3_Click()
    Call Matrix
    Call RevDiagMatrix
End Sub
 
 Private Sub Command4_Click()
    Call Matrix
    Call MaxValueSqr
    Call SumX
End Sub
Sub Matrix()
 Picture1.Cls
 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 Round(A(i, j), 2) & vbTab;
           Next j
           Picture1.Print '
     Next i
     Picture1.Print
 End Sub
 
Private Sub MaxValueSqr()
Dim k As Single
    For i = 1 To n
         Max = Sqr(A(i, 1))
         k = 1
         For j = 1 To n
               If Max < Sqr(A(i, j)) Then Max = Sqr(A(i, j)): k = j
         Next j
         X(i) = Max / k
         Picture1.Print Round(X(i), 2) & vbTab
    Next i
End Sub
 
Private Sub RevDiagMatrix()
    Call Matrix
    For i = 1 To n - 1
       For j = 1 To n - 1
           If A(j + 1, j + 1) > A(j, j) Then
               z = A(j + 1, j + 1)
               A(j + 1, j + 1) = A(j, j)
               A(j, j) = z
           End If
       Next j
    Next i
    For i = 1 To n
         For j = 1 To n
              Picture1.Print Round(A(i, j), 2) & vbTab;
         Next j
         Picture1.Print
    Next i
End Sub
 
Private Sub SumX()
    Picture1.Print vbCrLf
    y = 0
    For i = 1 To n - 2 Step 2
           y = y + X(i) * X(i + 2)
    Next i
    Picture1.Print Format(y, "#0.##")
End Sub
 
Private Sub Form_Load()
    HScroll1.Max = Val(Picture1.Height)
    VScroll1.Max = Val(Picture1.Width)
    Picture1.AutoRedraw = True
End Sub
 
Private Sub HScroll1_Scroll()
    Picture1.Left = -HScroll1.Value
End Sub
 
Private Sub VScroll1_Scroll()
    Picture1.Top = -VScroll1.Value
End Sub

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


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

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

9   голосов , оценка 3.222 из 5