将阿拉伯数字0、1、2、……、8、9转换为汉语大写数字零、壹、贰、……、捌、玖，程

什么语言？
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 48 Then
Text2.Text = Text2.Text & "零"
End If
If KeyAscii = 49 Then
Text2.Text = Text2.Text & "壹"
End If
If KeyAscii = 50 Then
Text2.Text = Text2.Text & "贰"
End If
If KeyAscii = 51 Then
Text2.Text = Text2.Text & "叁"
End If
If KeyAscii = 52 Then
Text2.Text = Text2.Text & "肆"
End If
If KeyAscii = 53 Then
Text2.Text = Text2.Text & "伍"
End If
If KeyAscii = 54 Then
Text2.Text = Text2.Text & "陆"
End If
If KeyAscii = 55 Then
Text2.Text = Text2.Text & "柒"
End If
If KeyAscii = 56 Then
Text2.Text = Text2.Text & "捌"
End If
If KeyAscii = 57 Then
Text2.Text = Text2.Text & "玖"
End If
End Sub

#include <iostream>
#include <string>