UC知道VB如何这样转换中文数字大小写
来源：百度知道 编辑：UC知道 时间：2024/06/28 05:29:16
TEXT1 TEXT2 COMMAND1
TEXT1中输入“一”至“十”等任意数字，按COMMAND1后，TEXT2立即显示“壹”至“拾”进行转换。
我希望语句是有2个变量
A="一二三四五六七八九十"
B="壹贰叁肆伍陆柒捌玖拾"
然后通过提取其中的位置来转换。
因为如果有可能需要转换的内容很多，这样的话语言比较简洁。
可能我的意思表达错，也请谅解我这个初学者，谢谢，送上50分。
TEXT1中输入“一”至“十”等任意数字，按COMMAND1后，TEXT2立即显示“壹”至“拾”进行转换。
我希望语句是有2个变量
A="一二三四五六七八九十"
B="壹贰叁肆伍陆柒捌玖拾"
然后通过提取其中的位置来转换。
因为如果有可能需要转换的内容很多，这样的话语言比较简洁。
可能我的意思表达错，也请谅解我这个初学者，谢谢，送上50分。
Option Explicit
Private Const STR1 = "一二三四五六七八九十百千万"
Private Const STR2 = "壹贰叁肆伍陆柒捌玖拾佰仟万"
Private Sub Command1_Click()
Dim I As Long
Dim K As Long
Dim Char As String * 1
Dim TempSTR As String
'将TEXT1中的字符串自动转换
'如Text1中是"一万三千二百",则在Text2中输出"壹万叁仟贰佰"
TempSTR = Text1.Text
For I = 1 To Len(Text1.Text)
Char = Mid(Text1.Text, I, 1)
K = InStr(STR1, Char)
If K > 0 Then Mid(TempSTR, I, 1) = Mid(STR2, K, 1)
Next I
Text2.Text = TempSTR
End Sub
就是用你的这二个变量,用instr()函数找出位置,再用mid()函数找出文字
Private Sub Cchange(str As String, M As String)
Dim S As String
Dim N As Integer
M = ""
N = Len(str)
For i = 1 To N
S = Mid(str, i, 1)
Select Case S
Case "一"
S = "壹"
Case "二"
S = "贰"
Case &