1樓：匿名使用者
private sub form_click()dim char() as variant, i as byte, mystr as string
char() = split("a,b,c,d", ",")for i = 0 to ubound(char)mystr = mystr & char(i) & vbcrlfnext
end sub
請自行測試一下
2樓：匿名使用者
先說說理論,用程式來解決這類問題,並不需要想數學一樣去計算,去列方程,
一般我們用最簡單的思路.
就是將乙個個數字套進去,然後用程式去判斷(這在數學中該是叫做窮舉法)
**的話樓上倆個都很好,如果看不懂的話可以參考下我這個
abcd-cdc=abc
這題目首先看,它有4個變數,其中a和c肯定不能是0,那麼**可以是:
dim a as integer, b as integer, c as integer, d as integer
dim abcd as integer, cdc as integer, abc as integer
for a = 1 to 9
for b = 0 to 9
for c = 1 to 9
for d = 0 to 9
abcd = (a * 1000 + b * 100 + c * 10 + d)
cdc = (c * 100 + d * 10 + c)
abc = (a * 100 + b * 10 + c)
if abcd - cdc = abc then msgbox abcd & "-" & cdc & "=" & abc
next
next
next
next
這段**的實際運算和樓上沒任何區別(可能跟繁瑣,也許能讓你更容易理解吧)
目的都是窮舉出abcd的所有可能,然後一次次套用比較判斷
在vb中如何將數字轉換成字元型別
cstr 1.25 他們說的和正確，但是有個缺點。轉換的時候，cstr會把數字的正負表示出來。1.25是正數，應該轉換成 1.25 但由於vb對正號的省略則轉換成 1.25 那麼你就會發現，有的時候cint cstr 1.25 會出現型別錯誤。因此得想辦法把轉換過程中產生的空格去掉。replace ...
vb 如何將byte陣列轉換成字串（相容中英文）
要看什麼 如果byte陣列資料本身是vb生成的，辦法較簡單。dim s as string s 中華人民共和國republic of china dim b as byte b s 直接賦值位元組陣列，每個字元都佔兩個位元組debug.print ubound b debug.print cstr ...
vb中如何將字串轉換為utf 8編碼
請查詢msdn中 multibytetowidechar 和 widechartomultibyte 這兩個函式。function utf zzf dim ztep,i,za,zc utf ztep zzf if ztep then exit functionfor i 1 to len ztep ...
在powermill中如何將唯讀專案轉換為可讀寫專案
1 首先在powermill中，等高精加工 螺旋螺旋 完美解決進退刀在加工完工件後產生進退刀痕的問題，及應用在一些封閉區域開粗也是非常高效，如下圖。2 傳統等高方式，如下圖所示。3 等高新增螺旋後效果，特別適合形狀規則沒有明顯可以進退刀位置的工件。4 用開粗加工較小封閉區域時斜向進刀使加工效率大打折...
c中如何將Point陣列轉換為listPoint
1,從system.string轉到list system.string str listlists new list str 2,從list轉到system.string listlists new list lists.add str lists.add hello system.string ...