最或然误差v代码.txt

本源码是由VB编写的

Private Sub Command1_Click()
  Dim A(), k(), P(), v()
  Dim r, n, i, j, h
  r = Val(Text1.Text)
  n = Val(Text2.Text)
   '法方程系数的个数fa
   fa = r * r
   total = r * n
  ReDim A(1 To r, 1 To n)
  ReDim k(1 To r)
  ReDim P(1 To n)
  ReDim v(1 To n)
  
   '填写A矩阵的每一个系数
 For i = 0 To total - 1
  If Me.Text3(i).Text = "" Then
    cc = MsgBox("请输入完整的A矩阵系数！", , "输入A系数！")
    Text3(i).SetFocus
  End If
 Next i
 
 '填写P矩阵的每一个系数
 
  For i = 0 To n - 1
  If Me.Text4(i).Text = "" Then
    cc = MsgBox("请输入完整的P矩阵系数！", , "输入P系数！")
    Text4(i).SetFocus
  End If
 Next i
 
  '填写K矩阵的每一个系数
 
  For i = 0 To r - 1
  If Me.Text5(i).Text = "" Then
    cc = MsgBox("请输入完整的K矩阵系数！", , "输入K系数！")
    Text5(i).SetFocus
  End If
 Next i
 
   '给A数组的每一个元素赋值并与A矩阵相对应
  For h = 0 To total - 1
  
    i = Int(h / n) + 1
    j = (h + n) Mod n + 1
    A(i, j) = Val(Text3(h).Text)
  Next h
  
  '给P数组的每一个元素赋值并与P矩阵相对应
  For i = 1 To n
    P(i) = Val(Me.Text4(i - 1).Text)
  Next i
  
   '给K数组的每一个元素赋值并与P矩阵相对应
  For i = 1 To r
    v(i) = Val(Me.Text5(i - 1).Text)
  Next i
  
 '在界面上加载最或然误差v的文本框
  For i = 1 To n - 1
        Load Text6(i)
          With Text6(i)
           .Left = Text6(i - 1).Left + .Width
           .Visible = True
          End With
    Next i

  
  '计算最或然误差v
  For i = 1 To n
    For j = 1 To r
     v(i) = v(i) + A(j, i) * k(j) / P(i)
    Next j
  Next i
  
  '在界面上文本框内显示v值
  
  For h = 1 To n
       
       Me.Text6(h - 1).Text = Str(v(h))

    Next h
  
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim r, j, k, n, total As Integer
 '加载A系数矩阵文本框
  If KeyAscii = 13 And Me.Text2.Text <> "" Then
   r = Val(Text1.Text)
   n = Val(Text2.Text)
   total = r * n
  
    For i = 1 To total - 1
        Load Text3(i)
          With Text3(i)
          If i Mod n = 0 Then
           .Top = Text3(i - 1).Top + .Height
           .Left = Text3(i - n).Left
           .Visible = True
         
         Else
           .Top = Text3(i - 1).Top
           .Left = Text3(i - 1).Left + .Width
           .Visible = True
         End If
          End With
    Next i
    
 '加载P系数矩阵
    For i = 1 To n - 1
     Load Text4(i)
          With Text4(i)
           .Left = Text4(i - 1).Left + .Width
           .Visible = True
          End With
    
    Next i
   
   '加载联系数K矩阵
   
   For i = 1 To r - 1
    Load Text5(i)
          With Text5(i)
           .Left = Text5(i - 1).Left + .Width
           .Visible = True
          End With
    
    Next i
    
    ElseIf KeyAscii = 13 And Me.Text2.Text = "" Then
      'MsgBox "请输入观测值个数n！", "输入n值！"
      bb = MsgBox("请输入观测值个数n！", , "输入n值")
      Text2.SetFocus
    
  End If
End Sub


Private Sub Text2_KeyPress(KeyAscii As Integer)
Dim r, j, k, n, total As Integer
 '加载A矩阵系数文本框
  If KeyAscii = 13 And Me.Text1.Text <> "" Then
   r = Val(Text1.Text)
   n = Val(Text2.Text)
   total = r * n
    For i = 1 To total - 1
        Load Text3(i)
          With Text3(i)
          If i Mod n = 0 Then
           .Top = Text3(i - 1).Top + .Height
           .Left = Text3(i - n).Left
           .Visible = True
         
         Else
           .Top = Text3(i - 1).Top
           .Left = Text3(i - 1).Left + .Width
           .Visible = True
         End If
          End With
    Next i
    '加载P系数矩阵
    For i = 1 To n - 1
     Load Text4(i)
          With Text4(i)
           .Left = Text4(i - 1).Left + .Width
           .Visible = True
          End With
    
    Next i
    
     '加载联系数K矩阵
   
   For i = 1 To r - 1
    Load Text5(i)
          With Text5(i)
           .Left = Text5(i - 1).Left + .Width
           .Visible = True
          End With
    
    Next i
    
    ElseIf KeyAscii = 13 And Me.Text1.Text = "" Then
      'MsgBox "请输入观测值个数n！", "输入n值！"
      aa = MsgBox("请输入条件式个数r！", , "输入r值")
      Text1.SetFocus
    
  End If
End Sub