1樓：網海1書生
private sub command1_click()dim l%, m%, n%, o%, x%, y%, a%, b%, c%, d%, i%, j%
n = 7
m = 14
l = 14
o = 21
for i = 1 to 6
n = n + 1
a = controls("text" & n) - text7for j = 1 to 6
m = m + 1
b = controls("text" & m)if b = a then
for x = 1 to 6
l = l + 1
c = controls("text" & l) - text21for y = 1 to 6
o = o + 1
d = controls("text" & o)if d = c then
print d
end if
next
next
end if
next
next
end sub
2樓：岔路程式緣
你這個題出現錯誤的原因不是什麼「子程式或函式未定義」問題，
而是，你在程式執行之前，必須確保有text(1),text(2),text(3),text(4),text(5)和text(6)六個控制元件！（並注意這是一個控制元件陣列！）
vb程式設計子程式或函式未定義
3樓：岔路程式緣
依我看，的確是「子程式或函式未定義」
那是因為vb在執行text1 = rmem(&hfbb0d4c) 這一句時把 rmem(&hfbb0d4c) 當成是自變數為 &hfbb0d4c 的自定義函式，但是它在程式中沒有找到的 rmem() 的定義。所以，會提示「程式或函式未定義」。
把程式完整地發過來，我等可以幫你繼續查詢問題。
補充回答：
你在網上搜到的這段程式不完整，貌似還得有：
private sub rmem()
end sub
和 private sub wmem()
end sub
這兩段過程
4樓：匿名使用者
rmem(&hfbb0d4c)
是一句呼叫函式或子程式的語句
這個函式你沒定義
5樓：
你的rmem是什麼函式？？？
另外你的if還少個end if
matlab程式會提示未定義函式或變數x，怎麼解決？
6樓：h愛不絕跡
情況一：符號變數
必須要定義，定義之後才可以使用。如下面的例子，未定義就會出錯。符號變數定義方法例如: sym x 或者 syms x ，兩者有區別也有共同點。
情況二：計算過程當中的儲存數值的變數
可以不必定義，隨時需要，隨時定義，但是有時候如果變數很多，那麼最好提前宣告，宣告的時候，可以直接賦予0值，並且註釋，這樣方便以後區分，避免混淆。
具體如下：
電腦常見問題解決
1、無法自動識別硬碟控制器
使用非正版的個別作業系統光碟，在安裝系統時，容易出現此錯誤。原因是非正版光碟自動載入的硬碟控制器驅動不符合電腦自身需要的驅動。這種情況就建議換正版光碟安裝作業系統。
2、手動更新錯誤的驅動程式
windows作業系統正常使用，但手動更新驅動程式把硬碟控制器的驅動程式更新錯誤，導致此故障。解決方法是進入windows系統高階選單，選擇最後一次的正常配置，即可正常進入系統。
3、bios設定變化後所導致
windows作業系統正常，但是由於某些原因，使用者修改了bios設定，導致0x0000007b故障。
在微控制器中子程式與中斷服務程式的異同點
相似點 都是中斷當前正在執行的程式，都要通過執行返回指令，返回到原來的程式。都是由硬體自動地把斷點地址壓入堆疊 當執行到返回指令時，自動彈出斷點地址以便返回原來的程式。都要通過軟體完成現場保護和現場恢復。都可以實現巢狀。中斷是微控制器的一個重要功能，中斷子程式專為執行中斷功能，它是在發生中斷後，自動...
用vb程式設計序實現
隨機數重複的做法 把text1 text3的multiline屬性設定為true dim a 100 as integerprivate sub command1 click k 1 if text2.text then exit subfor i 1 to 100 if a i text2.tex...
vb中程式設計序求s
最標準,復簡單 dima asinteger,bas long,s asdoubleb 0a 1 s 0fora 1to100b b as s 1 ba a 1next aprint s 制 說明下把 先定義a 是整型,再定義一個b 是長整型,讓s 是雙精度型別,因為1 長整數 得到的必定超過了單精...