form1.frm

此代码的功能是实现小写金额转换为大写金额

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "小写金额转换为大写金额"
   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         =   "转换为大写金额"
      Height          =   285
      Left            =   525
      TabIndex        =   4
      Top             =   1050
      Width           =   2040
   End
   Begin VB.Label Label1 
      Caption         =   "请输入数字"
      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  '数字转换
  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  '位数转换
  Select Case aaa
  Case 1
      chang = ""
  Case 2
      chang = "十"
  Case 3
      chang = "百"
  Case 4
      chang = "千"
  Case 5
      chang = "万"
  Case 6
      chang = "十"
  Case 7
      chang = "百"
  Case 8
      chang = "千"
  Case 9
      chang = "亿"
  Case 10
      chang = "十"
  End Select
End Function

Private Sub Form_Activate()  '设定文本长度
  Text2.MaxLength = 10
  Text2.SetFocus
End Sub

Private Sub Text2_Change()  '小写转大写
  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       '转换小数位
        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)      '转换整数位
        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

Private Sub Command1_Click()
 End
End Sub