联系数k代码.txt

本源码是由VB编写的

Private Sub Command1_Click()
   Dim q(), w(), k()
   Dim r, n, i, j, h
  r = Val(Me.Text4.Text)
  n = Val(Text4.Text) * Val(Text4.Text)
  ReDim q(1 To r, 1 To r)
  ReDim w(1 To r)
  ReDim k(1 To r)
 '填写矩阵q 的每一个系数
 For i = 0 To n - 1
  If Me.Text1(i).Text = "" Then
    MsgBox "请输入完整的q矩阵！", "输入q矩阵！"
    Text1(i).SetFocus
  End If
 Next i
   '给数组q的每一个元素赋值
  For h = 0 To n - 1
    i = Int(h / r) + 1
    j = (h + r) Mod r + 1
    q(i, j) = Val(Text1(h).Text)
  Next h
  
  '填写矩阵w 的每一个系数
  For i = 0 To r - 1
  If Me.Text2(i).Text = "" Then
    MsgBox "请输入完整的w矩阵！", "输入w矩阵！"
    Text2(i).SetFocus
  End If
 Next i
  
   '给数组w的每一个元素赋值
  For h = 1 To r
    w(h) = Val(Text2(h - 1).Text)
  Next h
  
  '计算联系数k
  
  For i = 1 To r
    For j = 1 To r
      k(i) = k(i) - q(i, j) * w(j)
    Next j
  Next i
  
  '在窗体上加载联系数k的文本框
    For i = 1 To r - 1
        Load Text3(i)
          With Text3(i)
           .Left = Text3(i - 1).Left + .Width
           .Visible = True
          End With
    Next i
  
  
  
  '在文本框3当中打印联系数k
    For h = 1 To r
       
       Me.Text3(h - 1).Text = Str(k(h))

    Next h
  
  
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

  Dim i, j, k, n As Integer
  If KeyAscii = 13 Then
   n = Val(Text4.Text)
   total = n * n
    For i = 1 To n - 1
        Load Text2(i)
          With Text2(i)
           .Left = Text2(i - 1).Left + .Width
           .Visible = True
          End With
    Next i
   
    For j = 1 To total - 1
        Load Text1(j)
          With Text1(j)
          If j Mod n = 0 Then
           .Top = Text1(j - 1).Top + .Height
           .Left = Text1(j - n).Left
           .Visible = True
         
         Else
           .Top = Text1(j - 1).Top
           .Left = Text1(j - 1).Left + .Width
           .Visible = True
         End If
          End With
    Next j
    
    End If
    
End Sub