Private Sub Form_Load()
Dim A(6) As Single  'һֽƷ۸
Dim p(10, 10) As Single 'Ž÷
Dim x, y, z, I, J, K, f, m  '影ÿһӦƷıŵ
Form1.AutoRedraw = True
f = 0 '
Print "ܵĽ÷Ϊ"
For x = 1 To 10  '110оһȽ
 For y = 2 To 10  '210оٶȽ
  For z = 3 To 10  '310оȽ
   'жϽ÷Ƿӡ
   If x < y And y < z And x + y + z = 10 Then
     Print "һȽ" & x & "", "Ƚ" & y & "", "Ƚ" & z & ""
     f = f + 1  'ۼ1
     p(f, 1) = x '洢÷һȽ
     p(f, 2) = y '洢÷ĶȽ
     p(f, 3) = z '洢÷Ƚ
   End If
  Next z
 Next y
Next x
A(1) = 256: A(2) = 205: A(3) = 182: A(4) = 138: A(5) = 73: A(6) = 55
Print "շΪ"
For m = 1 To f 'оз
 For I = 1 To 6 '16оһȽĽƷ
  For J = 2 To 6 '26оٶȽĽƷ
   For K = 3 To 6 '36оȽĽƷ
   'жϽƷ÷Ƿӡ
    If I < J And J < K And A(I) * p(m, 1) + A(J) * p(m, 2) + A(K) * p(m, 3) = 1000 Then
    Print "һȽ" & p(m, 1) & "Ʒ" & "A" & I & ",۸Ϊ" & A(I) & "Ԫ"
    Print "Ƚ" & p(m, 2) & "Ʒ" & "A" & J & ",۸Ϊ" & A(J) & "Ԫ"
    Print "Ƚ" & p(m, 3) & "Ʒ" & "A" & K & ",۸Ϊ" & A(K) & "Ԫ"
    End If
   Next K
  Next J
 Next I
Next m
End Sub
