Private Sub Command3_Click()
Text1.SetFocus
If z = UCase(Text1.Text) Then
UCase(Text1.Text) = LCase(Text1.Text)
Text1.Text = LCase(Text1.Text)
End If
If z = LCase(Text1.Text) Then
LCase(Text1.Text) = UCase(Text1.Text)
Text1.Text = UCase(Text1.Text)
End If
End Sub
不知道哪里错了

UCase(Text1.Text) = LCase(Text1.Text) 这句显然有问题啊 让2个函数相等有什么意义 这里又不是用if语句(况且如果是字母肯定不会相等)

把这句 从2个if中都去掉就行了

概念不清！