7公斤米,50克砝码,200克砝码各一个,称1350克米问最少要多少次,并编程回答.

Private Sub Form_Load()
Dim i, j, a(), b(), x
For i = 0 To Int(7000 / 50)
  For j = 0 To Int(7000 / 200)
    If i * 50 + j * 200 = 7000 Then
      x = x + 1
      ReDim Preserve a(x)
      ReDim Preserve b(x)
      a(x) = i
      b(x) = j
    End If
  Next j
Next i
i = a(1)
j = b(1)
Print "7公斤米共有" & x & "种组合："
For x = 1 To UBound(a)
  Print "50克砝码称" & a(x) & "次,200克砝码称" & b(x) & "次"
  If (i + j) > (a(x) + b(x)) Then i = a(x): j = b(x)
Next x
Print "最少要50克砝码称"; i & "次,200克砝码称" & j & "次"
End Sub