热心网友
回答时间:2024-10-30 18:57
Private Sub Command1_Click()
Dim oldstr As String, newstr As String, temp As String * 1, i
oldstr = InputBox("输入一行字符,回车结束!")
For i = 1 To Len(oldstr)
temp = Mid(oldstr, i, 1)
If UCase(temp) <> temp Then
temp = UCase(temp)
Else
temp = LCase(temp)
End If
newstr = newstr & temp
Next
Print oldstr
Print newstr
End Sub
收起
热心网友
回答时间:2024-10-30 19:00
Private Sub Form_Click()
Dim AAA As String
AAA=Inputbox("输入一串字符")
AAA=LCase(AAA)
End Sub
收起
热心网友
回答时间:2024-10-30 19:05
Dim t As String, t1 As String
Dim i As Integer
t = Text1.Text
For i = 1 To Len(t)
t1 = Mid(t, i, 1)
If t1 >= "A" And t1 <= "Z" Then
Print LCase(t1);
ElseIf t1 >= "a" And t1 <= "z" Then
Print UCase(t1);
Else
Print t1;
End If
Next i
收起
热心网友
回答时间:2024-10-30 19:00
vb~~~
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。
收起