Question

穷举法问题 vb 代码

(1) 有一张单据上有一个5位数的号码67口口8，其中百位和十位上的数字看不清了，但知道该数
能够被78整除，也能被67整除。设计一个算法求出该号码。(答案：67938)
(2) 如果一个4位数等于它的各位数字的4次方和，则这个4位数称为“玫瑰花”数，例如1634就
是一个玫瑰花数： 。试编程序求出所有玫瑰花数。
(3) 有一根长为600cm的钢筋，需要截成长度为69cm、39cm、29cm的三种规格的短料，在三种规
格的短料至少各截l的前提下，如何截取才能使所余下的材料最少?(答案：这三种规格分别截取
6、4、l根时余料最少)

Answer 1

No.3

Private Sub Command1_Click()
Dim a%, b%, c%, min%, m%, n%, k%, mStr$
min = 600
For m = 1 To 8
a = 600 - 69 * m
For n = 1 To a \ 39
b = a - n * 39
For k = 1 To b \ 29
c = b - k * 29
If c < min Then min = c: _
mStr = "69 x " & m & " 39 x " & n & " 29 x " & k & " Mod: " & min
Next k
Next n
Next m
Print mStr
End Sub