12601, 轉換成16進制是3139，16進制 ASC嗎31對應字符1， 39對應9。 后面的用這個思路去轉換就對上了。
目前創(chuàng)新互聯(lián)建站已為上千余家的企業(yè)提供了網(wǎng)站建設、域名、網(wǎng)站空間、網(wǎng)站托管、企業(yè)網(wǎng)站設計、青神網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。
0001 2569這兩個應該是和格式相關的字符。0001一般就是開始的意思。
一個變量包含兩個字符，轉換算法如下。
1。 取高位字符，除以H100， H是VB中16進制表示法。 除以H100效果是右移8位。 位了保險起見，再和H00FF做與運算，保證取得的ASC碼是合法的。
2。取低位字符，與H00FF做與運算，去掉高位數(shù)據(jù)，剩下的就是低位ASC碼。
3。將ASC碼轉換為字符，用CHR函數(shù)即可，然后連接所有的字符即可得String
CType 函數(shù)
任何數(shù)據(jù)類型
必須在兩種數(shù)據(jù)類型之間定義擴大轉換或收縮轉換
引發(fā) InvalidCastException
DirectCast
任何數(shù)據(jù)類型
一個類型必須繼承自或者實現(xiàn)另一個類型
引發(fā) InvalidCastException
TryCast
僅引用類型
一個類型必須繼承或者實現(xiàn)另一個類型
返回 Nothing (Visual Basic)
Private Sub Text2_Change() '大寫金額轉換成阿拉伯數(shù)字金額
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr = Text2.Text
myint = InStr(mystr, ".")
If myint = 0 Then
mystr = Text2.Text
Else
mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)
If mystr3 "" Then '轉換小數(shù)位
mystr4 = Left(mystr3, 1)
mystr3 = Right(mystr3, Len(mystr3) - 1)
If mystr4 "0" Then
mystr2 = mystr2 + setdata(Val(mystr4)) + "角"
End If
If mystr3 "" Then
mystr4 = Left(mystr3, 1)
mystr2 = mystr2 + setdata(Val(mystr4)) + "分"
End If
End If
mystr = Left(Text2.Text, myint - 1)
End If
j = Len(mystr)
For i = 1 To Len(mystr) '轉換整數(shù)位
money2 = Left(mystr, i)
money1 = Right(money2, 1)
If money1 = 0 Then
If j = 5 Then
If Right(mystr1, 1) "萬" Then mystr1 = mystr1 "萬"
Else
If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"
End If
Else
mystr1 = mystr1 setdata(money1) + chang(j)
End If
j = j - 1
Next i
Text1.Text = mystr1 "元" mystr2 '顯示大寫
End Sub
可以使用GetItemText
方法：返回指定項的文本表示形式。使用形式如下：
GetItemText(item)
重慶分公司
重慶分公司
