1樓：匿名使用者
按我說的做：先建一個text1,command1,然後建一個combo1，選定那個combo1,複製，貼上，詢問是否建立控制元件陣列，點是，然後一直貼上到有六個combo1為止，把六個combo1放到一條橫線上擺好。然後**如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
option explicit
private const s as string = "零壹貳叄肆伍陸柒捌玖"
private sub command1_click()dim t as string, i as integert = format(text1.text, "000000")for i = len(t) to 1 step -1combo1(i - 1).text = mid(s, val(mid(t, i, 1)) + 1, 1)
next
end sub
2樓：我tm不管
function rmb(num)
num = formatnumber(num, 2)
dim numlist
dim rmblist
dim numlen
dim numchar
dim numstr
dim n
dim n1, n2
dim hz
numlist = "零壹貳叄肆伍陸柒捌玖"
rmblist = "分角元拾佰仟萬拾佰仟億拾佰仟萬"
if num > 9999999999999.99 then
rmb = "超出範圍的人民幣值"
exit function
end if
numstr = cstr(num * 100)
numlen = len(numstr)
n = 1
do while n <= numlen
numchar = cint(mid(numstr, n, 1))
n1 = mid(numlist, numchar + 1, 1)
n2 = mid(rmblist, numlen - n + 1, 1)
if not n1 = "零" then
hz = hz + cstr(n1) + cstr(n2)
else
if n2 = "億" or n2 = "萬" or n2 = "元" or n1 = "零" then
do while right(hz, 1) = "零"
hz = left(hz, len(hz) - 1)
loop
end if
if (n2 = "億" or (n2 = "萬" and right(hz, 1) <> "億") or n2 = "元") then
hz = hz + cstr(n2)
else
if left(right(hz, 2), 1) = "零" or right(hz, 1) <> "億" then
hz = hz + n1
end if
end if
end if
n = n + 1
loop
do while right(hz, 1) = "零"
hz = left(hz, len(hz) - 1)
loop
if right(hz, 1) = "元" then
hz = hz + "整"
end if
rmb = hz
end function
這個是大寫函式，其他的問題就比較簡單了，你自己研究一下吧
3樓：匿名使用者
很容易實現，網路上有現成的。如果想自己做，有個叫取餘的函式。
1234%1000=234
234%100=34
（234-234%100）/100=2
剩下的不用我交了吧
4樓：匿名使用者
肯定能啊
不難,就是繁瑣
vb中區分大小寫嗎？說的具體些
娛樂小八卦啊 不區分。但是要養成良好的編碼習慣，根據一定的規律，該大寫，就大寫，該小寫，就小寫，這樣寫出的 可讀性比較好，而且有一部分程式語言是區分大小寫的，以後開發專案的時候，良好的編碼習慣很重要。在利用v b進行程式設計的過程中，需要對變數 控制元件等進行引用，而在引用的過程當中就需要用到變數或...
怎麼切換電腦中的大小寫？電腦，怎麼切換大小寫
轉換方式如下 1 首先通過shift鍵，將輸入法切換至英文狀態，輸入法圖示變為 英 2 然後按下鍵盤上上的capslock鍵，輸入法的圖示變為 a 說明切換到了英文大寫狀態，此時輸入的字母都是大寫英文字母，再次按下capslock鍵就可以切換回小寫 3 同時按下shift鍵和任意字母鍵，也可以輸出這...
如何在EXCEL表中大小寫金額轉換，就是格是小寫，另
1 首先在我們的電腦桌面上新建一個excel 並點選它。2 然後隨便輸入一串字元，如下圖所示。3 接著右擊這個單元格並點選設定單元格格式。4 然後點選左側的特殊。5 接著點選人民幣大寫並點選確定。6 通過以上操作，我們就把數字變成了人民幣大寫了。見截圖假定小寫在a2,b2輸入 text a2,dbn...