例5.19 实际应用，求最短残料.frm

来自「蒋加伏主编VB程序设计第四版PPT及全部课本源码 北京邮电大学出版社 」· FRM 代码 · 共 33 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "例5.19 求最短残料"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
   Dim a%, b%, r!, ia%, ib%
   r = 321              '最小值初值取钢材料的长度
   For b = 1 To 321 \ 27      'b最多的段数
      For a = 1 To 321 \ 17 - b    'a最多的段数
         t = 321 - b * 27 - a * 17   '当前的残料
         If t > 0 And t < r Then
            r = t         '求最短的残料
            ia = a        '最短残料时a的段数
            ib = b        '最短残料时b的段数
         End If
      Next a
   Next b
   Print ia, ib, r
End Sub