VB我覺得不周到，請補全優化蝦

以目前看來沒什麼簡化的，這本來是喬森為了簡單起見寫閔牌木的。最主要的是不知道具體情況。

此外，可以刪除 load form3 語句，因為下面的語句已經包含 load form3

以下 let 可以刪除。

這一切都是為了簡化！

不需要“讓”這個詞。

dim chkvalue() as integer

dim i as long,n as long '長是最快的; 重複陣列比重複訪問元素更快。

redim chkvalue(

for i = 0 to ubound(chkvalue)

chkvalue(i)=

nextif = true and = true then

fff = false

for dd = 0 to 36

for j = dd + 1 to 36

for n = j + 1 to 36

if chkvalue(dd) = 1 and chkvalue(j) = 1 and chkvalue(n) = 1 then

if not (ww(dd) fff = true

goto go1

end if

end if

nextnext

next go1:

if fff = false then

iend if

end if

按照你程式的邏輯，好像只要勾號有鉤子，反判斷真的不刪除？

簡略思路：1訪問陣列比訪問元素 （. 特別是如果頻繁訪問這種程式，它會更快。

型別迴圈比未指定的型別迴圈（32 位處理器）更快。

3.因為只要乙個匹配後續值，它就不會改變這個值，所以你可以直接退出迴圈。

4.演算法優化。 這三個都可以訪問，所以只需要 1 個迴圈。

然後迴圈又開始了，因為你沒有太多的清晰度，我也不知道它到底是什麼。

1 lockwindowupdate 鎖介面重新整理2 把這種處理放到模組裡，加快處理速度3 我沒有用過msflexgrid1，可以檢查msflexgrid1是否有重新整理事件，如果有，那麼在全部載入完成後先是false，然後是true

4 將字串放入可變處理中可加快處理速度。

將 mid 函式更改為 charat（）。

5層迴圈，底座太多，不慢就怪了，拆開寫。

迴圈的第一層是拆分賦值，最好將值放入陣列中。

第二層在迴圈中獲取表單元的值，該值可以嵌入其中。

最裡面的三個迴圈不必巢狀在裡面，最好把它們拿出來。

關鍵是你的想法是否很簡略，建議把你的想法貼上去，以及要解決什麼問題。

如果沒有問題，就沒有必要優化，優化的原因有很多，如果很慢，那就改變它，如果優化後程式效率沒有很大的提公升，就沒有必要浪費這個時間。

i + k + j = 0 可以改為 i = k = j

但看起來好像是倒計時關機程式，建議你使用計時器，系統的當前時間會隨著啟動一起執行。

你自己說是的，優化沒有多大幫助，所以不要浪費時間