有一根长度为321m的钢材料，要将它截取成两种规格的短料，规格a、b的长度分别为17 m和27 m，问分隔成a、b各多少段后，剩余的残料r最少？

VB代码：

Private Sub Command5_Click()
Dim i As Integer, r As Integer, a As Integer, b As Integer, min As Integer
min = 17
For i = 0 To 11
r = (321 - 27 * i) Mod 17
If r > 0 And r < min Then min = r: a = i: b = (321 - 27 * i) / 17
Next i
Print min, a, b