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程式設計題答案，急求VB程式設計題答案
private sub command1 click dim i as integer text1.text list1.list 0 for i 0 to 9 if val list1.list i val text1.text then text1.text list1.list i next ...
關於VB的程式設計問題編，寫加密程式爆急啊
private sub command1 click 用每個字母的ascii碼加7，相加之後的ascii碼值若超過90但不超過97，則減去10，若超過122，則減去8。dim a,b as integer a asc left text1.text,1 7b asc right text1.text...
VB程式設計遇到的乙個問題，關於VB程式設計的小問題
二樓的是錯誤的，寫成 會出錯，直接寫成 就行了。至於怎樣用user變數作為過度變數，關鍵是要將user定義為函式形式而不是變數形式，具體做法如下 a.公共部分 option explicit public function user s as string as string user s end ...