VB程序设计，通过点击事件实现小写转换为大写，不知道怎么解决

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim a() As String
    Dim i As Integer
    Dim b As String
    b = write.Text
    ReDim a(i)
    For i = 0 To write.Text.Length
        a(i) = b.Substring(i, 1)
        If a(i) = "1" Then
            a(i) = "壹"
        ElseIf a(i) = 2 Then
            a(i) = "贰"
        ElseIf a(i) = 3 Then
            a(i) = "叁"
        ElseIf a(i) = 4 Then
            a(i) = "肆"
        ElseIf a(i) = 4 Then
            a(i) = "伍"
        ElseIf a(i) = 6 Then
            a(i) = "陆"
        ElseIf a(i) = 7 Then
            a(i) = "柒"
        ElseIf a(i) = 8 Then
            a(i) = "捌"
        ElseIf a(i) = 9 Then
            a(i) = "玖"
        ElseIf a(i) = 0 Then
            a(i) = "零"
        End If
    Next i
    change.Text = b
End Sub

709/11/1505109872_886850.png)

我这里看不到你的图片说明。不知别人能不能看到。

不需要这样，直接调用工作表函数worksheetfunction.text就行，如果要添加金额的元角分之类的就做个函数再转换一下就行

sub text()
a=1234
b = worksheetfunction.text( a ,"[dbnum2]")
msgbox b
end sub