VB的编程题，请高手作答！急需

窗体上有两个命令按钮，一个文本框，文本框中输入1、2、3、4、5、6、7、8、9、0十位数值字符串分别变为汉字大写，其中两个命令按钮一个控制运行程序，一个退出程序。

答案：我添加了一个text2用于显示结果代码如下：
Private Sub Command1_Click()
Dim Dx As String '定义大写
Dim Sz As String '定义数组
Sz = "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
x = Split(Sz, ",")
If LenB(Text1) = 0 Then Exit Sub
For i = 1 To Len(Text1)
Dx = Dx & x(Val(Mid(Text1, i, 1)))
Next i
Text2 = Dx
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
是这样 的吗？

上一个：电脑软件编程“vb”好学吗？
下一个：我想要VB软件编程中常用的代码！