小毛的Blog

產品包裝-立體邏輯概念

http://tw.knowledge.yahoo.com/question/question?qid=1405110212429

產品包裝

說明：某工廠生產4種正立方體產品，邊長分別為1, 2, 3,4公分，該工廠的包裝箱為4*4*4公分 (不計算包裝箱厚度)，現在有若干筆訂單，每一筆訂單可能包括各種產品不同數量，請計算每一筆訂購最少各需要多少個包裝箱。

輸入格式：每行是一筆訂購單，由四個整數組成，每個整數以一個空白間格，依序分別代表邊長1, 2, 3,4公分的產品數量，每一個數量均為不大於20000的非負整數，以一個空白隔開。

輸出格式：輸出各筆訂購的最少包裝箱數目，每一筆一行。

輸入範例1：

5 4 8 2

12 14 32 7

輸出範例1：

11 (正確)

41 (怪怪的應該是43吧…?)

輸入範例2：

2250 50 60 2

8 7 15 12

10 300 23 5

輸出範例2：

69 (隨便算都超過了…?)

28 (也怪怪的..最少要29吧?)

66 (隨便算都超過了…?)

引用

回答者： 花枝丸 ( 初學者 4 級 )

回答時間： 2005-11-02 23:32:01

因為2立方公分..是8個裝一箱

我看你的邏輯..你把他當成4個裝一箱了吧！

'================================

問題結論

我真的把2立方的當作4個1箱惹…XD

不知道看官你的邏輯是不是也被騙了?

VB6-檔中有檔~檔包檔

http://tw.knowledge.yahoo.com/question/question?qid=1405112606998

如何在檔案中增加別的檔案進去

舉例:

我有個A.exe 執行後 可在 A.exe 旁 產生 B.exe …(更多累加)

引用

回答者： W.J.S. ( 初學者 5 級 )

回答時間： 2005-11-26 23:36:42

(1) 把 B.exe 加入資源檔

製作方法:

A:開啟資源檔編輯器(如果找不到資源檔編輯器,打開增益集→增益功能管理員→載入Visual Basic 6.0 資源檔編輯器)

B:在編輯器的功能表上有一個四方形(裡面有4個小格)的圖示,滑鼠移到此會顯示"加入自訂資源",給它按下去,然後選擇你的B.EXE

C:然後你會看到新增一個"CUSTOM"的資料夾及一個"101"的資源檔

D:雙擊"101"資源檔,將型態 "CUSTOM" 改成 "B",按確定

F:選擇儲存的圖示儲存到你的專案路徑,此時你就會在你的專案視窗多了一個相關文件→Project1.RES,OK了!!

如果不行的話在提出來吧!!

(2) 把資源檔讀到陣列

(3) 用Open陳述式將陣列存到你要的地方

Dim ExE() As Byte

ExE = LoadResData(101, "B")

Open App.Path & "\B.exe" For Binary As #1

Put #1, , ExE

Close #1

VB6如何做類似超連結的方法

方法有2種

其中Shell因為 遇到空白就會發生問題

所以改用API較為正確

我的發問:

VB怎樣做出來連結的功能(類似連結,超連結)

http://tw.knowledge.yahoo.com/question/question?qid=1305082512595

'=====================連結=============================

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'使用的方法

ShellExecute 0, "", "mailto:[email protected]", "", "", 5

詳細 請上 VB研究小站的 WinAPI簡述

網址 http://vb.ncis.com.tw/

mailto 是以 e-mail做連結 不過要有 Outlook

直接連到網頁 把 "mailto:[email protected]" 改 "http://tw.yahoo.com"

還可連結C:/

宣告方法

開始>程式集>Microsoft Visual Basic 6.0>Microsoft Visual Basic 6.0 工具>API 檢視員

檔案>插入文字檔>WIN32API.TXT

PS. C:\Program Files\Microsoft Visual Studio\Common\Tools\Winapi\WIN32API.TXT

Public 全域 宣告在 模組

Private 區域 宣告在 宣告區

API 就是 Windows 的所有功能

'===============資料參考=================

VB研究小站 http://vb.ncis.com.tw/