應該是1259種切法!!
打開EXCEL然後按“ALT+F11”鍵就可以進入到 “Visual Basic 編輯器“ ,再將下面的程序代碼粘貼進去就行了。再按”F5” 運行其將會彈出壹個對話框顯示運算結果。這裏很簡單就是定義四種整數型變量,根據總長度只有9米,設定好每個變量的範圍,然後再套四個循環,利用IF條件語句添加附加條件,當循環符合條件時計數函數K=K+1 將會自動加總,直到循環結束。最後利用msgbox函數將最終結果顯現出來。
Public Sub uuu()
Dim x, y, z, m As Integer
k = 0
For x = 0 To 9
For y = 0 To 6
For z = 0 To 4
For m = 0 To 3
If 1 * x + 1.5 * y + 2 * z + 2.5 * m - 9 > 0 Then
k = k + 1
End If
Next
Next
Next
Next
MsgBox k
End Sub