vb编程 阿拉伯数字转换成大写汉字 2位

Question

设计一个数字转换大写汉字的程序，界面如图
要求：程序只需转换2位数字， 按“转换”按钮，在大写框内出现对应中文大写字体。

Answer 1

建立 文本框text1 ,text2   按钮 command1  复制以下代码

Dim a(10) As Integer, b(10) As String

Private Sub Command1_Click()

Dim x, y As Integer

If Len(Text1.Text) > 0 Then          '当文本框中有数字时

  If Len(Text1.Text) = 1 Then        '当文本框1中只有1位数字时

     x = Val(Text1.Text)             'x等于文本框中的数字

     Text2.Text = b(x)               '文本框2显示该数字的大写汉字

  ElseIf Len(Text1.Text) = 2 Then    '当文本框1中有2位数字时

     x = Left(Text1.Text, 1)         'x等于第一位

     y = Right(Text1.Text, 1)        'y等于第二位

   If x = 1 And y > 0 Then           '判断，当文本框中的数字在11到19之间时

       Text2.Text = b(10) & b(y)

   ElseIf x > 1 And y > 0 Then       '判断，当文本框中的数字在21到99之间时

       Text2.Text = b(x) & b(10) & b(y)

   ElseIf x > 0 And y = 0 Then       '判断，当文本框中的数字为10的倍数时

       Text2.Text = b(x) & b(10)

   End If

  End If

 

End If

End Sub

Private Sub Form_Load()

Dim i As Integer

  For i = 0 To 10

   a(i) = i

   Next i

b(0) = "零"

b(1) = "壹"

b(2) = "贰"

b(3) = "叁"

b(4) = "肆"

b(5) = "伍"

b(6) = "陆"

b(7) = "柒"

b(8) = "捌"

b(9) = "玖"

b(10) = "拾"

Text1.FontSize = 40

Text2.FontSize = 40

Text1.MaxLength = 2

Text2.Locked = True

End Sub