內容 ：
某工廠生產4種正立方體產品，邊長分別為1,2,3,4公分，該工廠的包裝箱為4*4*4公分(不計算包裝箱厚度)，現在有若干筆訂單，每一筆訂購單可能包括各種產品但數量可能不同，請計算每一筆訂購最少各需要多少的包裝箱。
輸入說明 ：
每行是一筆訂購單，由四個整數組成，每個整數以一個空白間格，依序分別代表邊長1,2,3,4公分的產品數量，每一個數量均為不大於20000的非負整數，以一個空白隔開。
輸出說明 ：
輸出各筆訂購的最少包裝箱數目，每一筆一行。
範例輸入 ：
5 4 8 2
12 14 32 7
範例輸出 ：
11
41
Dim a, b, c, d, ans, leave As Integer
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do
Input #1, a, b, c, d
ans = ans + d + c + (b \ 8) + 1
leave = (c * 37) + (64 - ((b Mod 8) * 8))
If a > leave Then ans = ans + 1
Print #2, ans
ans = 0
Loop Until EOF(1)
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Input #1, a, b, c, d
ans = Fix((Val(d) + Val(c) + Val(b) / 8) + 0.9)
k = Val(c * 37) + ((8 - (Val(b) Mod 8)) * 8)
If Val(a) > k Then ans = ans + 1
Print #2, ans
Loop
Close #2
Close #1
End
End Sub