1樓：網友
樓上那個不行，如過資料是 1 12 123 2 22 22 就會出錯。
今天想了很就 終於弄出來了拆爛 100%你的旅汪漏要求 ，private sub command1_click()
dim a1() as string
dim t, b, c as stringdim a2() as boolean
a1 = split(, "
redim a2(ubound(a1)) as booleanfor i = 0 to ubound(a1)a2(i) =false
next i
for i = 0 to ubound(a1)for j = i + 1 to ubound(a1)if a2(i) =true then exit forif a1(i) =a1(j) then
a2(j) =true
b = a1(j)
end if
next j
if b <>陵悔" then c = c & b & b =next i
cend sub
2樓：
去掉不重複的數，重複的數只要攜戚信乙個。
private sub command1_click()dim tmp() as string
tmp = split(text1, "text1中的數用乙個空格辯輪隔仔州開。
for i = 0 to ubound(tmp)for j = i + 1 to ubound(tmp)if tmp(i) =tmp(j) and instr(text2, tmp(i)) 0 then
text2 = text2 & tmp(i) &exit for
end if
nextnext
end sub
3樓：季妙芙蟻芷
選擇。工具→載入租襪孫巨集，選取「好辯分析工具庫」，確定。然後在「函式弊鏈」中選擇「工程」分類，就可以看到各種進位轉換函式了。選這個函式hex2dec(number)
括號中number為你要轉換成10進位的十六進位數！
或者用wps更方便。
vb 求原始碼 text1每行只包含 text3的其中乙個數字，執行顯示在text2中，(包含零個或
4樓：匿名使用者
應該不難，但搞不清text2中的 456 是怎麼得出的，你描述的問題不清楚。
vb中怎樣找出下面，text1中有百行資料，每行5個數字，找出所有行的第4個數字然後統計找出兩個最小值，並且
5樓：網友
差不多的，只不過你這個邏輯有點問題。
vb計算,在text1中輸入兩個數字，單擊command1按鈕，則在text2中顯示總和數和平均值。怎麼寫？
6樓：網友
private sub command1_click()dim a() as string
a = split(, " ")『分割兩個資料= (val(a(0)) val(a(1)))/ 2end sub
輸入的兩個值用乙個空格分開就行了。如果用其他分割符號（例如，號）,修改。
a = split(, " ")，在" "中代入你的分割符號就行了。
vb中。已知textbox1值，在excle檔案第j列中查詢相同項；並在textbox2輸出所在行第w列內容。
7樓：閃星
通過j列找出對應的w列的值？
也就是你現在輸入的這個值 得到的結果應該是 mat...158?
VB的GET1的意思是什麼,VB中的值1是什麼意思
意思是將已開啟的1號檔案讀取到 變數中 private sub mand1 click const filename as string c temp.exe dim bytes as byte dim fn as integer fn freefile 空閒檔案 號open filename fo...
VB程式設計請問hwnd在VB中的用法
返回窗體或控制元件的控制代碼。microsoft windows 執行環境,通過給應用程式中的每個窗體和控制元件分內 配一個控制代碼 或 hwnd 來標識容它們。hwnd 屬性用於windows api呼叫。許多 windows 執行環境函式需要活動視窗的 hwnd 作為引數。vb中hwnd的作用?...
在VB中如何簡化過多巢狀的if語句
何必用vb,直接操作就可以，選定a5到b100，假設100行資料，然後 編輯 定位 定位條件的空值，然後在編輯欄內輸入 最後按ctrl 回車即可 if b e 10 then s1 s1 1 elseif b e 20 thens2 s2 1 elseif b e 50 thens3 s3 1 el...