第1个回答 2012-09-27
比如通过text1输入字符串,并且转换后由text1输出:
Private Sub Command1_Click()
s = Text1.Text
l = Len(s)
For i = 1 To l
t = Mid(s, i, 1)
If Asc(t) >= 65 And Asc(t) <= 90 Then
r = r & LCase(t)
ElseIf Asc(t) >= 97 And Asc(t) <= 122 Then
r = r & UCase(t)
End If
Next i
Text1.Text = r
End Sub本回答被网友采纳
第2个回答 推荐于2018-09-14
LCase():是返回小写字母函数
UCase():是返回大写字母函数
例如:字符是:ABcDef
LCase("ABcDef") 的返回值是:ABCDEF
UCase("ABcDef") 的返回值是:abcdef本回答被网友采纳
第3个回答 2012-09-27
LCase(字符)大写变小写
UCase(字符)小写变大写
第4个回答 2012-09-27
Private Sub Command1_Click()
s = ""
t = Text1.Text
For i = 0 To Len(Text1.Text) - 1
t = Mid(Text1.Text, i + 1, Len(Text1.Text) - 1)
a = Mid(t, 1, 1)
If Asc(a) >= 65 And Asc(a) <= 90 Then
s = s & LCase(a)
Else
s = s & UCase(a)
End If
Next i
Text1.Text = s
End Sub