求一算料算法

我们一张板材是长2440mm，宽1220mm.
我只有输入半成品的长、宽、套数就可以计算出需要多少张这样的板材。 --------------------编程问答-------------------- Dim S1 = (2440 \ 长) * (1220 \ 宽)
Dim S2 = (1220 \ 长) * (2440 \ 宽)
Dim S = IIf(S1 > S2, S1, S2)
Dim count = 套数 \ S + IIf(套数 Mod S > 0, 1, 0)
MsgBox count --------------------编程问答-------------------- 非常感谢，我漏了一个就是还要加上一个柜子的块数。
长、宽、套数、块数来计算出需要多少张板材

补充：.NET技术 ,  VB.NET