VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "小寫(xiě)金額轉(zhuǎn)換為大寫(xiě)金額"
   ClientHeight    =   2430
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   2430
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   375
      Left            =   3210
      TabIndex        =   3
      Top             =   1890
      Width           =   1080
   End
   Begin VB.TextBox Text2 
      Height          =   390
      Left            =   540
      TabIndex        =   1
      Top             =   585
      Width           =   3795
   End
   Begin VB.TextBox Text1 
      Enabled         =   0   'False
      Height          =   405
      Left            =   510
      TabIndex        =   0
      Top             =   1290
      Width           =   3795
   End
   Begin VB.Label Label2 
      Caption         =   "轉(zhuǎn)換為大寫(xiě)金額"
      Height          =   285
      Left            =   525
      TabIndex        =   4
      Top             =   1050
      Width           =   2040
   End
   Begin VB.Label Label1 
      Caption         =   "請(qǐng)輸入數(shù)字"
      Height          =   255
      Left            =   555
      TabIndex        =   2
      Top             =   360
      Width           =   2880
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function setdata(num As Integer) As String  '數(shù)字轉(zhuǎn)換
  Select Case num
  Case 0
      setdata = "零"
  Case 1
      setdata = "壹"
  Case 2
      setdata = "貳"
  Case 3
      setdata = "叁"
  Case 4
      setdata = "肆"
  Case 5
      setdata = "伍"
  Case 6
      setdata = "陸"
  Case 7
      setdata = "柒"
  Case 8
      setdata = "捌"
  Case 9
      setdata = "玖"
  End Select
End Function
Private Function chang(aaa As Integer) As String  '位數(shù)轉(zhuǎn)換
  Select Case aaa
  Case 1
      chang = ""
  Case 2
      chang = "十"
  Case 3
      chang = "百"
  Case 4
      chang = "千"
  Case 5
      chang = "萬(wàn)"
  Case 6
      chang = "十"
  Case 7
      chang = "百"
  Case 8
      chang = "千"
  Case 9
      chang = "億"
  Case 10
      chang = "十"
  End Select
End Function

Private Sub Form_Activate()  '設(shè)定文本長(zhǎng)度
  Text2.MaxLength = 10
  Text2.SetFocus
End Sub

Private Sub Text2_Change()  '小寫(xiě)轉(zhuǎn)大寫(xiě)
  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       '轉(zhuǎn)換小數(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)      '轉(zhuǎn)換整數(shù)位
        money2 = Left(mystr, i)
        money1 = Right(money2, 1)
        If money1 = 0 Then
             If j = 5 Then
                 If Right(mystr1, 1) <> "萬(wàn)" Then mystr1 = mystr1 & "萬(wàn)"
             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  '顯示大寫(xiě)
End Sub

Private Sub Command1_Click()
 End
End Sub