Question

窗体有两个文本，三个单选按钮和一个命令按钮。将text1中输入大写 小写字母。按一个单选按钮，再按"转换"

单选按钮分别是大小写转换 全部大写 全部小写 这个程序怎么做？

Answer 1

Private Sub Command1_Click()
    '转换
    Dim i, s
    s = ""
    For i = 1 To Len(Text1)
        If Mid(Text1, i, 1) >= "A" And Mid(Text1, i, 1) <= "Z" Then
            s = s + LCase(Mid(Text1, i, 1))
        ElseIf Mid(Text1, i, 1) >= "a" And Mid(Text1, i, 1) <= "z" Then
            s = s + UCase(Mid(Text1, i, 1))
        Else
            s = s + Mid(Text1, i, 1)
        End If
    Next i
    Text2 = s
End Sub

Private Sub Command2_Click()
    '大写
    Text2 = UCase(Text1)
End Sub
Private Sub Command3_Click()
    '小写
    Text2 = LCase(Text1)
End Sub