Question

设计一个窗体:一个文本框(名称为Text1)一个按钮(名称为Command1)

设计一个窗体：一个文本框（名称为Text1）一个按钮（名称为Command1)在按钮的单击事件编写VBA程序：
在文本框里一个金额值(最多5位整数,2位小数),单击按键使用信息框显示大写金额值
(如:文本框输入3984.36 则输出: 3千9百8拾4元3角6分.)

Answer 1

根据输入数据位数，用MID()函数码棚直接提取每一个数后面加上对应的个十百千什么的就好啦迟宏则绝租。
Mid$("ABCDEFG",2,3) "BCD"

追问

详细写出来

追答

Option Explicit
Dim k As Double
Dim m As Integer
Private Sub Command1_Click()
k = Text1.Text
m = Fix(k)
If Len(Str$(m)) - 1 = 5 Then
Label1.Caption = Mid(m, 1, 1) & "万"
m = Mid(m, 2, 4)
If Len(Str$(m)) - 1 = 4 Then
Label1.Caption = Label1.Caption & Mid(m, 1, 1) & "千"
m = Mid(m, 2, 3)
If Len(Str$(m)) - 1 = 3 Then
Label1.Caption = Label1.Caption & Mid(m, 1, 1) & "百"
m = Mid(m, 2, 2)
If Len(Str$(m)) - 1 = 2 Then
Label1.Caption = Label1.Caption & Mid(m, 1, 1) & "十"
m = Mid(m, 2, 1)
If Len(Str$(m)) - 1 = 1 Then
Label1.Caption = Label1.Caption & Mid(m, 1, 1) & "元"
End If
End If
End If
End If
End If
If Len(k) - Len(Str$(m)) > 0 Then Label1.Caption = Label1.Caption & Mid(k, 7, 1) & "角"
If Len(k) - Len(Str$(m)) - 1 > 0 Then Label1.Caption = Label1.Caption & Mid(k, 7, 1) & "分"
End Sub

我用的是label显示转换后的显示，你看看可以不？不行的话我改下