轉信站: GIBBS!news2.ncku!ccnews.ncku!news.ccns.ncku!news.mksh.phc!news.nsysu!Sp
Origin: mobbs.stut.edu.tw

※ Qcoka (        超Q可卡        ) wrote:
> 就是阿拉伯數字轉中文國字
> 例如:123  轉成   壹佰貳拾三
> 如何用select..case  還有switch 這兩種方法呈現
> 4個數字即可   拜託拜託....
> 有好心大大可以幫忙解一下嗎?  謝謝  急> <


Dim a(4)
Dim x(4)
Private Sub Command1_Click()
a(0) = Len(Text1.Text)
For i = 1 To a(0)
Text1.SelStart = i - 1
Text1.SelLength = 1
a(i) = Text1.SelText
x(i) = Switch(a(i) = 1, "壹", a(i) = 2, "貳", a(i) = 3, "參", a(i) = 4, "肆")
Next
Select Case a(0)
Case 1
Text2 = x(1)
Case 2
Text2 = x(1) & "拾" & x(2)
Case 3
Text2 = x(1) & "佰" & x(2) & "拾" & x(3)
Case 4
Text2 = x(1) & "仟" & x(2) & "佰" & x(3) & "拾" & x(4)
End Select
End Sub

花10分鐘寫的 應該可以吧... 物件是一個command 和2個text
--
    ◣ ███ ███ ☆  Post by hider                                        
  ◢█ ▉▉█ █▇█ ★  From    218-165-118-34.dynamic.hinet.net             
◥█◤    ﹉  ﹍   ﹋    月光海洋BBS 《mobbs.stut.edu.tw》 163.26.220.130