vb最优化排列

来源：百度知道 编辑：UC知道 时间：2024/06/05 18:02:30
vb6, 走过路过的大侠求救啊,关系到我能不能拿证啊!!!
最优算法
1.有4种大小不一的纸片规格(120X30,300X600,200X400,160X50),它们数量各不一样,数量分别为:4,3,4,6
2.要将它们以使用面积最大化的方式排列在600X800的纸片上,大纸片不限数量
3,可以翻页显示,
如果可以,我追加100分,
或者发到我邮箱,xiaowuhan@126.com
谢谢了

Private Sub Command1_Click()
Dim a, b, c 'a,b,c为要排序的三个数
Dim max, min, temp 'max存放最大数，min存放最小数，temp存放中间数
a = 12
b = 31
c = 9

If a > b Then
If a > c Then
max = a
If b > c Then
min = c
temp = b
Else
temp = c
min = b
End If
Else
max = c
min = b
temp = a

End If
Else
If b > c Then
max = b
If a > c Then
temp = a
min = c
Else
temp = c
min = a
End If
Else
max = c
temp = b
min = a
End If
End If
Print max, temp, min
End Sub

有难度，想想~

PS:楼上什么东西啊，三个数的排序？和题目有关系吗？