1樓：匿名使用者
加一個文字框text1，一個按鈕command1private sub command1_click()if trim(text1.text)=""thenmsgbox "請輸入數字"
text1.setfocus
else
msgbox val(trim(text1.text)) \ 100 & "米" & left(cstr(val(trim(text1.text)) mod 100),1) & "分米"& right(cstr(text1.
text),1) & "釐米"
end if
end sub
2樓：匿名使用者
private sub command1_click()dim a as string
dim b as string
dim l as integer,m as integer,f as integer
l=val(text1.text)
m=int(l/100)
l=l-m*100
f=int(l/10)
l=l-f*10
a=cstr(m) & "米" & cstr(f) & "分米" & cstr(l) & "釐米"
text1.text=a
end sub
3樓：匿名使用者
樓主你是學vb的嗎?
不要有事沒事就上來發問!
急求一個vb的問題！高手請進。
4樓：風之追夢者
冒泡演算法，排序。
比如有五個數，x(1 to 5);
從1到4是說排列第幾大的資料
i是1時 即排列出最大的數
j說的是i-1個數已排完，送進x(1 to i-1)裡,把x(i)與x(i+1 to n)比一遍，求出最大的。
5樓：
相鄰兩個數比較，如果後面的比前面的大，兩個數就交換位置，先把前邊的書存到t，後邊的數到前邊，後邊的數在變成t，就是原來在前的那個書的值，就這樣咯。
6樓：匿名使用者
說到底就是一個倒排序，陣列裡面的資料從大到
vb高手請進，有問題請教
7樓：網海1書生
你的這些datagrid最好做成控制元件陣列，而且其index要和sstab的tab號一一對應。另外介面上再放一個adodc控制元件，和資料庫連線好，並且設為不可見的。這樣就簡單了：
private sub sstab1_click(previoustab as integer)
adodc1.recordsource = "select * from " & sstab1.caption
adodc1.refresh
set datagrid1(sstab1.tab).datasource = adodc1
end sub
急懂VB程式設計的高手請幫忙,很簡單的問題
msgbox函式是有返回值的 比如dim choice choice msgbox 確定要更改該員工家庭成員記錄嗎？3 32 0,確定更改 使用者按不一樣的按鈕 choice的值是不一樣的 你可以通過判斷choice的值來判斷使用者按了哪個按鈕 補充樓上的 select choice case vb...
急求 VB程式設計題目,謝謝，求1道小學VB程式設計題目 謝謝
dim a 0 to 3 private sub command1 click index as integer list1.additem index end sub private sub command2 click dim n,m m 0 n 0 for i 0 to 3 for j 0 t...
c語言程式設計問題，高手請進
倒數第7行 有錯誤 定義的是i 不是y int s 1,i 我看了一下 你的 你的不完善 如果是2進位制 只能表達從 1 255 之間的數。如果是三進位制 也只能表達 0 19682 之間的數。 十進位制轉二進位制，知道演算法就很簡單啊 你想問什麼，能否具體點？ 呼叫函式怎麼形參有一個y 函式體內又...