VB编程达人请速进,今晚必需,在线等穷举法1有一根长为600cm的钢筋,需要截成长度为69cm、39cm、29cm的三种规格的短料,在三种规格至少各截1的前提下,如何截取才能使所余下的材料最少?

Question

VB编程达人请速进,今晚必需,在线等【穷举法】
【1】有一根长为600cm的钢筋,需要截成长度为69cm、39cm、29cm的三种规格的短料,在三种规格至少各截1的前提下,如何截取才能使所余下的材料最少?
【2】有一张单据上有一个五位数的号码67XX8,其中百位和十位上的数字看不清了,但知道该数能被78整除,也能被67整除,设计一个算法求出该号码
以上两题需要用循环语句IF
步骤最好能够稍微解释下 谢谢!成功后追加分数

Answer 1

你自己打开看看!

代码在下面：

Option Explicit

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim k As Integer

Dim Y As Integer

Dim n69 As Integer

Dim n39 As Integer

Dim n29 As Integer

Y = 600

For i = 1 To 8           '设截取69CM的有i根,600/69 最多为8

   For j = 1 To 15       '设截取39CM的有J根,600/39 最多为15

      For k = 1 To 20    '设截取29CM的有K根,600/29 最多为20

         If i * 69 + j * 39 + k * 29 <= 600 Then      '如果满足不超过600CM的,就是一组答案

            If 600 - (i * 69 + j * 39 + k * 29) < Y Then     '如果余数比变量Y里的小,就保存i,j,k以及余数

               n69 = i

               n39 = j

               n29 = k

               Y = 600 - (i * 69 + j * 39 + k * 29)

            End If

         End If

      Next k

   Next j

Next i

Print "69CM:"; n69; "根"

Print "39CM:"; n39; "根"

Print "29CM:"; n29; "根"

Print "余："; Y; "CM"

Print

Print

Print

End Sub

Private Sub Command2_Click()

Dim i As Integer

For i = 0 To 99   '把这两位看作一个两位数字,范围是0-99

   '注意要乘以10,充当5位数字的十位和百位,mod 等于0,表示能整除

   If (67008 + 10 * i) Mod 78 = 0 And (67008 + 10 * i) Mod 67 = 0 Then

      Print 67008 + 10 * i

   End If

Next i

End Sub