在進入社會找工作時，通常會經過面試的過程，來決定是否要錄用這個人。假設今天你
去一家程式設計公司面試，面試的主考官出了一道題目。請你設計一個程式來解決下面的問題：
給你一個長方體，請問最少要用幾個大小相同的正方體，才能把這個長方體填滿，你可以使用的正方體大小不限，長方體及正方體的邊長必須均為正整數。
輸入說明：
第一行的數字，代表有幾個長方體。第二行開始的每一行，記錄了每個長方體長寬高的邊長，邊長的範圍為[1, 1000]間的整數。
輸出說明：
對輸入的每個長方體，分別以一行輸出所使用正方體的個數。
輸入範例：
2
4 6 8
3 5 7
輸出範例：
24
105
給你一個長方體，請問最少要用幾個大小相同的正方體，才能把這個長方體填滿，你可以使用的正方體大小不限，長方體及正方體的邊長必須均為正整數。
輸入說明：
第一行的數字，代表有幾個長方體。第二行開始的每一行，記錄了每個長方體長寬高的邊長，邊長的範圍為[1, 1000]間的整數。
輸出說明：
對輸入的每個長方體，分別以一行輸出所使用正方體的個數。
輸入範例：
2
4 6 8
3 5 7
輸出範例：
24
105
Dim mycount, num1, num2, num3, mix, num As Integer
回覆刪除Private Sub Form_Load()
Min = 999
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, mycount
For i = 1 To mycount
Input #1, num1, num2, num3
For ii = 1 To mix
Close #2
Close #1
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
Input #1, n
For i = 1 To n
Line Input #1, x
x = Split(x)
y = Val(x(0)) * Val(x(1)) * Val(x(2))
For j = 1 To y
If Val(x(0)) Mod j = 0 And Val(x(1)) Mod j = 0 And Val(x(2)) Mod j = 0 Then
If y Mod j ^ 3 = 0 Then ans = j ^ 3
End If
Next
Print #2, (y / ans)
Next
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
Input #1, n
For k = 1 To n
Input #1, a, b, c
i = 1
Do
If i Mod a = 0 And i Mod b = 0 And i Mod c = 0 Then Exit Do
i = i + 1
Loop
Print #2, i
Next
Close
Close
End
End Sub